Skip to main content

AccessTr.neT


ListBox Ve TextBox

ListBox Ve TextBox

Çözüldü #1
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
[Resim: do.php?imgf=153931671719921.gif]

-->.Net İle Kullanıcı Girişi, Üye Ol, Şifre Değiştirme
-->CSS İle Menü Hazırlama
Cevapla
Çözüldü #2
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.
Cevapla
Çözüldü #3
Teşekkürler Sn.BlackEagle Img-grin
[Resim: do.php?imgf=153931671719921.gif]

-->.Net İle Kullanıcı Girişi, Üye Ol, Şifre Değiştirme
-->CSS İle Menü Hazırlama
Cevapla
Çözüldü #4
Sanırım probleminiz çözüldü değil mi? Konuyu cevaplanmış bölümüne taşıyabiliriz o halde.
Cevapla
Çözüldü #5
Evet Taşıyabilirsiniz. Sağolun Tekrar Lol
[Resim: do.php?imgf=153931671719921.gif]

-->.Net İle Kullanıcı Girişi, Üye Ol, Şifre Değiştirme
-->CSS İle Menü Hazırlama
Cevapla
#6
(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?
prtkl, 09-03-2010 tarihinden beri AccessTr.neT üyesidir
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task