bak şimdi çok açık ve anlaşılır oldu. hiç bilmeyen biri ilk yazdığın mesajdan bunları çıkarabilir mi?
sorunun cevabına gelirsek. her tıklandığında veritabanından sorgu yapmasının mantığı yok. ilk açılışta tüm verileri alır. kendi içinde taramasını yapar. mesela datagridde attır verileri. ve adamın seçtiği dersi datagridde tarattır. eğer varsa ona göre ilgili kolonlardaki verileri textboxa getirirsin..
Dim data As OleDbDataReader
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source=" & yol & "\ders.mdb")
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = "select * from tablo where Dersadi='" & ListBox1.Text & "' "
data = komut.ExecuteReader
If data.Read = True Then
TextBox1.Text = data.Item(0)
TextBox2.Text = data.Item(1)
TextBox3.Text = data.Item(2)
TextBox4.Text = data.Item(3)
TextBox5.Text = data.Item(4)
Else
MsgBox("kayıt yok")
End If
komut.Parameters.Clear()BU şekil bir şey yaptım fakat yine calışmıyor çözüm yolunuz var mı ?
Listbox dan bir dersi seçtiğim de verdiği hata :
Index was outside the bounds of the array.