|
Visual Basic pour Applications ( VBA) est le langage de programmation pour le programme de base de données Access de Microsoft. VBA peut effectuer les mêmes fonctions disponibles dans l'interface d'accès d'habitude , y compris interroger les sources externes d'accéder aux données . Un type de données externes est un tableau HTML. Interrogation d'une telle table depuis Access VBA consiste à relier au document HTML contenant la table , puis en exécutant une requête sur la table. Le principal avantage de l'interrogation d'un tableau HTML à partir d'Access VBA est le gain de temps en remplaçant l'intervention de l'utilisateur d'une requête standard avec l'automatisation d'une requête VBA basé . Choses que vous devez
Microsoft Access
Afficher plus Instructions
1 Ouvrez le Bloc-notes et coller du document HTML exemple suivant. Ce document contient une petite table de données relatives à des films . Vous interrogez la table d'un programme VBA Access :
< tableau Page 2 Appuyez sur " Control" + " S " et tapez " c: \\ movies.html ." pour le nom du fichier
3 Open Access et appuyez sur " Alt" + " F11 " pour entrer dans l'environnement de programmation pour VBA.
4 Cliquez sur la commande "Module" du menu "Insertion " pour créer une nouvelle fenêtre pour entrer dans le sous-programme de requête HTML po
5 Collez le code de programme suivant dans la nouvelle fenêtre. La sous-routine crée une connexion haut , à travers la commande " TransferText " , avec le tableau dans le fichier HTML à partir de l'étape 1. Le sous-programme " queryHTML " va exécuter une requête SQL sur les données de la table transférés.
Public Sub importHTMLData ()
TabName Dim As String
TabName = "films" < br > DoCmd.TransferText acLinkHTML , tabName , "C: \\ movies.html " , -1
End Sub
publique queryHTML Sub ( )
Const qry = " qHTML "
Dim DBS DAO.Database
recset As DAO.Recordset
Set dbs = CurrentDb
Set recset = dbs.OpenRecordset ( qry )
Do While Not recset.EOF
Debug.Print "Titre :" & recset [title]
recset.MoveNext
boucle ! Photos recset.Close
dbs.Close
End Sub
6 Cliquez sur une déclaration dans le sous-programme " de importHTMLData " , puis appuyez sur la touche "F5 "pour exécuter le sous-programme.
7 Appuyez sur" Alt "+" F11 "pour revenir à l'accès, puis cliquez sur les flèches du panneau de navigation ( " << " ) à deux reprises pour actualiser les données du volet . Le volet affiche maintenant une nouvelle table, " Films ", qui la sous-routine importHTMLData produite .
8 Cliquez sur l'icône pour la table "Films" dans le volet de navigation, puis cliquez sur le menu "Créer" , suivi par le bouton "Requête" sur la barre d'outils principale .
9 Double- cliquez sur la rubrique " Movie" dans la boîte de dialogue "Ajouter un tableau ", puis faites glisser l'élément de "*" de la petite fenêtre " Movie" sur la première commande de la requête grille. Cette action crée une requête que le deuxième sous-programme VBA que vous avez écrit va utiliser pour récupérer les données de la nouvelle table Movies .
10 Appuyez sur " Control" + " S ", puis tapez " qHTML " pour la requête de nom.
11 Appuyez sur " Alt" + "F11" pour revenir à l' environnement de développement. Cliquez aucune déclaration dans le sous queryHTML , puis appuyez sur la touche "F5 " pour exécuter le sous-programme.
12 Appuyez sur " Control" + "G" pour ouvrir la fenêtre " immédiate" de l'environnement de développement . La fenêtre affiche la sortie de la déclaration de debug.print du queryHTML sous-programme. Cette sortie contient les résultats de l'exécution du sous-programme queryHTML de la requête qHTML (étape 10).
|
