Web Üzerinden Seçmen Bilgisi Sorgulama

Web Üzerinden Seçmen Bilgisi Sorgulama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Web Üzerinden Seçmen Bilgisi Sorgulama (/konu-web-uzerinden-secmen-bilgisi-sorgulama.html)

Sayfalar: 1 2 3 4 5 6 7 8

Cvp: Web Üzerinden Seçmen Bilgisi Sorgulama - tetrapetrol - 22/10/2009

çok guzel bir çalışmada ben d e hata verıyor sorgulamdan sonra kodlar gozukuyor

Cvp: Web Üzerinden Seçmen Bilgisi Sorgulama - ozanakkaya - 23/10/2009

Sandık sorgulamanın yapıldığı bazı bilgiler ysk tarafından kapatılmış, Sadece ad, soyad ve adres bilgilerini sorgulayabileceğiniz (Bir nevi tc kimlik doğrulama) örnek aşağıdadır

https://accesstr.net/attachment.php?aid=5138

Cvp: Web Üzerinden Seçmen Bilgisi Sorgulama - tteoman - 26/04/2010

Teşekkürler. Arkadaşlar Bu uygulama çok işime yarayacak

Cvp: Web Üzerinden Seçmen Bilgisi Sorgulama - xgitarx - 05/06/2010

tşkler. elinize sağlık

Cvp: Web Üzerinden Seçmen Bilgisi Sorgulama - kadirdursun - 16/06/2010

(27/03/2009, 18:00)zetyu yazdı: ben 2 yıl önce Access e merak saldım sizler gıbı bu konuda bilgisi olan insanların verdiği örnekler üzerinde uğraşarak(bir iki kitap okuyarak) istediklerimi şu ana kadar yaptım.örneklerdeki kodları değiştirerek kendime uyarladım..işyerimde kendimin hazırladığı Access i kullanıyorum ..VB kodlarını çok çok az biliyorum.
sizlerden ricam bu yukarıdakı sorgular hakkında bilgi vermeniz....bana nasıl yapıldığı konusunda bilgi verirseniz mutlu olurum
web üzerinde nasıl sorgu yapabilirm çok basit bir iki örnek verirseniz ufkumu açmış olrsunuz.şimdiden tşk

evet nasıl yapıldığı hakkında bilgi verebilir misiniz? mesela sitedeki kutuların isimlerini nereden öğreniyoruz ki bunları formun üzerindeki textlerle bağlıyoruz?

Cvp: Web Üzerinden Seçmen Bilgisi Sorgulama - ozanakkaya - 16/06/2010

yaptığımız forma webbrowser ekliyoruz e adına "WebBrowser1" yazıyoruz.
formun yüklendiğinde olayına

Kod:

WebBrowser1.Navigate2 "http://www.ysk.gov.tr/ysk/secmenBilgi.jsp"

yazıyoruz. Bu şekilde form açıldığında WebBrowser1'de "http://www.ysk.gov.tr/ysk/secmenBilgi.jsp" sayfası açılacak.

sorgulama kısmı için 2 metin kutusu ve 1 buton ekliyoruz.
metin kutularının isimleri "RESİMDOĞRULAMA" ve "TcKimlik"
butonun adı "Komut22"

resim doğrulama kısmı için 2. webbrowser ekliyoruz. Adı "WebBrowser2"

formdaki resim doğrulama alanına girildiğinde olayına

Kod:

Dim HTML_Body As Object, HTML_Img As Object, MyImg As Object

Set HTML_Body = WebBrowser1.Document.All.tags("Body").Item(0)

        Set HTML_Img = HTML_Body.GetElementsByTagName("img")

        Set MyImg = HTML_Img(0)

 

        imgurl = MyImg.src

        WebBrowser2.Navigate2 imgurl

        

        Set HTML_Body = Nothing

        Set HTML_Img = Nothing

        Set MyImg = Nothing

        Set IE = Nothing

kodunu yazıyoruz. bu şekilde webbrowser1deki resmi webbrowser2'ye aktaracak. bu koddaki kilit nokta "Set MyImg = HTML_Img(0)"
eğer formdaki doğrulama resmine (webbrowser2) farklı bir resim gösterirse koddaki 0'ı değiştireceksiniz. formdaki kaçıncı resim olduğunun bilinmesi zor, o yüzden deneme-yanılma ile buluyoruz. bizim web sayfamızda sadece 1 tane resim olduğu için 0 yazdık.

sorgulama sayfasını sağ tıklayıp "Sayfa Kaynağını Göster"i tıklayıp web sayfasının sayfa kaynağını açıyoruz.

[Resim: kod.jpg]

Resimde de görüldüğü gibi bu sayfada "name" tanımlandığı için resim doğrulama alanının "bilmece", tckimlikno alanının "kimlikNo", sorgulama butonunun adını "sorguTipiTC" olduğunu görüyoruz.

formdaki sorgulama butonuna aşağıdaki kodu yazıyoruz.

Kod:

WebBrowser1.Document.All("kimlikNo").Value = TcKimlik.Value

    WebBrowser1.Document.All("bilmece").Value = RESİMDOĞRULAMA.Value

    WebBrowser1.Document.All("sorguTipiTC").Click

bu şekilde formdaki verileri webbrowser1'deki web sayfasına gönderecek ve sorgulayacak.

sorglama sonucunun gösterildiği web sayfasının kaynak kodunu açıyoruz.
kaynak koddaki <TABLE> ile </TABLE> arasını enot defterine veya frontpage'ye kopyalıyoruz. Buradaki sorgu sonucundaki ad, soyad, tckimlikno ve adres bilgilerinin yazıldığı satırlara göre aşağıdaki kodu yazıyoruz.

Kod:

Me.txtTcKimlik = IE.Document.All.tags("table").Item(0).Rows(0).Cells(1).innerText

            Me.txtSoyadi = IE.Document.All.tags("table").Item(0).Rows(2).Cells(1).innerText

            Me.txtAdi.Value = IE.Document.All.tags("table").Item(0).Rows(4).Cells(1).innerText

            Me.txtAdres.Value = IE.Document.All.tags("table").Item(0).Rows(7).Cells(1).innerText

kodların nereye yazıldığını 1. mesajdaki uygulamayı açıp inceleyiniz.

webbrowser'a veri göndermek ve aynı vebbrowserdaki sonuç verisini alırken çakışma olmaması için forma "ProgressBar" ekleyip Komut22'nin tıklandığında olayında

Kod:

WebBrowser1.Document.All("kimlikNo").Value = TcKimlik.Value

    WebBrowser1.Document.All("bilmece").Value = RESİMDOĞRULAMA.Value

    WebBrowser1.Document.All("sorguTipiTC").Click



    Etiket86.Visible = False

    ProgressBar1.Visible = True

 



 For A = 1 To 100

 ProgressBar1.Value = A

       For B = 1 To 100000

    Next B

Next A

MsgBox "Girdiğiniz TC Kimlik Numarası Sorgulansın mı?", 48, "UYARI"



  ProgressBar1.Visible = False



Call Aktar

Requery

şeklinde kod ekliyoruz. bu şekilde sorgulama yaptıktan sonra "Girdiğiniz TC Kimlik Numarası Sorgulansın mı" şeklinde mesaj kutusu çıkacak, bu esnada webbrowser yenilenecek ve tamam'ı tıkladığınızda sonuç forma yansıyacak.

Mevzuyu anlatmaya çalıştım ama bu şekilde aydınlatıcı oldumu emin değilim.

web üzerinden sorgulama uygulaması yapacak arkadaşlara tek tavsiyem: "UZAK DURUN"