Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Webbrowser Açılır Kutudan Veri Al

ynlmz
ynlmz
Access Cevaplanmış Soruları
5
1761

Webbrowser Açılır Kutudan Veri Al

#1
ynlmz
Aktif Üye
ynlmz
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 54
Konum:
Ofis Versiyonu:
Son Oturumu: 14/02/2017,17:07
Yorumları: 36
Konuları: 10
Kayıt Tarihi: 15/12/2012
Teşekkür Puanı: 0
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
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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
ynlmz
Aktif Üye
ynlmz
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 54
Konum:
Ofis Versiyonu:
Son Oturumu: 14/02/2017,17:07
Yorumları: 36
Konuları: 10
Kayıt Tarihi: 15/12/2012
Teşekkür Puanı: 0
Hocam çok güzel olmuş. Bir de eğer kayıt var ise güncelleyebilir miyiz acaba?
Cevapla
#4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
(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
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 20/12/2024,22:58
Yorumları: 13.542
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
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
idrisy
Aktif Üye
idrisy
Bul
Aktif Üye
Adı Soyadı: İd.... YE....
Yaşı: 54
Konum: Osmaniye
Ofis Versiyonu: Ofis 2021 32 Bit
Son Oturumu: Dün,00:27
Yorumları: 224
Konuları: 57
Kayıt Tarihi: 27/12/2008
Teşekkür Puanı: 11
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