ListBox Ve TextBox - Baskı Önizleme

ListBox Ve TextBox - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: ListBox Ve TextBox (/konu-listbox-ve-textbox.html)

Sayfalar: 1 2

ListBox Ve TextBox - ~~KaG~~ - 10/04/2011

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

Cvp: ListBox Ve TextBox - ercansahin - 10/04/2011

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.

Cvp: ListBox Ve TextBox - ~~KaG~~ - 10/04/2011

Teşekkürler Sn.BlackEagle Img-grin

Cvp: ListBox Ve TextBox - ercansahin - 10/04/2011

Sanırım probleminiz çözüldü değil mi? Konuyu cevaplanmış bölümüne taşıyabiliriz o halde.

Cvp: ListBox Ve TextBox - ~~KaG~~ - 10/04/2011

Evet Taşıyabilirsiniz. Sağolun Tekrar Lol

Cvp: ListBox Ve TextBox - prtkl - 14/10/2015

(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?