per ADO auf Oracle-DB schreiben
22.02.2017 12:47:55
Joachim
ich will Datensätze in einer Oracle-DB per VBA aktualisieren. Früher hatte ich das schon mal mit einer MySQL-DB gemacht. Davon hab ich den Code genommen und angepasst, wobei das mit der MySQL-DB auch nicht mehr geht. Vielleicht muss ich noch unter Extras/Verweise was anhaken, bzw. mir wurde ein neuer PC hingestellt, wo evtl. nicht alles nötige installiert wurde.
Hier die Codes:
Private Sub ConnectDB()
Dim oConn As New ADODB.Connection
oConn.Open "DRIVER={Microsoft ODBC for Oracle}; SERVER=10.1.xxx.xxx; DATABASE=aaaa; USER=bbb; _
PASSWORD=123abc; Option=3"
End Sub
Private Sub schreiben()
Dim rs As New ADODB.Connection
Dim strSQL As String
Dim fdh As String
Dim wst As Integer
Dim est As Integer
fdh = Sheets("Import").Range("A2").Value
wst = Sheets("Import").Range("E2").Value
est = Sheets("Import").Range("F2").Value
ConnectDB
strSQL = "UPDATE liegenschaften SET wetterstation_nr = " & wst & ", ersatzstation = " & est & " _
_
WHERE liegenschaft_nr = " & fdh & " "
rs.Open strSQL, oConn
End Sub
Es kommt der Laufzeitfehler -2147467259 (80004005) Automatisierungsfehler, Unbekannter Fehler (bei beiden Subs)
Woran könnte das liegen?
Gruß
Joachim