Arkadaşlar ListBox1 e Tıklayınca TextBox1 de Gözüksün Kodları Unuttum Hatırladığım Kadarıyla Yazdım ama Olmadı.
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox1.SelectedItem = TextBox1.Text
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='db.mdb'")
baglanti.Open()
Dim komut As New OleDb.OleDbCommand("SELECT * FROM Tablo1 Where Nick = '" & ListBox1.SelectedItem & "'", baglanti)
Dim getir As OleDb.OleDbDataReader
getir = komut.ExecuteReader()
getir.Read()
TextBox1.Text = getir("Nick")
baglanti.Close()
End Sub
Ekleyerek denermisiniz.
Teşekkürler Sn.BlackEagle
Sanırım probleminiz çözüldü değil mi? Konuyu cevaplanmış bölümüne taşıyabiliriz o halde.
Evet Taşıyabilirsiniz. Sağolun Tekrar
(10/04/2011, 22:58)ercansahin yazdı: [ -> ]Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='db.mdb'")
baglanti.Open()
Dim komut As New OleDb.OleDbCommand("SELECT * FROM Tablo1 Where Nick = '" & ListBox1.SelectedItem & "'", baglanti)
Dim getir As OleDb.OleDbDataReader
getir = komut.ExecuteReader()
getir.Read()
TextBox1.Text = getir("Nick")
baglanti.Close()
End Sub
Ekleyerek denermisiniz.
Merhabalar rica etsem bu kodları accesse uyarlayabilir misiniz?