Laufzeitfehler 3709: Der angeforderte Vorgang erfordert ein OLE DB-Sitzungsobjekt, das von dem aktuellen Provider nicht unterstützt wird.

  • Word

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von KronSii.

    Laufzeitfehler 3709: Der angeforderte Vorgang erfordert ein OLE DB-Sitzungsobjekt, das von dem aktuellen Provider nicht unterstützt wird.

    Hallo,

    ich stehe gerade etwas auf dem Schlauch und hoffe ihr könnt mir weiterhelfen.
    Ich bin gerade dabei ein recht großes Word Makro zu schreiben und dabei wird des öfteren auf eine Datenbank zugegriffen. Jetzt schreibe ich gerade eine neue Abfrage, welche vor allen anderen Abfragen aufgerufen wird. Dabei erscheint die oben genannte Fehlermeldung.
    Hier zunächst einmal der Quellcode. Ich habe einige unrelevanten Stellen vereinfacht.

    Visual Basic-Quellcode

    1. Public cnn As New ADODB.Connection
    2. Public rec As New ADODB.Recordset
    5. Function CnnDatabase()
    7. On Error Resume Next
    8. cnn.Close
    10. cnn.Mode = adModeRead
    12. If Is64BitWin() = True Then '64 Bit
    13. cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    14. "Data Source=C:\Program Files (x86)\abc\abcLocal.mdb;" & _
    15. "Jet OLEDB:Database Password=" & pw & "#1;"
    17. Else '32 Bit
    18. cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    19. "Data Source=C:\Program Files\abc\abcLocal.mdb;" & _
    20. "Jet OLEDB:Database Password=" & pw & "#1;"
    21. End If
    23. End Function


    jetzt wird aus einer Userform die Folgende Funktion aufgerufen.

    Visual Basic-Quellcode

    1. Function getUser()
    3. Dim cmd As New ADODB.Command
    4. Dim oyear As Integer
    5. Dim otypenumber As Integer
    7. oyear = 2012
    8. otypenumber = 1111
    10. Call CnnDatabase
    12. rec.CursorType = adOpenKeyset
    13. rec.LockType = adLockReadOnly
    14. With cmd
    15. Set .ActiveConnection = cnn
    16. .CommandType = adCmdText
    17. .CommandText = "SELECT Orders.Orderident AS [ID], " & _
    18. "Orders.Tasknumber AS [TASK] " & _
    19. "FROM Orders " & _
    20. "WHERE Orders.OBJECTYEAR = ? AND Orders.OBJECTTYPENUMBER = ?"
    21. .Parameters.Append .CreateParameter("oyear", adSmallInt, adParamInput, 100, oyear)
    22. .Parameters.Append .CreateParameter("otypenumber", adSmallInt, adParamInput, 100, otypenumber)
    23. Set rec = .Execute
    24. End With
    26. On Error GoTo Ende:
    27. rec.MoveFirst
    28. MsgBox "ich habe etwas gefunden"
    30. Ende:
    31. MsgBox "Ende"
    32. rec.Close
    33. End Function


    In der Zeile "Set .ActiveConnection = cnn" erscheint dann die Fehlermeldung

    Das Interessante ist, dass ich in der nächsten Userform die exakt gleiche Abfrage starte und mir ein Ergebnis geliefert wird. Auch alle anderen Abfragen laufen problemlos.

    Ich hoffe ihr könnt mir weiterhelfen.

    Gruß
    KronSii

    Hau mal On Error Resume Next raus bei der CnnDatabase und dann debug mal schritt für schritt und schau ob das ConnectionObjekt auch richtig geöffnet wird.
    Das ist meine Signatur und sie wird wunderbar sein!

    Hey,

    also ich versuche es nochmal mit anderen Worten.
    Bitte entferne das On Error Resume Next in der Methode CnnDatabase() und dann durchlaufe das Programm Schritt für Schritt im Debug Modus und schau dir das Connection Objekt (cnn) mal näher an. (ist es korrekt geöffnet usw)
    Das ist meine Signatur und sie wird wunderbar sein!

    hey,

    oh hatte deine Frage falsch verstanden. Bin jetzt auf den Fehler gestoßen. Ich hatte das Passwort verschlüsselt und zum Zeitpunkt der SQL Abfrage war das Passwort noch nicht entschlüsselt.
    Danke für den Hinweis mit dem debuggen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „KronSii“ ()

Facebook
Telefonspende