Visual Basic, Applications Edition (VBA) è il linguaggio di programmazione per il programma di database di Access di Microsoft. VBA in grado di eseguire le stesse funzioni disponibili nell'interfaccia di accesso al solito , tra cui l'esecuzione di query origini dati esterne ad Access. Un tipo di dati esterni è una tabella HTML . Esecuzione di query su un tavolo da Access VBA comporta il collegamento al documento HTML contenente la tabella , quindi esegue una query sul tavolo. Il vantaggio principale di interrogare una tabella HTML da Access VBA è il tempo risparmiato sostituendo l' intervento dell'utente di una query standard con l' automazione di una query VBA - based. Cose che ti serviranno
Microsoft Access
Show More Istruzioni
1
Aprire il blocco note e incollare in esso il seguente documento HTML di esempio . Questo documento contiene una piccola tabella dei dati relativi ai filmati. Potrai interrogare questa tabella da un programma VBA di accesso:
< table
2
Premere " Controllo" + " S " e di tipo "c : \\ movies.html ." per il nome del file
3
Open Access e premere il tasto "Alt" + " F11 " per accedere all'ambiente di programmazione per VBA .
4
Clicca comando " Module" del menu "Inserisci" per creare una nuova finestra per entrare nella subroutine di query HTML dentro
5
Incollare il seguente codice di programma nella nuova finestra . La subroutine superiore crea una connessione , tramite il comando " TrasferisciTesto " , con la tabella nel file HTML dal punto 1. Il sottoprogramma " queryHTML " verrà eseguito una query SQL sui dati della tabella trasferiti.
Public Sub importHTMLData ( ) per
Dim tabname As String
tabname = " Movies " < br >
DoCmd.TransferText acLinkHTML , , tabname , "C : \\ movies.html " , -1
End Sub
Public Sub queryHTML ( ) per
Const qry = " qHTML "
Dim dbs Come DAO.Database
Dim recset Come DAO.Recordset
Set dbs = CurrentDb
recset = dbs.OpenRecordset ( qry ) per
Do While Not recset.EOF
Debug.Print " titolo:" & recset [ titolo ]
recset.MoveNext
loop !
recset.Close
dbs.Close
End Sub
6
Clicca dichiarazioni nel sottoprogramma " importHTMLData " , quindi premere " F5 "per eseguire la subroutine .
7
Premere" Alt " + " F11 "per tornare ad Access , quindi fare clic sulle frecce del riquadro di spostamento ( " << " ) due volte per aggiornare i dati del riquadro . Il riquadro visualizza ora una nuova tabella , " Film ", che la subroutine importHTMLData prodotto .
8
Fare clic sull'icona per il " Film " tabella nel riquadro di spostamento , quindi fare clic sul menu "Crea " , vendita, acquisto 9
doppio clic sulla voce " film" nella finestra di dialogo " tavola Aggiungi" , quindi trascinare la voce " * " seguito dal pulsante "Query" nella barra degli strumenti principale. dal piccolo finestra " Movie " sul primo comando della griglia della query . Questa azione crea una query che la seconda subroutine VBA hai scritto userà per andare a prendere i dati dalla nuova tabella Movies .
10
Premere " Controllo" + " S ", quindi digitare " qHTML " per la query di nome.
11
Premi "Alt" + " F11 " per tornare all'ambiente di sviluppo . Fare clic su qualsiasi dichiarazione nella subroutine queryHTML , quindi premere il tasto " F5 " per eseguire la subroutine .
12
Premere " Controllo" + " G" per aprire la finestra " Immediate" dell'ambiente di sviluppo . La finestra visualizza l'output di istruzione Debug.Print della subroutine queryHTML . Quella di output contiene i risultati dell'esecuzione del sottoprogramma queryHTML della query qHTML ( dal punto 10) .
