- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Merhaba arkadaşlar,
Bugünkü dersimizde DATA.MDF adlı veri tabanındaki bilgileri LİSTBOX'da göstermeyi öğrenelim.
Öncelikle VB.net 2008 ortamını açıyoruz ve Windows FORM açıyoruz. Bir BUTON, bir tane de LİSTBOX katıyoruz. Sonra da butonun olayına -çift tıklayarak- gireriz.
Aşagıdaki kodları yazıyoruz:
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim con As New SqlConnection("DataSource=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DATA.mdf;IntegratedSecurity=True;User Instance=True")con.Open()Dim komut As New SqlCommand("SELECT ADISOYADI FROM OGRENCI",con)Dim DR As SqlDataReaderDR = komut.ExecuteReader()If (DR.Read) ThenDo While DR.Read = TrueListBox1.Items.Add(DR(0).ToString)LoopEnd IfEnd Sub
Burada Ado.net teknolojisi kullanılmıştır.
Şimdiden kolay gelsin. İyi çalışmalar...
Bugünkü dersimizde DATA.MDF adlı veri tabanındaki bilgileri LİSTBOX'da göstermeyi öğrenelim.
Öncelikle VB.net 2008 ortamını açıyoruz ve Windows FORM açıyoruz. Bir BUTON, bir tane de LİSTBOX katıyoruz. Sonra da butonun olayına -çift tıklayarak- gireriz.
Aşagıdaki kodları yazıyoruz:
Kod:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim con As New SqlConnection("DataSource=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DATA.mdf;IntegratedSecurity=True;User Instance=True")con.Open()Dim komut As New SqlCommand("SELECT ADISOYADI FROM OGRENCI",con)Dim DR As SqlDataReaderDR = komut.ExecuteReader()If (DR.Read) ThenDo While DR.Read = TrueListBox1.Items.Add(DR(0).ToString)LoopEnd IfEnd Sub
Burada Ado.net teknolojisi kullanılmıştır.
Şimdiden kolay gelsin. İyi çalışmalar...