Comment mettre en œuvre une dynamique de Requête SQL sur MS Access 2003 par VBA?

C'est un super base question, mais je suis en train d'exécuter une Requête que je suis en train de construire par le biais de certaines valeurs d'un formulaire à l'encontre de la base de données MS Access se trouve le formulaire. Je ne pense pas que j'ai besoin d'aller à travers ADO officiellement, mais peut-être je ne.

De toute façon, un peu d'aide serait appréciée. Désolé d'être un n00b. 😉

Pouvez-vous préciser si vous modifiez les données dans la base de données ou de lecture pour l'affichage? J'ai besoin de savoir avant de voter l'une des réponses 🙂

OriginalL'auteur Tim Visher | 2008-09-25

access-vba ms-access

3

Vous pouvez utiliser le code DAO suivant la requête d'un Accès de base de données:
```
Dim rs As DAO.Recordset
Dim db As Database

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Attendance WHERE ClassID = " & ClassID)

do while not rs.EOF
  'do stuff
  rs.movenext
loop

rs.Close
Set rs = Nothing
```
Dans mon cas, ClassID est une zone de texte sur le formulaire.

J'avais accepter cette réponse, sauf que Si le bloc ne fonctionne pas correctement (je ne pense pas). Il devrait être If Not rs.EOF Then?
J'ai édité pour inclure le "pas rs.EOF" et de la rs.movenext.

OriginalL'auteur jinsungy
0

C'est ce que j'ai fini par venir avec qui fonctionne réellement.
```
Dim rs As DAO.Recordset
Dim db As Database

Set db = CurrentDB
Set rs = db.OpenRecordset(SQL Statement)

While Not rs.EOF
    'do stuff
Wend

rs.Close
```
Vous avez besoin de rs.Movenext déclaration, si vous voulez parcourir les enregistrements du jeu d'enregistrements, en supposant que SQL renvoie plusieurs lignes.
Enregistrer vous-même un ensemble et l'utilisation CurrentDb.OpenRecordset(). Il n'y a pas besoin de faire de la base de données distincte de l'objet.
Je pense que l'exemple de code doit utiliser les meilleures pratiques, et CurrentDB.OpenRecordset() dans DAO possible de laisser un objet explicite de référence de la pendaison. Deuxièmement, l'exemple de code, c'est l'endroit où vous auriez du ouvrir un de la base de données que l'actuel, ainsi que des exemples de code, je pense que c'est mieux.

OriginalL'auteur Tim Visher
0

Ici juste au cas où vous vouliez une ADO version:
```
Dim cn as new ADODB.Connection, rs as new ADODB.RecordSet
Dim sql as String

set cn = CurrentProject.Connection
sql = "my dynamic sql string"

rs.Open sql, cn ', Other options for the type of recordset to open, adoOpenStatic, etc.

While Not rs.EOF
  'do things with recordset
  rs.MoveNext   ' Can't tell you how many times I have forgotten the MoveNext. silly.
Wend
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
```
DAO et ADO sont très proches dans l'utilisation. Vous obtenez plus de contrôle à l'aide de DAO et de la performance légèrement meilleure avec ADO. Dans la plupart des accès base de données des applications que j'ai rencontré il n'a pas vraiment faire une différence. Quand j'ai vu une grande différence avec les tables liées. ADO joue souvent mieux.

J'ai trouvé DAO fonctionne plus rapidement avec Access 97 format de bases de données, et ADO avec Access 2000 et plus. Je pense que c'est une différence entre le jet et jet 4.0 3.5

OriginalL'auteur Brettski
0

Les réponses que vous avez donné et que vous avez l'air d'accepter de faire une boucle par un jeu d'enregistrements DAO. C'est généralement une méthode inefficace de l'accomplissement d'un texte. Par exemple, ceci:
```
  Set db = CurrentDB()
  Set rs = db.OpenRecordset("[sql]")
  If rs.RecordCount > 0
     rs.MoveFirst
     Do While Not rs.EOF
       rs.Edit
       rs!Field = "New Data"
       rs.Update
       rs.MoveNext
     Loop 
  End If
  rs.Close
  Set rs = Nothing
  Set db = Nothing
```
sera beaucoup moins efficace que:
```
  UPDATE MyTable SET Field = "New Data"
```
qui peut être exécuté avec:
```
  CurrentDb.Execute "UPDATE MyTable SET Field = 'New Data'"
```
Il est très rarement le cas que l'on doit parcourir un jeu d'enregistrements, et dans la plupart des cas une mise à jour SQL va être ordres de grandeur plus rapide (ainsi que causer beaucoup plus courte de lecture/écriture de verrous pour être tenu sur les pages de données).

Eh bien, la question n'a pas fait état que d'une mise à jour est effectuée. Peut-être la lecture de données pour l'affichage?
Affichage en quoi? Un formulaire? Si oui, alors ce n'est pas la meilleure façon de le faire. Si, dans un rapport, c'est vraiment ce n'est pas la meilleure façon de le faire. Pour moi, "l'exécution d'une requête" signifie "mise à jour des données via une requête," mais peut-être que je suis en train de lire l'OP de mal.
En fait, ils ont dit "exécuter une Requête": big Q = grosse différence. Une requête (petit q) est un DML SQL SELECT, qui serait prehap implique un jeu d'enregistrements. Une Requête (big Q) est un MS Access (pas de Jet, pas ACE) de l'objet qui peut contenir n'importe quelle instruction SQL: SELECT/INSERT/UPDATE/DELETE SQL DML, même SQL DDL ou SQL DCL.

OriginalL'auteur David-W-Fenton

Vous devez vous connecter pour publier un commentaire.