|
Savoir comment utiliser Visual Basic pour Applications ( VBA) lorsque vous travaillez avec Microsoft Access peut vous faire gagner du temps lorsque vous avez besoin pour afficher le contenu dans une table de base de données. Vous pouvez récupérer le contenu d' une table de base de données en utilisant un objet d'enregistrements. Enregistrements se composent d' enregistrements (lignes) et des champs (colonnes) . Ils vous donnent la possibilité d'afficher ou manipuler des données dans une table. Une « boucle For " peut être utilisée pour parcourir tous les domaines et enregistrement dans une table de base de données . Choses que vous devez
accès Northwind base de données
Voir Plus Instructions
1 lancer la base de données Northwind 2007 et cliquez sur " Database Tools ». Cliquez sur " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le menu "Insertion " et cliquez sur
2 Tapez la commande suivante pour créer une nouvelle procédure d'exécuter "Module ". :
StepThroughFields Private Sub ()
On Error GoTo Err_stepThroughFields :
3 Tapez la commande suivante pour créer des variables servant à lire la table Orders :
Dim dbs As Database
rst As enregistrements
rcrdCnt As Integer
fldCnt As Integer
4 Tapez la commande suivante pour définir la base de données à utiliser:
Set dbs = CurrentDB
5 Tapez la commande suivante pour ouvrir une nouvelle enregistrements à l'aide de la table Orders :
Set rst = dbs.OpenRecordset ( " commandes" )
6 Tapez la commande suivante pour parcourir chaque champ de la table et afficher le nom :
fldCnt = 0 To rst.Fields.Count - 1 x Debug.Print rst.Fields ( fldCnt ) . Nom
Suivant fldCnt
7 Tapez la commande suivante pour parcourir tous les champs de chaque ligne de la table et afficher son contenu:
rst.MoveFirst
rcrdCnt = 0 To rst.RecordCount - 1 x fldCnt = 0 To rst.Fields.Count - 1.
Debug.Print rst.Fields ( fldCnt ) Valeur Photos Suivant fldCnt
rst.MoveNext
Suivant rcrdCnt
8 Tapez la commande suivante pour libérer les variables de la mémoire :
rst.Close
dbs.Close
9 Tapez la commande suivante pour mettre fin à la procédure et de saisir toutes les erreurs : Photos Exit_stepThroughFields : Photos Exit Sub Photos Err_stepThroughFields : Exit_stepThroughFields
MsgBox Err.Description
CV » :
End Sub
Appuyez sur" F5 "pour exécuter votre procédure et des informations de champ d'affichage.
|
