Hallo zusammen bin vb neuling und ´folgendes Problem:
die mesagebox soll daten aus mysql anzeigen drei felder der tabelle aber nix tutu sich..
fehlermeldung keine.. der ausgewählte soll übergeben werden und zwar die tid
die mesagebox soll daten aus mysql anzeigen drei felder der tabelle aber nix tutu sich..
fehlermeldung keine.. der ausgewählte soll übergeben werden und zwar die tid
Code:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim con As New Odbc.OdbcConnection
Dim cmd As New Odbc.OdbcCommand
Dim reader As Odbc.OdbcDataReader
con.ConnectionString = "DSN=odbc_tserver"
con.ConnectionString = "Provider=MSDASQL;" _
& "Driver={MySQL ODBC 5.1 Driver};" _
& "Server=192.168.178.0;UID=ich;PASSWORD=du; " _
& "database=lenz"
cmd.Connection = con
cmd.CommandText = "select name jahr tid from lenz_turnier order by jahr DESC"
Try
con.Open()
reader = cmd.ExecuteReader()
lstTab.Items.Clear()
Do While reader.Read()
ComboBox1.Items.Add("TID :" & reader("tid") & " Jahr " _
& reader("jahr") & " Turnier " _
& reader("name"))
Loop
reader.Close()
con.Close()
Catch ex1 As Exception
ComboBox1.Items.Add(ex1.Message)
End Try
End Sub
Zuletzt bearbeitet: