Hallo zusammen
Was mache ich schon wieder falsch???
Ich versuche zu prüfen ob eine Verbindung zu MySql-Server besteht. Es wird aber ein Fehler an folgender Programmzeile angzeigt.
Hier ein kleiner Ausschnitt:
Warum
Gruß Gebhard
Was mache ich schon wieder falsch???
Ich versuche zu prüfen ob eine Verbindung zu MySql-Server besteht. Es wird aber ein Fehler an folgender Programmzeile angzeigt.
Hier ein kleiner Ausschnitt:
VB.NET-Quellcode
- 'prüfen ob connect funktion fehlerarray zurückgibt
- Dim myConnectArray = ConnectDatabase()
- If IsArray(myConnectArray) Then
- 'wenn ja, dann fehlermeldung anzeigen
- MessageBox.Show(TM_ERROR_MESSAGE_CONNECTION_TO_SERVER_COULD_NOT_OPEN & vbCrLf & myConnectArray(0) & vbCrLf & "Errorcode: " & myConnectArray(1), TM_ERROR_TYPE_MYSQL_SERVER_CONNECTION, MessageBoxButtons.OK, MessageBoxIcon.Error)
- ElseIf myConnectArray = vbBoolean And myConnectArray = True Then
- 'wenn nein und rückgabe = wahr
- 'erfolg anzeigen
- If myDebug = True Then MessageBox.Show(TM_ERROR_MESSAGE_CONNECTION_OPEN, TM_ERROR_TYPE_MYSQL_SERVER_CONNECTION, MessageBoxButtons.OK, MessageBoxIcon.Information)
- 'connectState auf wahr setzen
- connectState = True
- Else
- 'wenn nein und rückgabe = falsch
- 'bereits bestehende Verbindung melden
- If myDebug = True Then MessageBox.Show(TM_ERROR_MESSAGE_CONNECTION_ALREADY_EXISTS, TM_ERROR_TYPE_MYSQL_SERVER_CONNECTION, MessageBoxButtons.OK, MessageBoxIcon.Information)
- 'connectState auf wahr setzen
- connectState = True
- End If
Warum
Zeichfolge True in Typ Double"?
Gruß Gebhard