SQL Veritabanından Windows Form'daki Listbox'lara Veri Aktarımı
' Bir SQL Veritabanından verileri okuyarak windows formdaki listbox'lara sırayla gönderir
' SELECT komutundan sonra gelen * TabloAdi tablosunun bütün alanları seçilecek anlamına gelir
' Aşağıdaki kodlamayı sadece veritabanı ile ilgili kısımları değiştirerek ve 5 listbox'tan oluşan bir form hazırlayarak formun pageload'una eklemeniz gerekir
' Dikkat ediniz ki tablonun ilk alanı integer, diğerleri string
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
myConn = New SqlConnection("Initial Catalog=VeriTabani;" &
"Server=localhost\SQLEXPRESS;Database=VeriTabaniIsmi;Trusted_Connection=True;")
myCmd = myConn.CreateCommand
myCmd.CommandText = "SELECT * from TabloAdi"
myConn.Open()
myReader = myCmd.ExecuteReader()
Do While myReader.Read()
ListBox1.Items.Add(myReader.GetInt32(0))
ListBox2.Items.Add(myReader.GetString(1))
ListBox3.Items.Add(myReader.GetString(2))
ListBox4.Items.Add(myReader.GetString(3))
ListBox5.Items.Add("bu şekilde bir metin de olabilir")
Loop
myReader.Close()
myConn.Close()
End Sub
' SELECT komutundan sonra gelen * TabloAdi tablosunun bütün alanları seçilecek anlamına gelir
' Aşağıdaki kodlamayı sadece veritabanı ile ilgili kısımları değiştirerek ve 5 listbox'tan oluşan bir form hazırlayarak formun pageload'una eklemeniz gerekir
' Dikkat ediniz ki tablonun ilk alanı integer, diğerleri string
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
myConn = New SqlConnection("Initial Catalog=VeriTabani;" &
"Server=localhost\SQLEXPRESS;Database=VeriTabaniIsmi;Trusted_Connection=True;")
myCmd = myConn.CreateCommand
myCmd.CommandText = "SELECT * from TabloAdi"
myConn.Open()
myReader = myCmd.ExecuteReader()
Do While myReader.Read()
ListBox1.Items.Add(myReader.GetInt32(0))
ListBox2.Items.Add(myReader.GetString(1))
ListBox3.Items.Add(myReader.GetString(2))
ListBox4.Items.Add(myReader.GetString(3))
ListBox5.Items.Add("bu şekilde bir metin de olabilir")
Loop
myReader.Close()
myConn.Close()
End Sub
Yorumlar
Yorum Gönder