GutenTag zusammen ich bekomme es irgenwie als neuling nicht hin eine combobox mit mysqldaten zu füllen. es sollen drei felder namens tid name jahr angezeigt werden.
Danach soll vom ausgewählte wert die tid an ein anderes sub übergeben werden.
Hier mal mein versuch
Danach soll vom ausgewählte wert die tid an ein anderes sub übergeben werden.
Hier mal mein versuch
VB.NET-Quellcode
- Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
- Dim con As New Odbc.OdbcConnectionDim cmd As New Odbc.OdbcCommand
- Dim reader As Odbc.OdbcDataReaderDim ds As New ArrayList
- con.ConnectionString = "DSN=odbc_tserver"con.ConnectionString = "Provider=MSDASQL;" _
- & "Driver={MySQL ODBC 5.1 Driver};" _& "Server=192.168.178.10;UID=ich;PASSWORD=passwort; " _
- & "database=name"
- cmd.Connection = con
- cmd.CommandText = "select name jahr tid from lenz_turnier order by jahr DESC"
- Try
- con.Open()
- reader = cmd.ExecuteReader()
- ComboBox1.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