AccessTr.neT
Web Sitesindeki Liste Kutusundan Veri Alma - 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 Sitesindeki Liste Kutusundan Veri Alma (/konu-web-sitesindeki-liste-kutusundan-veri-alma.html)

Web Sitesindeki Liste Kutusundan Veri Alma - mustinba - 03/11/2018

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]

Cvp: Web Sitesindeki Liste Kutusundan Veri Alma - ozanakkaya - 03/11/2018

Veri aldığınız web sayfasının Html kodlarını ekleyiniz.

Cvp: Web Sitesindeki Liste Kutusundan Veri Alma - idrisy - 05/11/2018 

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.

Cvp: Web Sitesindeki Liste Kutusundan Veri Alma - mustinba - 10/11/2018

Tamam teşekkürler