|
Microsoft Office Access est un système de gestion de base de données relationnelle couramment utilisé pour les bases de données locales plus petites . Visual Basic pour Applications, également connu sous VBA est un langage de programmation informatique utilisé pour automatiser les processus de routine. Une requête est utilisée pour récupérer les données des tables de base de données . Vous pouvez créer une requête pour mettre à jour également les données dans une table de base de données. En quelques étapes, vous pouvez écrire du code VBA pour exécuter une requête de mise à jour et également créer une requête de sélection pour voir la mise à jour . 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 de mise à jour de la table Employés et puis voir le jour avec une requête de sélection . Photos DAOQuery ()
titre Dim public Sub As String
db As DAO.Database
rst As DAO.Recordset
qry Dim As String titre de
= " DAO requête"
Set db = CurrentDb ()
qry = " UPDATE SET employés salariés . [ téléphone portable ] = '210 -999 à 999 » Photos qry = qry &" WHERE ( ( ( Employees. [ Nom ] ) = ' Cencini ')); "
DoCmd.SetWarnings Faux
< p> DoCmd.RunSQL ( qry )
titre Debug.Print & " : SQL jour paramenter Question: " & _
vbNewLine & "" & qry
qry = " choisir des employés . [ Nom ] , employés . [ téléphone portable ] "
qry = qry &" FROM Employees "
qry = qry &" WHERE ( ( ( Employees. [ Nom ] ) = ' Cencini ')); "
titre Debug.Print &" : SQL Query : "& _
vbNewLine &" "& qry
'Exécuter le qry et de créer un jeu d'enregistrements
set rst = db.OpenRecordset ( qry )
titre Debug.Print & " : récupérer les infos de schéma pour le résultat donné régler: "
i = 0 à rst.Fields.Count - 1 x Debug.Print "
|
