En VBA, par exemple sous MS-Access, pour parcourir les colonnes puis les lignes d’un dataset, on peut utiliser le code suivant:
Function parcourt_colonne() ' parcourt les colonnes puis les lignes Set monRs = DBEngine.Workspaces(0).Databases(0).OpenRecordset("SELECT * FROM tbdPBPER_sans_ordre WHERE tbdPBPER_sans_ordre.Cas_No=1;") ligne = 1 monRs.MoveFirst Do While Not monRs.EOF For i = 0 To monRs.Fields.Count - 1 MsgBox "ligne no " & ligne & " intitulé de la colonne = " & monRs.Fields(i).Name Next ligne = ligne + 1 monRs.MoveNext Loop Set monRs = Nothing 'libération de l'objet End Function
Commentaires
Notre avis