Pehlivan, Konuyu alıntı Aldım, Onun için Yardımcı Olamicam,

kanka vb 6.0 da nasıl yapılır bu webreferans

muhahahahahah süpersin

Peki bu yöntemi kullanarak sadece isim ve soy isim vererek arama yapamaz mıyız? Ya da aynı ad-soyadda olanları listeleyemez miyiz?

kanka web referans ansıl ekleniyo :s

ya bi düşünsene böyle bişey olduğunu... biraz üstünde çalış istersen.. sen yaparsın..

Teşekkürler Japon_HackeR iYi Paylaşım

Bu program site üzerinden çalışıyor. İsimlere ya da soyada göre sıralama yapamazsın. Çünkü sadece isim ve soy isim vererek sorgulama

TC Kimlik No Alan VB Kodu öncelikle bu iş için formunuza 8 adet textbox 1 adet buton ve web referans ekleyin textbox isimleri: TxtTCno txtAdi 'string olacak txtSoyadi 'string olacak txtAnadi 'string olacak txtBabadi 'string olacak txtCinsii '1 veya 2 olacak 1=erkek 2 = kadın anlamında txtDyili '4 basamaklı yıl olacak (integer, ör:1988) txtIlceListi '4 basamaklı ilçe numarası olacak not: tüm ilçe numaralarına ulaşamadım. belki hazırda bulunan bi siteden hepsini indirerek bu textbox u select box haline çevirerek tüm illeri burda yerleşik olarak kullanmayı deneyebilirsiniz ben kullanırken http://tckimlik.nvi.gov.tr/Web/QueryIdentityNumber.aspx sayfasının kaynak kodlarından yaralanarak birkaç defa test yapmıştım sadece, bu kaynak kodlarından kullanacağım ilçenin ID sine ulaşmıştım buton ismi: btnSorgula webreferans: webreferans eklemeyi bilmeyen visual studio kullanan arkadaşlara daha anlaşılır olsun diye çok yalın anlatıcam. visual studio da yeni projemizi açtıkdan sonra sağ köşedeki solution explorer menüsünde "web references" maddesine sağ tıklayarak "add web references" i seçin sonra web referans adresi olarak http://tckimlik.nvi.gov.tr/kpspublic. asmx?WSDL adresini girin ve ekleyin yukardaki işlemleri eksiksiz bi şekilde yaptıysanız Inherits System. Windows. Forms. Form satırını formunuzun >public class form1 ve >end class satırlarının ARASINDA ve EN ÜST e ekleyni ve yine bu public class ın içine aşağıdaki kodları ekleyin Function GetTcNo Dim serv As tr. gov. nvi. tckimlik. KPSPublicWebService = New tr. gov. nvi. tckimlik. KPSPublicWebService Dim getirVeri As tr. gov. nvi. tckimlik. TemelBilgilerdenKimlikBilgisi = New tr. gov. nvi. tckimlik. TemelBilgilerdenKimlikBilgisi getirVeri. Ad = ad getirVeri. Soyad = Soyad getirVeri. AnaAd = Anad getirVeri. BabaAd = Babad getirVeri. IlceKod = CInt getirVeri. Cinsiyet = CInt getirVeri. DogumYil = CInt Try TxtTCno. Text = "Bekleyin" Dim tcNo1 As tr. gov. nvi. tckimlik. KimlikBilgisi = serv. KisiBilgisindenKimlikBilgisiSorgula TxtTCno. Text = tcNo1. TCKimlikNo txtAdi. Text = tcNo1. Ad txtSoyadi. Text = tcNo1. Soyad txtAnadi. Text = tcNo1. AnaAd txtBabadi. Text = tcNo1. BabaAd txtDyili. Text = tcNo1. DogumYil Select Case tcNo1. Cinsiyet Case tr. gov. nvi. tckimlik. CinsiyetTipi. Erkek cinsi = 1 Case tr. gov. nvi. tckimlik. CinsiyetTipi. Kadin cinsi = 2 End Select MsgBox("TC. Kimlik Nunmarası: " & tcNo1. TCKimlikNo, 64, "Tc Kimlik No, SimasheR") Catch ex As Exception MsgBox("Girilen Verilere Uyan Vatandaş Bulunamadı", 64, "Tc Kimlik No") End Try End Function Private Sub sorgula_Click Handles btnSorgula. Click Call GetTcNo End Sub