Office: Laufzeitfehler 3709 bei Zugriff auf Access

digger · 17. Juni 2006

Hallo,

beim Zugriff von Excel 2003 per SQL-Befehl über eine ODBC-Verbindung auf eine Access 2003 - Datenbank kommt die folgende Fehlermeldung:

Laufzeitfehler "3709":
Die Verbindung kann nicht verwandt werden, um diesen Vorgang auszuführen. Sie ist entweder geschlossen oder in diesem Zusammenhang ungültig.

Der Code lautet wie folgt:

Code:

Public Sub AbfrageDB()
Dim sqlBefehl4 As String
Dim connObj4 As ADODB.Connection
Dim cmd4 As ADODB.Command
Dim rs4 As ADODB.Recordset

'der SQL-Befehl
sqlBefehl4 = "SELECT tab_2006.KOSTENSTELLE "
sqlBefehl4 = sqlBefehl4 & "FROM tab_2006;"

'Verbindung zur Datenbank aufbauen
Set connObj4 = New ADODB.Connection
With connObj4
.ConnectionString = "Verbindung4"
.Open
End With

'Verbindung zur Datenbank prüfen
If connObj4.State = 0 Then
MsgBox "Fehler 1: Die Datenbankverbindung kann nicht erstellt werden. "
Exit Sub
End If

'Abfrage definieren
Set cmd4 = New ADODB.Command
With cmd4
.ActiveConnection = connObj4
.CommandType = adCmdText
.CommandText = sqlBefehl4
.Prepared = False
End With

'Abfrage starten
Set rs4 = New ADODB.Recordset
rs4.Open

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Code hängt sich in der letzten Zeile (bei: rs4.open) auf.

Ich habe auch schon gegoogelt und bin auf einen Artikel auf der Microsoft unter
http://support.microsoft.com/?scid=kb;de;276389&spid=1266&sid=62
gefunden. Auch wenn ich die entsprechende Option eingestellt habe, wie dort beschrieben (Menü Extras - Option / Registerkarte Allgemein - Fehlerbehebung - Break on Unhandled Errors), tritt die Fehlermeldung nach wie vor auf.

Hat jemand vielleicht eine Erklärung? Für eine Rückmeldung wäre ich sehr dankbar.

Gruß
digger

:)

MRR · 19. Juni 2006

Hallo digger,
vielleicht bin ich blind - aber WAS soll den rs4 bloß "open"? Fehlt da nicht
a) der SQL-String
b) die Connection
und ggf. noch die Art, wie zu öffnen ist?
rs4.Open sqlBefehl4, connObj4
(oder auch cmd4 anwenden)

digger · 19. Juni 2006

Hallo Matthias,

Asche auf mein Haupt und vielen Dank für Deinen Hinweis - es fehlte in der Tat das Command-Objekt in der letzten Zeile:

Code:

rs4.Open cmd4
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun funktioniert alles einwandfrei.

Gruß
digger

Office: Laufzeitfehler 3709 bei Zugriff auf Access

Laufzeitfehler 3709 bei Zugriff auf Access

Laufzeitfehler 3709 bei Zugriff auf Access

Laufzeitfehler 3709 bei Zugriff auf Access - Similar Threads - Laufzeitfehler 3709 Zugriff

VBA:Laufzeitfehler beim Einlesen in Variable

Datenbank bleibt gesperrt - laccdb wird nicht gelöscht

Access Laufzeitfehler 3048

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

MS Access Lauftzeitfehler "2501"