Hallo zusammen,
ich versuche die ganze Zeit mit Hilfe von VBA eine Oracle-DB aktualisieren. Doch leider mag mir das nicht recht gelingen.
Ich habe folgenden Code:
Der update-Befehl funktioniert eigentlich auch, doch leider bekomme ich immer die nachfolgende Fehlermeldung: "Pass-through query with ReturnsRecords property set to True did not return any records." Ich denke mal das bedeutet, daß eine update-Anwesung nix zurückliefert, wie z.B. eine select-Anweisung.
Hat jemand eine Idee, wie ich das Problem lösen kann?
Oder geht es vielleicht auch mit .Execute irgendwie??
Ich hoffe mir hilft jemand. Es ist sehr wichtig.
Vielen Dank
Stefan
ich versuche die ganze Zeit mit Hilfe von VBA eine Oracle-DB aktualisieren. Doch leider mag mir das nicht recht gelingen.
Ich habe folgenden Code:
Quellcode
- Sub update()
- Dim sql As String
- Dim db As DAO.Database
- Dim qdf As DAO.QueryDef
- Dim ConnectStr As String
- sql = "update produkt set funktionspruefungsnummer ='pruef05' where pk_seriennummer='EGe00000000'"
- ConnectStr = "ODBC; UID=data; PWD=data; DSN=barcode"
- Set db = OpenDatabase("", False, False, ConnectStr)
- Set qdf = db.CreateQueryDef("", sql)
- With qdf
- .Connect = ConnectStr
- .OpenRecordset
- End With
- db.Close
- End Sub
Der update-Befehl funktioniert eigentlich auch, doch leider bekomme ich immer die nachfolgende Fehlermeldung: "Pass-through query with ReturnsRecords property set to True did not return any records." Ich denke mal das bedeutet, daß eine update-Anwesung nix zurückliefert, wie z.B. eine select-Anweisung.
Hat jemand eine Idee, wie ich das Problem lösen kann?
Oder geht es vielleicht auch mit .Execute irgendwie??
Ich hoffe mir hilft jemand. Es ist sehr wichtig.
Vielen Dank
Stefan