hier erstmal der code:
|
Quellcode
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
Private Sub lstAusgabe_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstAusgabe.DoubleClick
Dim con As New Odbc.OdbcConnection
Dim cmd As New Odbc.OdbcCommand
Dim reader As Odbc.OdbcDataReader
con.ConnectionString = "Provider=MSDASQL;Driver={MySQL ODBC 3.51 Driver};Server=127.0.0.1;Uid=root;Pwd=****;Database=adressbuch;"
cmd.Connection = con
cmd.CommandText = "SELECT * FROM adressbuch"
con.Open()
reader = cmd.ExecuteReader()
reader.Read()
If lstAusgabe.Text = reader("Name") Then
anschauen.Show()
anschauen.txtName.Text = reader("Name")
End If
End Sub
|
das problem:
in der lstAusgabe wird eine spalte aus einer mysql datenbank dargestellt (reader("Name").
wenn mann jetzt auf einen eintrag doppelklickt, und nur auf einen eintrag ( das soll mit "If lstAusgabe.Text = reader("Name") Then" passieren, es funktioniert aber nur beim obersten eintrag der liste) soll sich ein neues fenster öffnen mit anderen spalten.
und genau das funktioniert nicht.
wenn ich
|
Quellcode
|
1
2
|
anschauen.txtNName.Text = reader("Nname")
'...
|
schreiben, dann kommt das nur von dem ersten eintrag.
ich hab es schon mit cmd.CommandText = "SELECT * FROM adressbuch WHERE `Name` = " & reader("Name") & "" ausprobiert, aber es geht einfach nicht.
wenigstens halbwegs verstanden?