AccessTr.neT

Bul · 10/04/2011, 22:57

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

Bul · 10/04/2011, 22:58

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.

Bul · 10/04/2011, 23:00

Teşekkürler Sn.BlackEagle Img-grin

Bul · 10/04/2011, 23:04

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

Bul · 10/04/2011, 23:08

Evet Taşıyabilirsiniz. Sağolun Tekrar Lol

Bul · 14/10/2015, 12:53

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

AccessTr.neT

ListBox Ve TextBox

ListBox Ve TextBox

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri