Webbrowser Açılır Kutudan Veri Al

11/02/2017, 14:19

ynlmz

Sayın Hocalarım; EK'teki dosyada WebBrowser açılır kutudaki tüm verileri tabloya aktarmak istiyorum.


PHP Kod:
<option selected="selected" value="308">Anadolu Meslek Programı</option>
  <option value="58">Anadolu Ticaret Meslek Lisesi</option>
  <option value="57">Ticaret Meslek Lisesi</option


yukarıda kodda da görüldüğü gibi value alanındaki kodu ve okul adını tabloya aktarmak istiyorum.
11/02/2017, 15:00

ozanakkaya

Merhaba, butonun tıklandığında olayına aşağıdaki kodu yazarak deneyiniz

On Error Resume Next
Dim Secenek As Object
Dim SatirSayisi, SatirNo As Integer

Dim rs As New ADODB.Recordset
rs.Open "TabloOkulTuru", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

For Each Secenek In Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")
SatirSayisi = Secenek.length
Next

For SatirNo = 0 To SatirSayisi - 1

rs.AddNew

rs("OkulAdi") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).innertext
rs("TurKodu") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).Value
rs.Update
Next

MsgBox ("islem Tamam")

rs.Close
Set rs = Nothing
11/02/2017, 19:12

ynlmz

Hocam çok güzel olmuş. Bir de eğer kayıt var ise güncelleyebilir miyiz acaba?
15/02/2017, 04:36

ozanakkaya

(11/02/2017, 19:12)ynlmz yazdı: Hocam çok güzel olmuş. Bir de eğer kayıt var ise güncelleyebilir miyiz acaba?

Kodu aşağıdaki ile değiştirerek deneyiniz.

On Error Resume Next
Dim Secenek As Object
Dim SatirSayisi, SatirNo As Integer

Dim rs As New ADODB.Recordset
rs.Open "TabloOkulTuru", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

   For Each Secenek In Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")
       SatirSayisi = Secenek.length
   Next

   For SatirNo = 0 To SatirSayisi - 1
   
       With rs
       
           .Find "[TurKodu]=" & Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).Value
       
               If Not rs.EOF Then
                   rs("OkulAdi") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).innertext
                   rs("TurKodu") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).Value
                   rs.Update
               Else
                   rs.AddNew
                   rs("OkulAdi") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).innertext
                   rs("TurKodu") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).Value
                   rs.Update
               End If
       End With
   
   Next

MsgBox ("islem Tamam")

rs.Close
Set rs = Nothing

Tür Kodu var ise günceller, yok ise tabloya ekler.
28/02/2017, 18:40

ozanakkaya

Konu cevaplanmış sorular bölümüne taşınmıştır. Lütfen konularınıza dönüş yapınız.

Kod:
Site Kuralları:

2-) Herhangi bir soru(n) için konu açtıysanız verilen cevapları inceleyip en kısa zamanda yapılan yardımın olumlu ya da olumsuz sonucunu bildiriniz.
Bu maddenin sürekli ihlalde uyarı puanı verilecektir.
Uyarı Bitiş Süresi : 4 Ay,
Uyarı Seviyesi +4
01/03/2017, 17:29

idrisy

Hocam; kusura bakmayın dönüş yapmayı unutmuşum.
Yardımınız sayesinde sorunum çözüldü.