Bu örneğimizde ComboBox nesnesine daha önceden atamış olduğumuz veriler dahilinde, seçim yapıldığında o seçime ait veriler listelenmektedir.
Kodlar ComboBox.SelectedIndexChanged eventine yazılmaktadır.
En üste kütüphanelerimizi ekliyoruz:
Imports System.Data Imports System.Data.OleDb
Bağlantımızı oluşturuyoruz:
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=veriler.mdb"
Veritabanımıza uygun bağlantı cümlemizi oluşturuyoruz:
Dim komut As New OleDbCommand("select * from bilgiler where veri='" + ComboBox1.SelectedItem + "'", baglanti)
Bağlantımızı açıp okuma işlemine geçiyoruz:
baglanti.Open()
Dim dr As OleDbDataReader
dr = komut.ExecuteReader
If dr.HasRows() Then
While dr.Read()
Label5.Text = "Veri 1: " + dr("veri1")
Label6.Text = "Veri 2: " + dr("veri2")
Label7.Text = "Veri 3: " + dr("veri3")
End While
End If
dr.Close()
baglanti.Close()
Evet, işlem bu kadar basit!