Hallo liebes Forum
Ich überarbeite gerade mein Projekt (Fehlerbehebung durch Option strict - ON)
Ich habe ein Modul in dem ich definiere überall auf die db zugreifen zu können. Bei Option strict - OFF funktioniert das Modul. Option strict - ON wird folgender Teil mit roten wellenlinien unterstrichen.
und folgende Meldung ausgegeben.
Der Wert vom Typ "Object()" kann nicht in "String" konvertiert werden.
Ich verstehe nicht..... Auf was bezieht sich das Object? Ich sage doch
Hier der ganze Code:
Kann mir bitte jemand einen Tipp geben?
Danke Gebhard
Ich überarbeite gerade mein Projekt (Fehlerbehebung durch Option strict - ON)
Ich habe ein Modul in dem ich definiere überall auf die db zugreifen zu können. Bei Option strict - OFF funktioniert das Modul. Option strict - ON wird folgender Teil mit roten wellenlinien unterstrichen.
und folgende Meldung ausgegeben.
Der Wert vom Typ "Object()" kann nicht in "String" konvertiert werden.
Ich verstehe nicht..... Auf was bezieht sich das Object? Ich sage doch
Hier der ganze Code:
VB.NET-Quellcode
- 'importieren von MySql
- Imports MySql.Data.MySqlClient
- Module dbConnect
- 'die Verbindung zur Datenbank definieren, damit von überall her darauf zugegriffen werden kann
- Public con As New MySqlConnection
- Public Function ConnectDatabase() As String
- 'array defninieren
- Dim mysqlError As String
- LeseIni()
- Try
- 'Testen ob die Verbindung noch offen ist, wenn nein dann
- If con.State = ConnectionState.Closed Then
- 'VerbindungsString erstellen
- con.ConnectionString = "SERVER=" & druckereimanagerConnection.serverName & "; PORT=" & druckereimanagerConnection.serverPort & "; USER ID=" & druckereimanagerConnection.userName & "; PASSWORD=" & druckereimanagerConnection.userPassWd & "; CHARSET=" & druckereimanagerConnection.charset & ";"
- 'Verbindung öffnen
- con.Open()
- End If
- 'und wahr zurückgeben
- Return CStr(True)
- 'Fehler abfangen
- Catch myerror As MySql.Data.MySqlClient.MySqlException
- 'fehler meldung und fehlercode in array schreiben
- mysqlError = {myerror.Message, myerror.Number}
- 'und fehler zurück geben
- Return mysqlError
- End Try
- End Function
- End Module
Kann mir bitte jemand einen Tipp geben?
Danke Gebhard