doc.progysm.com

Requête SQL en Access 97

Objets nécessaires: Database et Recordset

Déclaration:

    Dim db As Database
    Dim rst As Recordset

Initialisation de la base de données

    ' Initialiser la base de données (en cours = CurrentDb)
    Set db = CurrentDb

Exécution de la requêtes SQL.. et copie dans le Recordset rst.

    ' (Fonction Database.OpenRecordset( RequêteSQL as String, dbOpenDynaset )
    Set rst = db.OpenRecordset("SELECT Max(tblCatégories.NoCatégorie) FROM tblCatégories", dbOpenDynaset)

Fermeture des objets [désallocation des pointeurs vers les objets]

    Set rst = Nothing
    Set db = Nothing