web-dev-qa-db-fra.com

Code pour parcourir tous les enregistrements dans MS Access

J'ai besoin d'un code pour parcourir tous les enregistrements d'une table afin de pouvoir extraire des données. En plus de cela, est-il également possible de parcourir des enregistrements filtrés et, encore une fois, d'extraire des données? Merci!

ms-accessvba
40
Ali

Vous devriez pouvoir le faire avec une boucle de jeu d’enregistrements DAO assez standard. Vous pouvez voir quelques exemples sur les liens suivants:
http://msdn.Microsoft.com/en-us/library/bb243789%28v=office.12%29.aspx
http://www.granite.ab.ca/access/email/recordsetloop.htm

Ma propre boucle standard ressemble à ceci:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Contacts")

'Check to see if the recordset actually contains rows
If Not (rs.EOF And rs.BOF) Then
    rs.MoveFirst 'Unnecessary in this case, but still a good habit
    Do Until rs.EOF = True
        'Perform an edit
        rs.Edit
        rs!VendorYN = True
        rs("VendorYN") = True 'The other way to refer to a field
        rs.Update

        'Save contact name into a variable
        sContactName = rs!FirstName & " " & rs!LastName

        'Move to the next record. Don't ever forget to do this.
        rs.MoveNext
    Loop
Else
    MsgBox "There are no records in the recordset."
End If

MsgBox "Finished looping through records."

rs.Close 'Close the recordset
Set rs = Nothing 'Clean up
90
HK1

Dans "Références", importez la référence d'objet DAO 3.6.

private sub showTableData

dim db as dao.database
dim rs as dao.recordset

set db = currentDb
set rs = db.OpenRecordSet("myTable") 'myTable is a MS-Access table created previously

'populate the table
rs.movelast
rs.movefirst

do while not rs.EOF
   debug.print(rs!myField) 'myField is a field name in table myTable
   rs.movenext             'press Ctrl+G to see debuG window beneath
loop

msgbox("End of Table")

end sub

Vous pouvez interagir avec des objets de données tels que des requêtes et des tables filtrées de différentes manières:

Requête approfondie:

private sub showQueryData

dim db as dao.database
dim rs as dao.recordset
dim sqlStr as string

sqlStr = "SELECT * FROM customers as c WHERE c.country='Brazil'"

set db = currentDb
set rs = db.openRecordset(sqlStr)

rs.movefirst

do while not rs.EOF
  debug.print("cust ID: " & rs!id & " cust name: " & rs!name)
  rs.movenext
loop

msgbox("End of customers from Brazil")

end sub

Vous devez également rechercher la propriété "Filtre" de l'objet recordset pour ne filtrer que les enregistrements souhaités, puis interagir avec eux de la même manière (voir l'aide de VB6 dans la fenêtre de code de MS-Access) ou créer un objet "QueryDef" pour exécuter une opération. requête et utilisez-le aussi comme un jeu d’enregistrements (un peu plus compliqué). Dis-moi si tu veux une autre approche.

J'espère que j'ai aidé.

10
Alex

J'ai trouvé un bon code avec des commentaires expliquant chaque énoncé. Code trouvé à - accessallinone

Sub DAOLooping()
On Error GoTo ErrorHandler

Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "tblTeachers"
'For the purposes of this post, we are simply going to make 
'strSQL equal to tblTeachers.
'You could use a full SELECT statement such as:
'SELECT * FROM tblTeachers (this would produce the same result in fact).
'You could also add a Where clause to filter which records are returned:
'SELECT * FROM tblTeachers Where ZIPPostal = '98052'
' (this would return 5 records)

Set rs = CurrentDb.OpenRecordset(strSQL)
'This line of code instantiates the recordset object!!! 
'In English, this means that we have opened up a recordset 
'and can access its values using the rs variable.

With rs


    If Not .BOF And Not .EOF Then
    'We don’t know if the recordset has any records, 
    'so we use this line of code to check. If there are no records 
    'we won’t execute any code in the if..end if statement.    

        .MoveLast
        .MoveFirst
        'It is not necessary to move to the last record and then back 
        'to the first one but it is good practice to do so.

        While (Not .EOF)
        'With this code, we are using a while loop to loop 
        'through the records. If we reach the end of the recordset, .EOF 
        'will return true and we will exit the while loop.

            Debug.Print rs.Fields("teacherID") & " " & rs.Fields("FirstName")
            'prints info from fields to the immediate window

            .MoveNext
            'We need to ensure that we use .MoveNext, 
            'otherwise we will be stuck in a loop forever… 
            '(or at least until you press CTRL+Break)
        Wend

    End If

    .close
    'Make sure you close the recordset...
End With

ExitSub:
    Set rs = Nothing
    '..and set it to nothing
    Exit Sub
ErrorHandler:
    Resume ExitSub
End Sub

Les jeux d'enregistrements possèdent deux propriétés importantes lors de la lecture en boucle de données: EOF (fin de fichier) et BOF (début de fichier). Les jeux d'enregistrements sont comme des tables et lorsque vous en parcourez un, vous passez littéralement d'un enregistrement à un autre. Lorsque vous parcourez les enregistrements, la propriété EOF est définie sur false, mais lorsque vous essayez de dépasser le dernier enregistrement, la propriété EOF devient true. Cela fonctionne de la même manière en sens inverse pour la propriété BOF.

Ces propriétés nous permettent de savoir quand nous avons atteint les limites d'un jeu d'enregistrements.

5
Adarsh Madrecha