ODBC Error

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von INOPIAE.

    ODBC Error

    Hallo,

    ich möchte schnell einen Datensatz duplizieren. Dafür habe ich folgenden Code:



    Visual Basic-Quellcode

    1. Set Rs = Db_PVZVODBC.OpenRecordset("SELECT * FROM DAT_001 WHERE 1=0", dbOpenDynaset, PVZV_ExecDirect, dbPessimistic)
    2. Set Rs_Lt = Db_PVZVODBC.OpenRecordset("SELECT * FROM DAT_001 WHERE BARCODE = '" + Me.Lb_Field0(I) + "'", _
    3. dbOpenDynaset, PVZV_ExecDirect, dbPessimistic)
    4. Rs.AddNew
    5. For II = 0 To Rs_Lt.Fields.Count - 1
    6. Rs.Fields(II) = Rs_Lt.Fields(II)
    7. Next
    9. With Rs
    10. !Zaehler = New_Nummer()
    11. .Update
    12. .Bookmark = Rs.LastModified
    13. End With




    Allerdings bekomme ich bei Update den odbc Fehler 3146. Kann mir kurz jemand helfen und erklären was ich falsch mache?