Skip to main content

AccessTr.neT


Webbrowser Açılır Kutudan Veri Al

Webbrowser Açılır Kutudan Veri Al

#1
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.
.rar AcilirKutuVeriAl.rar (Dosya Boyutu: 57,34 KB | İndirme Sayısı: 7)
Cevapla
#2
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
Cevapla
#3
Hocam çok güzel olmuş. Bir de eğer kayıt var ise güncelleyebilir miyiz acaba?
Cevapla
#4
(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.
Cevapla
#5
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

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da