web browser döngüsü - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: web browser döngüsü (/konu-web-browser-dongusu.html) |
web browser döngüsü - muradoglu - 18/10/2011 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 Cvp: web browser döngüsü - ozanakkaya - 20/10/2011 cevap yazabilmem için malesef iki adet öğrenci bilgisini özel mesajla göndermeniz gerekiyor. Cvp: web browser döngüsü - esrefigit - 20/10/2011 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 |