Hallo ,
ich arbeite mit Visual Basic 2010
ich habe eine Funktion -> ErmittelCloudZugangsdaten() --> diese löst die Exception Fehlermeldung aus dass der Typinitialisierer eine Ausnahme verursacht
komme nicht daarauf wieso ????? bitte helfen danke ??????
Verschoben. ~Thunderbolt
ich arbeite mit Visual Basic 2010
ich habe eine Funktion -> ErmittelCloudZugangsdaten() --> diese löst die Exception Fehlermeldung aus dass der Typinitialisierer eine Ausnahme verursacht
komme nicht daarauf wieso ????? bitte helfen danke ??????
VB.NET-Quellcode
- Public Sub ErmittleCloudZugangsdaten()
- Dim MySQLConnection As SqlConnection
- Dim MySQLCommand As SqlCommand
- Dim MySQLReader As SqlDataReader
- MySQLConnection = New SqlConnection(GetConnectionStringRepository())
- MySQLCommand = MySQLConnection.CreateCommand
- MySQLCommand.CommandText = "SELECT * FROM tbl_Cloud "
- '
- MySQLConnection.Open()
- MySQLReader = MySQLCommand.ExecuteReader
- '
- Do While MySQLReader.Read()
- GlobalSuxxeedCloudIP = Trim(MySQLReader("SQLServer").ToString)
- GlobalSuxxeedCloudInstanzname = Trim(MySQLReader("SQLInstanz").ToString)
- GlobalSuxxeedCloudDatenbankname = Trim(MySQLReader("SQLDatenbank").ToString)
- GlobalSuxxeedCloudBenutzername = Trim(MySQLReader("SQLBenutzername").ToString)
- GlobalSuxxeedCloudPasswort = Trim(MySQLReader("SQLKennwort").ToString)
- Loop
- '
- MySQLReader.Close()
- MySQLConnection.Close()
- MySQLReader.Dispose()
- MySQLCommand.Dispose()
- MySQLConnection.Dispose()
- End Sub
- ' Ermittelt den Verbindungsstring für die Data-Cloud
- Public Function GetConnectionStringSUXXEEDCloud() As String
- GetConnectionStringSUXXEEDCloud = "server=" & EncodeStr(GlobalSuxxeedCloudIP, GlobalPasswort) & "\" & EncodeStr(GlobalSuxxeedCloudInstanzname, GlobalPasswort) & ";uid=" & EncodeStr(GlobalSuxxeedCloudBenutzername, GlobalPasswort) & ";pwd=" & EncodeStr(GlobalSuxxeedCloudPasswort, GlobalPasswort) & ";database=" & EncodeStr(GlobalSuxxeedCloudDatenbankname, GlobalPasswort)
- End Function
Verschoben. ~Thunderbolt
