ScReaM
Spys-Z
- Katılım
- 22 Eyl 2012
- Mesajlar
- 339
- Tepkime puanı
- 0
- Puanları
- 0
- Yaş
- 28
Kod:
Imports System.Data.SqlClient
Public Class Form1
'Burada bağlantı cümlemizi oluşturduk.Bu bağlantı cümlesini buraya yazmamızın sebebi buraya yazdık ve baglan ismindeki bağlantı
'cümlemizi global olarak tanımladık ve bu sayede istediğimiz kod satırında kullanabilcedeğiz.
Dim baglan As New SqlConnection("Server=localhost\Sqlserver;Database=bilgiler;Integrated Security=True")
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
'>>>>>>>>>>>>Daha Fazlası İçin GorselYazilim.Net Adresini Ziyaret Edin...<<<<<<<<<<<<<<
'Öncelikle if ile bağlantımızı kontrol ettik ve eğer bağlantı kapalı ile açması için gerekli kod satırını yazdık.
If baglan.State = ConnectionState.Closed Then baglan.Open()
'Sonra sorgu adında değişken oluşturduk ve buna kimlik tablosundaki adi ve sadi alanındaki verileri aktardık.
'Biz sadece adı v ve soyadını çekeceğimiz için adi,sadi alan adlarını yazdık başka bir alandaki verileri çekecek olsaydık o alanın
'ismini yazmamız gerekecekti.
Dim sorgu As String = "Select adi,sadi from kimlik"
'Aşağıdaki kodda ise SqlCommand sınıfından komut isminde bir nesne oluşturdu.Bu nesneye ise sorgumuzu aktardık.
Dim komut = New SqlCommand(sorgu, baglan)
'Burada ise SqlDataReaderin yaptığı işlem yukardaki komutu çalıştırıyor ve gelen verileri oku nesnesine aktarıyor.
Dim oku As SqlDataReader
oku = komut.ExecuteReader()
'Burda ise ComboBox'ı temizledik çünkü butona sürekli tıklandığında aynı verileri eklememesi için.
comboBox1.Items.Clear()
'Burda ise Do While döngüsü ile verilerimizi tek tek okuttuk ve ComboBox nesnemize aktardık.
Do While oku.Read()
'Burada şunu açıklayayım buradaki mantık şu oku diyoruz neyi okuyacak yukardaki sorgumuzu sonra ise GetString
'ile getir diyoruz neyi 0 yazmışız çünkü Select ifademizde yukarda adi başta olduğu için.
'Eğer önce soyadını sonra adını çekecek olsaydık yukardaki sorgu ifadesine göre birinci getstringe 1 ikincisine
'ise 0 yazardık.
comboBox1.Items.Add(RTrim(oku.GetString(0)) + " " + oku.GetString(1))
Loop
'İşlemimiz bittikten sonra ise her zaman baglantımızı kapatıyoruz...
baglan.Close()
End Sub
End Class
Tamamen kendi anlatımımdır gorselyazılım die sitedekide öğrencimin benden aldığıdır.