Skip to main content

AccessTr.neT


Web Sitesindeki Liste Kutusundan Veri Alma

Web Sitesindeki Liste Kutusundan Veri Alma

Çözüldü #1
iyi çalışmalar.
Web Sitesindeki Liste Kutusundan  seçili olan bilgiyi nasıl alabilirim.
<option selected="selected" value="21">DİYARBAKIR</option>
bunları denedim
sayıları aldı
rcnufus![nufus_il] = WebBrowser2.Document.getElementById("ddlNufusIli").Value

rcnufus![nufus_il] = WebBrowser2.Document.getElementById("ddlNufusIli").innertext


[Resim: do.php?imgf=154125706757241.png]
mustinba, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Veri aldığınız web sayfasının Html kodlarını ekleyiniz.
Cevapla
#3
Dim Secenek As Object
Dim SATIRSAYISI, SatirNo As Integer

Dim rcsayi As DAO.Recordset
Set rcsayi = CurrentDb.OpenRecordset("Tablotur ")
strSQL = "SELECT * FROM Tablotur "
Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  For Each Secenek In Me.WebBrowser1.Document.getElementsByName("xxxxx ")
       SATIRSAYISI = Secenek.Length
   Next
   For SatirNo = 0 To SATIRSAYISI - 1

With rstkayit
.Find "[Kodu]=" & Me.WebBrowser1.Document.getElementsByName("xxxxx")(0).Options(SatirNo).Value & ""
If Not rstkayit.EOF Then
    .Fields("Adi") = Me.WebBrowser1.Document.getElementsByName("xxxxx ")(0).Options(SatirNo).innerText
   .Fields("Kodu") = Me.WebBrowser1.Document.getElementsByName("xxxxx ")(0).options(SatirNo).Value
.Update
Else
.AddNew
  .Fields("Adi") = Me.WebBrowser1.Document.getElementsByName("xxxxx ")(0).Options(SatirNo).innerText
  .Fields("Kodu") = Me.WebBrowser1.Document.getElementsByName("xxxxx ")(0).Options(SatirNo).Value
.Update
End If
End With
Next
MsgBox ("islem Tamam")
 Bunu kendine uyarlayabilirsin.
Son Düzenleme: 05/11/2018, 20:59, Düzenleyen: idrisy.
Cevapla
#4
Tamam teşekkürler
mustinba, 11-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task