web browser döngüsü

18/10/2011, 16:55

muradoglu

başlık garip olabilir ama yapmaya çalıştığım tam olarak şu

bir kurumda görevliyim kurumumuz öğrencilerinin ders notlarını tek seferde almak için böyle bir çalışma gereksinimi duydum.

bu yüzden uygulamanın içindeki bilgiler tablosunda kaç tane kayıt varise o kadar kayıt adedince web browseri (veri yollama) adlı formdaki şekle göre çoğaltmasını istiyorum. bu sayede güvenlik kodlarını tek tek elimle girip komut düğmesine basarak bazı bilgiler çekmek istiyorum (bilgi çekmek için başka bir konu açma düşüncesindeyim. )

ikinci olarak tablolardaki tc kimlik nolarının ve okul numaralarnın otomatik olarak kutulara eklenmesini temin ederseniz ayrıca minnet duyarım. (güvenlik kodlarını tekl tek kendi elimle yazacağım )

formunuzdan çok istifade ediyorum. fakat hala öğrenme aşamasındayım. yardımlarınız için şimdiden teşekkür ederim.

bu arada tc kimlik numarasının 11 haneli yapabilmek için alan özelliği "metin" yaptım bilgilerinize
20/10/2011, 01:16

ozanakkaya

cevap yazabilmem için malesef iki adet öğrenci bilgisini özel mesajla göndermeniz gerekiyor.
20/10/2011, 08:15

esrefigit

Dim rstkayit As ADODB.Recordset
Dim lR As Long
Dim lR1 As Long
Dim ObjElement As HTMLObjectElement
Set rstkayit = New ADODB.Recordset
rstkayit.Open "SELECT * FROM ogrenciler", CurrentProject.Connection, adOpenStatic, adLockOptimistic
Set ObjElement = WebBrowser1.Document.all().tags("table").Item(35)
lR = ObjElement.rows.length - 1
For lR1 = 1 To lR
With rstkayit
.AddNew
.Fields("tckimlik") = ObjElement.rows(lR1).cells(1).innerText
.Fields("adı") = ObjElement.rows(lR1).cells(2).innerText
.Fields("soyadı") = ObjElement.rows(lR1).cells(3).innerText
.Fields("okulno") = ObjElement.rows(lR1).cells(4).innerText
.Fields("sınıfı") = ObjElement.rows(lR1).cells(5).innerText
.Fields("durumu") = ObjElement.rows(lR1).cells(6).innerText
.Fields("kurumkodu") = Mid(Right(WebBrowser1.Document.all.Item("IOMPageHeader1_lblKurumIlIlce").innerText, 8), 1, 6)
.Update
End With
Next lR1

ben bu şekilde öğrenci listelerini alıyorum ancak toplu not veren Html sayfası varsa bu işe yarar kodun çalışabilmesi için referanslardan microsoft Html object seçmen gerekiyor