Discussion :

[benoaa]

Bonjour à tous,

Je souhaiterais associé le résultat d'un code SQL à une variable comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim SQL As String
Dim n As Integer
 
        SQL = "SELECT COUNT (*) FROM MaTable WHERE ... ;"
        n = DoCmb.Run SQL

Mais on m'indique une erreur sur la dernière ligne, comment solutionner ce problème.
Merci à tous pour vos suggestions.

BH

[arthur57]

La FAQ de developpez : http://access.developpez.com/faq/?page=SQL#Recordset


Un exemple d'utilisation du recordset :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 Sub DAOOpenRecordset ()
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim SQL As String
    ' Ouverture de la base de données 
    Set db = DBEngine.OpenDatabase (".\Comptoir.mdb")
    SQL = "SELECT COUNT (*) FROM MaTable WHERE ... ;"
    ' Ouverture du Recordset 
    Set rst = db.OpenRecordset (SQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
    rst.Close
End Sub

Cordialement

[paidge]

En plus le forum regorge de topics sur le sujet...
Je rajouterai à ton exemple comment parcourir le recordset

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub DAOOpenRecordset ()
    Dim rst As DAO.Recordset, fld As DAO.Field
    Dim SQL As String
 
    SQL = "SELECT champs1, champs2 FROM MaTable;"
    ' Ouverture du Recordset 
    Set rst = CurrentDb.OpenRecordset (SQL)
    ' Parcours du recordset (pour chaque enregistrement retourné, tant qu'on est pas à la fin)
    While Not rst.EOF
        ' On affiche les champs en faisant référence à leur nom
        Debug.Print "champs1 : " & rst("champs1")
        Debug.Print "champs2 : " & rst("champs2")
        ' Ou alors en faisant référence à leurs indices
        Debug.Print "champs1 : " & rst(0)
        Debug.Print "champs2 : " & rst(1)
        ' Ou en encore avec une boucle qui parcourt tous les champs de l'enregistrement courant
        For Each fld In rst.Fields
            Debug.Print fld.Name & " : " & fld.Value
        Next fld
        rst.MoveNext
    Wend
    ' Fermeture du Recordset
    rst.Close
End Sub