Hallo, also hier ist mein Code:
Dim S_Con As New MySql.Data.MySqlClient.MySqlConnection
Dim S_String As String
Dim Command As New MySql.Data.MySqlClient.MySqlCommand
Dim READER As MySql.Data.MySqlClient.MySqlDataReader
Try
S_String = "SELECT ort FROM v_orte ORDER BY ort ASC"
Command.CommandText = S_String
S_Con.ConnectionString =
Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;
-->> ConnString ist korrekt!!!
Console.WriteLine(S_Con.ConnectionString)
-->> Hier wird der ConString umgewandelt
S_Con.Open()
-->> Ab hier falsch verarbeitet.
Console.WriteLine(S_Con.State)
READER = Command.ExecuteReader
Console.WriteLine(READER.HasRows)
While (READER.Read)
cboOrt.Items.Add(READER("ort"))
Console.WriteLine(READER("ort"))
End While
S_Con.Close()
Console.WriteLine(S_Con.State)
Catch ex As Exception
MsgBox(ex.Message)
S_Con.Close()
Exit Sub
Es soll lediglich eine Spalte ausgelesen werden und diese in eine ComboBox eingelesen werden.
End try
