Problem mit Combobox und MySQL-Daten

[ronaldl]

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

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

 

[ANI]

Hallo ronaldl,

ich sehe auf den ersten Blick nur eine kleine Korrektur.

'Original
"select name jahr tid from lenz_turnier order by jahr DESC"
'Korrektur
"select name, jahr, tid from lenz_turnier order by jahr DESC"

Vielleicht wars dies schon.

Gruß ANI