Web te Borç Sorgulama

04/04/2013, 10:57

av.fatihberber

Türk Telekom Online Hizmet Merkezinden Tc No ve Telefon numarası ile yasal takipteki borçları sorgulama için bir hizmet başlattı.

Ben de bu hizmetten Access te hazırladığım dosya takip sisteminin içinde faydalanmak istiyorum.

Özetle: Ekte sunduğum örnekten de anlaşılacağı üzere, sorgulama için gerekli olan web sitesini Access te açıp, yine sorgulama için gerekli olan TC no ve Telefon numarası bilgilerini kendi veritabanımdan oraya aktarılmasını sağlamak istiyorum. Böylelikle her seferinde kopyala yapıştır derdinden kurtulmak istiyorum. Web sitesini açma işini hallediyorum ama verilerin aktarımını yapamadım.

Yardımlarınızı bekliyorum....
04/04/2013, 17:24

av.fatihberber

çözüm önerisi bekliyorum arkadaşlar
04/04/2013, 21:09

ozanakkaya

sorgulama işlemi için buton ekledim.
05/04/2013, 12:46

av.fatihberber

böyle bir uyarı alıyorum. ?
06/04/2013, 08:38

ozanakkaya

kodu aşağıdaki ile değiştir.

Private Sub Komut708_Click()

Dim btn As Object
WebBrowser0.Document.getElementById("prmHizmetNo").Value = Me.Metin705
WebBrowser0.Document.getElementById("tcKimlikNo").Value = Me.tcno
For Each btn In WebBrowser0.Document.all.tags("Input")
If btn.Value = "SORGULA" Then
btn.Click
End If
Next btn

End Sub


Ayrıca kod sayfasındaki hataları düzeltmelisin.

Option Compare Database kodunun en üstte olması lazım, siz altta biryerlere yazmışsınız, kodlarda hatalar var.
06/04/2013, 12:02

av.fatihberber

çok teşekkür ederim. kodları düzelttim ama web browser performansı düşük olduğu için yine en iyisi kopyala yapıştır olacak.