|
La possibilité d'interroger des bases de données autres que celui que vous utilisez actuellement peut faire votre demande d'accès plus dynamiques , vous pouvez accomplir cela en utilisant Visual Basic pour Applications ( VBA) . Dans VBA, vous pouvez utiliser la méthode " OpenDatabase " pour définir le chemin et le nom de la base de données que vous souhaitez interroger . Après avoir défini la base de données , vous pouvez utiliser l'objet " d'enregistrements " pour afficher les résultats de votre requête . Choses que vous devez
Northwind base de données 2007
Voir Plus Instructions
1 lancement Access 2007 , cliquez sur " Nouvelle base de données ", puis cliquez sur le bouton "Créer". Sélectionnez « Database Tools " puis cliquez sur " Visual Basic ".
2 créer une nouvelle procédure en tapant le code suivant :
queryDatabase Private Sub ( )
Hôtels 3 créer trois nouvelles variables en tapant le code VBA suivant :
rst As Recordset
Dim dbs As Database
sqlstr Dim As String < br > Hôtels 4 Définir la base de données que vous allez interroger en entrant le code suivant :
Set dbs = OpenDatabase ("C: \\ Northwind 2007.accdb " )
5 Créer une chaîne SQL en tapant le code suivant pour créer une requête :
sqlstr = " . . commandes SELECT [ Nom du navire ] , ordonnances [ Ship Adresse] "
sqlstr = sqlstr & " FROM Orders "
sqlstr = sqlstr & " GROUP BY commandes [ Nom du navire ], ordonnances [ Ship Adresse] ; . ».
6 Copiez et collez le code suivant pour ouvrir la requête par un " enregistrements " et afficher les résultats dans la fenêtre Exécution :
Set rst = dbs.OpenRecordset ( sqlstr )
rst.MoveLast
rst.MoveFirst
Do While Not rst.EOF
Debug.Print rst.Fields ( " Nom du navire " ) . Value
Debug.Print rst.Fields ( " Adresse de navire" ) . valeur
rst.MoveNext
boucle
7 la fin de votre procédure en tapant le code suivant :
rst.Close
dbs.Close
End Sub
|
