|
Visual Basic pour Applications ( VBA) est un langage de programmation informatique conçu par Microsoft et utilisé pour automatiser des tâches de routine dans Access. Access est un système de gestion de base de données relationnelle inclus dans la suite Microsoft Office . Un langage de requêtes ( SQL) Structured Query est utilisé pour récupérer des données d'une table de base de données. Les résultats de sortie d'une requête SQL sont accessibles par un objet Recordset . En quelques étapes, vous pouvez écrire du code VBA pour créer une requête SQL et visualiser les enregistrements extraits . Instructions
1 Ouvrez la base de données Access Northwind Microsoft Office . La base de données Northwind est inclus dans la suite Microsoft Office.
2 Cliquez sur " Database Tools ", puis sélectionnez " Visual Basic " pour ouvrir la fenêtre de Microsoft Visual Basic . Cliquez sur le champ "Insérer" et sélectionner "Module ".
3 Copiez et collez le code suivant dans votre nouveau module pour afficher le prénom et le numéro de téléphone de l'entreprise dans la table "Client" : Photos Private Sub CustomerQuery ()
strSQL Dim As String
custRst As Recordset
Dim dbs As Database
rstCntr Dim As Integer
custStr Dim As String
Set dbs = CurrentDb
strSQL = " SELECT Customers . [ Prénom ] , "
strSQL = strSQL & «Les clients [ Business Phone ] . "
strSQL = strSQL & " FROM Clients ; "
Set custRst = dbs.OpenRecordset ( strSQL )
custRst.MoveLast
custRst.MoveFirst
rstCntr = 0 To custRst.RecordCount - 1 x custStr = custStr & custRst.Fields (0 ) Valeur & _
"est. un client et son numéro de téléphone professionnel est "& custRst.Fields (1). Value & vbCr
custRst.MoveNext
Suivant rstCntr
MsgBox custStr
custRst.Close
dbs.Close
End Sub
4 Exécutez votre routine en appuyant sur la touche "F5 ".
< br > Photos
|
