Ouvrir le jeu d'enregistrements dans l'Accès 2003/2007

Cela fait des années depuis que je travaille dans code d'Accès et il me rend totalement fou.

Je ne me souviens pas de quoi que ce soit et tout ce que je veux faire est d'ouvrir un jeu d'enregistrements dans le code et rien de ce que j'ai trouvé en ligne ou toute permutation de code que j'ai essayé fonctionne.

Le court de celui-ci:

Dim rsSystem As Recordset
Dim sSQL As String

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

Ce qui, dans le saint de l'enfer qui me manque?

Merci d'avance.

Je reçois une erreur d'incompatibilité de type de la méthode OpenRecordset. Je suis en utilisant le code comme indiqué ci-dessus, pas de DAO ou ADODB qualificatifs.
Si vous êtes dans une fenêtre de code, l'ouverture de Outils/Références dans la barre de menu vous arrive à la Ajouter des Références boîte de dialogue.
Ah, merci

InformationsquelleAutor Tom | 2011-05-17

ms-access vba

7

Exemples ici, pour toutes les permutations de l'ouverture d'un "jeu d'enregistrements":
http://www.vbexplorer.com/VBExplorer/vb_feature/june2000/Database_Beginner_ADO_DAO.asp

Le plus simple est d'utiliser DAO sur la base de données actuelle. Mon VBA est un peu rouillé, mais...
```
Dim db as DAO.Database
Dim rs as DAO.Recordset
Set db = CurrentDB
Set rs = DB.OpenRecordset("table or query name")
```
Pour ADO:
```
Dim rs As New ADODB.Recordset
rs.Open "tblPeople", CurrentProject.Connection, adOpenDynamic
```
- Je ne peux pas juste utiliser une sorte de CurrentDB qualificatif au lieu d'avoir à utiliser des chaînes de connexion depuis tout ce que je veux pour la requête contenue dans la base de données Access?
- Ok, n'ai-je pas ajouter une référence à DAO si? Je ne peux pas trouver n'importe où à faire que de dans Access 2010.
- Essayez l'un ADO j'ai ajouté ci-dessus.
- Oui, cela a fonctionné pour moi et qui fonctionne le mieux pour moi. Il est tout de revenir à moi maintenant, pour le meilleur ou pour le pire.
- Vous n'avez pas absolument besoin d'une référence DAO, mais si vous ne l'avez pas, vous devez utiliser l'Objet des types de données pour les variables (au lieu de la Base de données et le jeu d'enregistrements). Mais c'est fou de ne pas avoir de référence à DAO, puisque vous êtes en utilisant des Accès!
InformationsquelleAutor Robert Harvey
7

Si vous déclarez juste un Recordset sans préciser si c'est DAO ou ADO, l'Accès à décider de son propre savoir s'il sera DAO ou ADO, selon l'ordre de vos références:

Ouvrir une fenêtre de code, allez dans Outils --> Références, et de regarder la liste.

Il ressemblera à quelque chose comme:

Que voyez-vous dans cet exemple, il existe une référence à DAO ("Microsoft DAO 3.6 Object Library") et ADO ("Microsoft ActiveX Data Objects 2.5 Bibliothèque").

Si vous déclarez votre jeu d'enregistrements sans en préciser le type, l'Accès prend le premier de ces références (=celui qui est le plus en haut de la liste) et crée un jeu d'enregistrements de ce type.

Donc, dans cet exemple, il sera un DAO.Recordset.

Maintenant, revenons à votre question:

Vous déclarez votre jeu d'enregistrements sans en préciser le type.

Donc, si la première référence dans votre base de données Access est ADO, l'Accès à créer un ADODB.Recordset.

Ensuite vous l'ouvrez avec un DAO méthode, qui s'attend à un DAO.Recordset, et c'est pourquoi vous obtenez le message d'erreur.

Il y a deux façons de résoudre votre problème:
1. Assurez-vous que votre base de données Access a seulement une référence pour ADO ou DAO (mais pas les deux), alors vous n'avez pas besoin de spécifier le type de l'objet recordset.
2. Si vous avez vraiment besoin à la fois de références, toujours déclarer vos jeux d'enregistrements que DAO.Recordset ou ADODB.Recordset pour s'assurer que c'est vraiment le type que votre code s'attend.
- Merci pour l'explication approfondie.
InformationsquelleAutor Christian Specht
2

Décider si vous souhaitez utiliser ADO ou DAO? Voici un DAO (plus native Access/Jet) exemple
```
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
```
Pas sûr de ce que vous voulez faire avec ce jeu d'enregistrements.
- Je ne vois pas DAO dans le contexte de la liste quand j'essaie de l'ajouter, je suis sûr que c'est juste une référence, j'ai besoin d'ajouter à la base de données, mais pour la vie de moi je ne trouve pas de références n'importe où dans l'Accès IDE de 2010
InformationsquelleAutor JeffO
2
```
Dim rsSystem As Recordset
```
À la fois l'ADO et DAO objet les modèles incluent les objets Recordset. Vous ne pouvez pas échange.

Puisque vous n'avez pas de préciser que vous avez voulu, le vôtre pourrait être un jeu d'enregistrements ADO ... qui pourrait rendre compte de l'erreur d'incompatibilité de type de la méthode OpenRecordset.
```
Set rsSystem = CurrentDB.OpenRecordset(sSQL)
```
Cette méthode renvoie une DAO jeu d'enregistrements, donc tout d'abord déclarer rsSytem en tant que tel.
```
Dim rsSystem As DAO.Recordset
```
- Ouais, merci. @Robert de la solution ci-dessus fonctionne le mieux pour moi. Tout cela l'Accès des choses est de commencer à revenir à moi maintenant.
- Si je comprends votre commentaire ci-dessus, vous avez décidé d'aller avec ADO, qui est tout simplement erronée. Elle reflète ce que MS a été la promotion d'il y a 10 ans, mais ils ont tort de le faire, et ont depuis cessé de promouvoir ADO de plus de DAO pour l'utilisation dans l'Accès à Jet/ACE/de données ODBC.
InformationsquelleAutor HansUp
1

"Table" est un mot réservé en SQL. Si vous devez le nom de votre table "table", puis placez-le entre crochets: "SELECT * FROM [Table]".

InformationsquelleAutor harfang

Vous devez vous connecter pour publier un commentaire.