-> Hier kostenlos registrieren
Hallo,
ich bin mittlerweile am verzweifeln. Ich versuche über ein VB-Skript eine Verbindung zu einer MySQL-Datenbank aufzubauen. Selbst vom Siemens-Support habe ich bisher noch keine Lösung zu meinem Problem bekommen.
Jetzt aber zu meinem Problem:
ich habe mir ein VB-Skript erstellt, indem ich folgendermaßen eine Verbindung zur MySQL-Datenbank aufbauen will...
"db_server = "localhost"
db_port = "3306"
db_user = "root"
db_pass = "root"
db_name = "Rezeptverwaltung"
On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
strConnectString = "{DRIVER=MySQL ODBC 8.0 Unicode Driver};SERVER=" & db_server & ";DATABASE=" & db_name &";UID=" & db_user & ";PWD=" & db_pass & "; OPTION=3"
conn.open strConnectString
Set rs = CreateObject("ADODB.recordset")
if Err.Number <> 0 then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
Set conn = Nothing
Exit Sub
End if
Sql = "Select * From Programme"
Set res = conn.Execute(Sql)"
Wenn ich nun das Skript in der Runtime aufrufe bekomme ich die Fehlermeldung:
"Error #-2147467259 [Microsoft][ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und es wurde kein Standardtreiber angegeben"
Im Anhang habe ich noch ein paar Bilder von der Einstellung die ich in den Datenquellen von Windows gemacht habe. Achja...den ODBC-Treiber von MySQL hab ich in der 32-Bit und in der 64-Bit-Version installiert gehabt.
Hoffe von euch kann mir jemand weiterhelfen.
mfg
Alex
ich bin mittlerweile am verzweifeln. Ich versuche über ein VB-Skript eine Verbindung zu einer MySQL-Datenbank aufzubauen. Selbst vom Siemens-Support habe ich bisher noch keine Lösung zu meinem Problem bekommen.
Jetzt aber zu meinem Problem:
ich habe mir ein VB-Skript erstellt, indem ich folgendermaßen eine Verbindung zur MySQL-Datenbank aufbauen will...
"db_server = "localhost"
db_port = "3306"
db_user = "root"
db_pass = "root"
db_name = "Rezeptverwaltung"
On Error Resume Next
Set conn = CreateObject("ADODB.Connection")
strConnectString = "{DRIVER=MySQL ODBC 8.0 Unicode Driver};SERVER=" & db_server & ";DATABASE=" & db_name &";UID=" & db_user & ";PWD=" & db_pass & "; OPTION=3"
conn.open strConnectString
Set rs = CreateObject("ADODB.recordset")
if Err.Number <> 0 then
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
Set conn = Nothing
Exit Sub
End if
Sql = "Select * From Programme"
Set res = conn.Execute(Sql)"
Wenn ich nun das Skript in der Runtime aufrufe bekomme ich die Fehlermeldung:
"Error #-2147467259 [Microsoft][ODBC Driver Manager] Der Datenquellenname wurde nicht gefunden, und es wurde kein Standardtreiber angegeben"
Im Anhang habe ich noch ein paar Bilder von der Einstellung die ich in den Datenquellen von Windows gemacht habe. Achja...den ODBC-Treiber von MySQL hab ich in der 32-Bit und in der 64-Bit-Version installiert gehabt.
Hoffe von euch kann mir jemand weiterhelfen.
mfg
Alex