steve101177
Level-1
- Beiträge
- 8
- Reaktionspunkte
- 0
-> Hier kostenlos registrieren
Hallo,
nutze per Global Skript um eine Verbindung zur einer Oracle Datenbank auf zubauen, um dort Daten abzugreifen und auch Daten zu schreiben.
Jetzt habe ich eine Neue Datenbank erhalten bekomme aber keine Verbindung hin.
Befehl Zur Verbindung sieht so aus:
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
'conn.Open = "Provider=OraOLEDB.Oracle.1;
' Data Source=STECWOVWO003-ORA.wob.vw.vwg/SITECHBO;
' User ID=SCOTT;
' Password=**********;
' Persist Security Info=True;Unicode=True;"
conn.Open = "Provider=OraOLEDB.Oracle.1;
Data Source=wob-ora-office-scan.brose.net/ora_wob_sitechbo_ha;
User ID=Meb;
Password=***********;
Persist Security Info=True;
Unicode=True;"
'Fehlerroutine
If Err.Number <> 0 Then
HMIRuntime.Trace "Datenbank Verbindung Gestört"
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
HMIRuntime.Trace "NOK-"
Set conn = Nothing
Exit Sub
End If
Die obere Verbindung ist die alte Datenbank.
Das einzige was die Datenbanken unterscheidet sind: das ich bei der alten Datenbank eine SID Namen hatte und die neue einen Service Name.
kann mir einer da weiterhelfen?
Danke
nutze per Global Skript um eine Verbindung zur einer Oracle Datenbank auf zubauen, um dort Daten abzugreifen und auch Daten zu schreiben.
Jetzt habe ich eine Neue Datenbank erhalten bekomme aber keine Verbindung hin.
Befehl Zur Verbindung sieht so aus:
Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")
'conn.Open = "Provider=OraOLEDB.Oracle.1;
' Data Source=STECWOVWO003-ORA.wob.vw.vwg/SITECHBO;
' User ID=SCOTT;
' Password=**********;
' Persist Security Info=True;Unicode=True;"
conn.Open = "Provider=OraOLEDB.Oracle.1;
Data Source=wob-ora-office-scan.brose.net/ora_wob_sitechbo_ha;
User ID=Meb;
Password=***********;
Persist Security Info=True;
Unicode=True;"
'Fehlerroutine
If Err.Number <> 0 Then
HMIRuntime.Trace "Datenbank Verbindung Gestört"
ShowSystemAlarm "Error #" & Err.Number & " " & Err.Description
Err.Clear
HMIRuntime.Trace "NOK-"
Set conn = Nothing
Exit Sub
End If
Die obere Verbindung ist die alte Datenbank.
Das einzige was die Datenbanken unterscheidet sind: das ich bei der alten Datenbank eine SID Namen hatte und die neue einen Service Name.
kann mir einer da weiterhelfen?
Danke