Comment exécuter une requête SQL dynamique contre MS Access 2003 via VBA?

Question

Ceci est une super base question mais j'essaie d'exécuter une requête que je construis via certaines valeurs de formulaire contre la base de données MS Access dans laquelle se trouve le formulaire. Je ne pense pas que je doive passer formellement par ADO , mais peut-être que je le fais.

De toute façon, un coup de main serait apprécié. Désolé d'être un n00b. ;)

Answer 1

Vous pouvez utiliser le code DAO suivant pour interroger un accès DB:

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.

Answer 2

C'est ce que j'ai fini par trouver 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 

Answer 3

Les réponses qui vous ont été données et que vous semblez accepter en boucle dans un jeu d'enregistrements DAO. C'est généralement une méthode très inefficace pour accomplir 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 rare que l'on doit faire une boucle Par le biais d'un jeu d'enregistrements, et dans la plupart des cas, une mise à jour SQL sera plus rapide (et entraînera des verrous de lecture/écriture beaucoup plus courts sur les pages de données).

Answer 4

ici juste au cas où vous vouliez une version ADO:

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 de l'utilisation. Vous obtenez plus de contrôle avec DAO et une performance légèrement meilleure avec ADO. Dans la plupart des applications de base de données d'accès que j'ai rencontrées, cela ne fait vraiment aucune différence. Quand j'ai vu une grande différence avec les tables liées. ADO fonctionne souvent mieux.