Open recordset in Access 2003/2007

Es ist Jahre her, seit ich gearbeitet habe, in Access-code, und es macht mich offensichtlich wahnsinnig.

Ich einfach nicht an alles erinnern und alles was ich will zu tun ist, öffnen Sie ein recordset im code und nichts, was ich im Netz gefunden habe oder jede permutation der code, den ich versucht habe funktioniert.

Die Kurzfassung:

Dim rsSystem As Recordset
Dim sSQL As String

sSQL = "SELECT * FROM Table"
Set rsSystem = CurrentDB.OpenRecordset(sSQL)

Was in der Heiligen Hölle bin ich?

Vielen Dank im Voraus.

Bekomme ich einen type-mismatch-Fehler auf der OpenRecordset-Methode. Ich bin mit dem code, wie oben gezeigt, keine DAO-oder ADODB-Qualifikanten.
Wenn Sie in ein code-Fenster öffnen Extras/Verweise aus der Menüleiste bringt Sie zum Referenzen - dialog.
Ah, danke

InformationsquelleAutor Tom | 2011-05-17

ms-access vba

7

Beispiele hier, für alle Permutationen der Eröffnung ein "Recordset":
http://www.vbexplorer.com/VBExplorer/vb_feature/june2000/Database_Beginner_ADO_DAO.asp

Der einfachste Weg ist die Verwendung von DAO auf die aktuelle Datenbank. Mein VBA ist ein wenig rostig, aber...
```
Dim db as DAO.Database
Dim rs as DAO.Recordset
Set db = CurrentDB
Set rs = DB.OpenRecordset("table or query name")
```
Für ADO:
```
Dim rs As New ADODB.Recordset
rs.Open "tblPeople", CurrentProject.Connection, adOpenDynamic
```
Kann ich nicht einfach eine Art von CurrentDB-qualifier statt, um Verbindungszeichenfolgen verwenden, da alles, was ich will-Abfrage enthalten ist, innerhalb der Access-Datenbank?
Ok, habe ich nicht, fügen Sie einen Verweis auf DAO? Ich kann nicht finden, überall zu tun, die in Access 2010.
Versuchen Sie die ADO-ich Hinzugefügt, oben.
Ja, das hat für mich und funktioniert am besten für mich. Es kommt alles zurück zu mir jetzt, für besser oder schlechter.
Sie müssen nicht unbedingt brauchen, eine DAO-Referenz, aber wenn Sie es nicht haben, verwenden Sie Objekt-Datentypen für Ihre Variablen (anstelle von Datenbank-und Recordset). Aber es ist verrückt, zu keinen DAO-Verweis, da Sie mit Access!

InformationsquelleAutor Robert Harvey
7

Wenn Sie erklären, nur ein Recordset ohne Angabe, ob es DAO oder ADO, Access entscheidet allein, ob es DAO oder ADO, je nach der Reihenfolge der Referenzen:

Öffnen Sie ein code-Fenster, gehen Sie auf Extras --> Referenzen und betrachten Sie die Liste.

Es wird so Aussehen, dass:

Sehen Sie, dass in diesem Beispiel gibt es einen Verweis auf DAO ("Microsoft DAO 3.6 Object Library") und ADO ("ActiveX Data Objects 2.5 Library").

Wenn Sie erklären Ihre Recordset ohne Angabe der Art, der Zugang nimmt die erste dieser Referenzen (=die eine, die mehr auf der Liste ganz oben) und erstellt ein Recordset von diesem Typ.

So in diesem Beispiel, es wird ein DAO.Recordset.

Nun zurück zu deiner Frage:

Erklären Sie die Recordset-ohne Angabe des Typs.

Also, wenn die erste Referenz in Ihre Access-Datenbank, ADO, Access erstellen Sie eine ADODB.Recordset.

Dann öffnen Sie es mit einer DAO-Methode, die erwartet, dass ein DAO.Recordset, und das ist, warum Sie den Fehler.

Gibt es zwei Möglichkeiten, um Ihr problem zu lösen:
1. Stellen Sie sicher, dass Ihre Access-Datenbank nur ein Verweis auf ADO oder DAO (aber nicht beide), dann brauchen Sie nicht zu geben Sie den Typ des recordset-Objekts.
2. Wenn Sie wirklich brauchen, sowohl Referenzen, die immer erklären, Ihre recordsets als DAO.Recordset oder ADODB.Recordset um sicherzustellen, dass es wirklich von der Art, dass Ihr code erwartet.
Vielen Dank für die ausführliche Erklärung.

InformationsquelleAutor Christian Specht
2

Entscheiden, ob Sie ADO oder DAO? Hier ist ein DAO (mehr native Access/Jet) Beispiel
```
dim wrk as DAO.Workspace
dim db as DAO.Database

set wrk = DBEngine.Workspaces(0)
set db = wrk.OpenDatabase(CurrentDb.Name)
Dim rsSystem as DAO.Recordset

Dim sSQL As String

sSQL = "SELECT * FROM Table"
Set rsSystem = db.OpenRecordSet(sSQL, dbOpenDynaset)

exitRoutine:
If Not (db Is Nothing) Then
     db.Close
     Set db = Nothing
End If
Set wrk = Nothing
```
Nicht sicher, was Sie tun möchten, mit diesem recordset.

Ich sehe nicht, DAO in der Kontext-Liste, wenn ich Versuch, es hinzuzufügen, ich bin sicher, es ist nur eine Bemerkung, die ich hinzufügen müssen, um die MDB aber für das Leben von mir ich kann nicht finden, Referenzen überall in der Access-2010-IDE

InformationsquelleAutor JeffO
2
```
Dim rsSystem As Recordset
```
Sowohl die ADO-und DAO-Objekt-Modelle für Recordset-Objekte. Kann man nicht vertauschen.

Da Sie nicht angegeben haben, die Sie wollten, Ihnen könnte ein ADO-Recordset ... was würde das Konto für den "type mismatch" - Fehler auf der OpenRecordset-Methode.
```
Set rsSystem = CurrentDB.OpenRecordset(sSQL)
```
Diese Methode gibt eine DAO Recordset, also erstmal erklären rsSytem als solche.
```
Dim rsSystem As DAO.Recordset
```
Ja, danke. @Robert die Lösung von oben funktioniert für mich am besten. Alle diese Access-Zeug ist ab, komm zurück zu mir jetzt.
Wenn ich verstehen Ihren Kommentar oben, Sie beschlossen zu gehen mit ADO, das ist einfach falsch. Es gilt zu reflektieren, was MS war die Förderung von vor 10 Jahren, aber Sie waren falsch, so zu tun, und haben da angehalten, der Förderung von ADO gegenüber DAO für den Einsatz in Access-Jet/ACE/ODBC-Daten.

InformationsquelleAutor HansUp
1

"Tabelle" ist ein reserviertes Wort in SQL. Wenn Sie den Namen Ihrer Tabelle "Tabelle", dann schließen Sie Sie in eckige Klammern: "SELECT * FROM [Table]".

InformationsquelleAutor harfang

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.