Fehlerbehebung durch Option strict

  • VB.NET
  • .NET 5–6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von DTF.

    Fehlerbehebung durch Option strict

    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.

    VB.NET-Quellcode

    1. mysqlError = {myerror.Message, myerror.Number}
    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

    VB.NET-Quellcode

    1. Dim mysqlError As String


    Hier der ganze Code:

    VB.NET-Quellcode

    1. 'importieren von MySql
    2. Imports MySql.Data.MySqlClient
    3. Module dbConnect
    4. 'die Verbindung zur Datenbank definieren, damit von überall her darauf zugegriffen werden kann
    5. Public con As New MySqlConnection
    7. Public Function ConnectDatabase() As String
    9. 'array defninieren
    10. Dim mysqlError As String
    12. LeseIni()
    14. Try
    16. 'Testen ob die Verbindung noch offen ist, wenn nein dann
    17. If con.State = ConnectionState.Closed Then
    19. 'VerbindungsString erstellen
    20. con.ConnectionString = "SERVER=" & druckereimanagerConnection.serverName & "; PORT=" & druckereimanagerConnection.serverPort & "; USER ID=" & druckereimanagerConnection.userName & "; PASSWORD=" & druckereimanagerConnection.userPassWd & "; CHARSET=" & druckereimanagerConnection.charset & ";"
    22. 'Verbindung öffnen
    23. con.Open()
    25. End If
    27. 'und wahr zurückgeben
    28. Return CStr(True)
    30. 'Fehler abfangen
    31. Catch myerror As MySql.Data.MySqlClient.MySqlException
    33. 'fehler meldung und fehlercode in array schreiben
    34. mysqlError = {myerror.Message, myerror.Number}
    36. 'und fehler zurück geben
    37. Return mysqlError
    39. End Try
    41. End Function
    43. End Module


    Kann mir bitte jemand einen Tipp geben?

    Danke Gebhard

    Ich vermute es kommt daher, dass Du einmal einen String definiert hast, aber dann ein String-Array befüllst.

    VB.NET-Quellcode

    1. ​Dim mysqlError As String


    VB.NET-Quellcode

    1. ​'fehler meldung und fehlercode in array schreiben
    2. mysqlError = {myerror.Message, myerror.Number}


    Warum nicht einfacher mit

    VB.NET-Quellcode

    1. ​
    2. mysqlError = myerror.Message & " " & myerror.number.toString


    ?
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at