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.
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
Hocam çok güzel olmuş. Bir de eğer kayıt var ise güncelleyebilir miyiz acaba?
(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.
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
Hocam; kusura bakmayın dönüş yapmayı unutmuşum.
Yardımınız sayesinde sorunum çözüldü.