Τρόπος υποβολής ερωτημάτων HTML Πίνακες με VBA Access

Visual Basic for Applications ( VBA) είναι η γλώσσα προγραμματισμού για τη βάση δεδομένων της Access το πρόγραμμα της Microsoft . VBA μπορεί να εκτελέσει τις ίδιες λειτουργίες που διατίθενται στο συνηθισμένο περιβάλλον Access , συμπεριλαμβανομένων επερώτηση πηγών δεδομένων εκτός της Access . Ένας τύπος εξωτερικών δεδομένων είναι ένας πίνακας HTML . Επερώτηση έναν τέτοιο πίνακα από την Access VBA περιλαμβάνει τη σύνδεση με το έγγραφο HTML που περιέχει τον πίνακα , τότε εκτελείται ένα ερώτημα στο τραπέζι . Το κύριο πλεονέκτημα του ρωτώντας έναν πίνακα HTML από την Access VBA είναι η εξοικονόμηση χρόνου , αντικαθιστώντας την παρέμβαση του χρήστη από ένα πρότυπο ερωτήματος με την αυτοματοποίηση ενός ερωτήματος βασίζονται στη VBA . Τα πράγματα που θα χρειαστείτε για Microsoft Access

Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Notepad και επικόλληση σε αυτό το ακόλουθο έγγραφο HTML δείγματος . Αυτό το έγγραφο περιέχει ένα μικρό τραπέζι των δεδομένων που σχετίζονται με τις ταινίες . Θα ερώτημα αυτό τον πίνακα από ένα πρόγραμμα Access VBA :

<πίνακας Φτηνές 2

Πατήστε "Control " + " S" και πληκτρολογήστε "c : \\ movies.html " . για το όνομα του αρχείου εικόνων
3

Ανοικτή Πρόσβαση και πατήστε το πλήκτρο " Alt " + " F11 " για να μπείτε στο περιβάλλον προγραμματισμού για VBA .
Η

4 Κάντε κλικ στο "Εισαγωγή " " ενότητα " εντολή μενού για να δημιουργήσετε ένα νέο παράθυρο για να εισάγετε την υπορουτίνα ερώτημα HTML μέσα
Η 5

Επικολλήστε τον παρακάτω κώδικα προγράμματος σε νέο παράθυρο . Η κορυφαία υπορουτίνα δημιουργεί μια σύνδεση , μέσω της " TransferText " εντολή , με τον πίνακα στο αρχείο HTML από το βήμα 1 . Η " queryHTML " υπορουτίνα θα εκτελέσετε ένα ερώτημα SQL για τα δεδομένα που μεταφέρονται πίνακα .

Public Sub importHTMLData ( )

Dim tabname Όπως String

tabname = " Ταινίες "

DoCmd.TransferText acLinkHTML , , tabname , " C : \\ movies.html " , -1

End Sub

Public Sub queryHTML ( )

Const qry = " qHTML "

Δημ. dbs Όπως DAO.Database

Dim recset Όπως DAO.Recordset

Set dbs = CurrentDb

Set recset = dbs.OpenRecordset ( qry )

Do While Not recset.EOF

Debug.Print " Τίτλος : " & recset [τίτλος ] Ξενοδοχεία

recset.MoveNext

Loop !

recset.Close

dbs.Close

End Sub
Η 6

Κάντε κλικ σε οποιαδήποτε δήλωση στο " importHTMLData " υπορουτίνας , στη συνέχεια, πατήστε το πλήκτρο " F5 "για να εκτελέσετε την υπορουτίνα .
Η

7 Πατήστε το πλήκτρο" Alt " + " F11 " για να επιστρέψετε στην πρόσβαση , στη συνέχεια, κάντε κλικ στο βέλος του παραθύρου πλοήγησης ( " <<" ) δύο φορές για να ανανεώσετε τα δεδομένα του παραθύρου. Το παράθυρο θα εμφανιστεί τώρα ένα νέο πίνακα , "Movies ", το οποίο παράγεται η υπορουτίνα importHTMLData .
8

Κάντε κλικ στο εικονίδιο για το " Movies" πίνακα στο παράθυρο περιήγησης και, στη συνέχεια , κάντε κλικ στο μενού " Δημιουργία " , ακολουθούμενο από το πλήκτρο " Έρευνα " στην κύρια γραμμή εργαλείων .
Η 9

κάντε διπλό κλικ στο "Movie " στοιχείο "Προσθήκη πίνακα " παράθυρο διαλόγου , στη συνέχεια, σύρετε το " * " το σημείο από το μικρό παράθυρο "Movie " σε πρώτη εντολή του πλέγματος ερωτήματος . Η ενέργεια αυτή δημιουργεί ένα ερώτημα που η δεύτερη υπορουτίνα VBA γράψατε θα χρησιμοποιήσετε για να φέρω τα δεδομένα από το νέο πίνακα ταινίες .
Η 10

Πατήστε "Control " + " S ", στη συνέχεια, πληκτρολογήστε " qHTML " για το ερώτημα του όνομα .
Η 11

Πατήστε το πλήκτρο " Alt " + " F11 " για να επιστρέψετε στο περιβάλλον ανάπτυξης . Κάντε κλικ σε οποιαδήποτε δήλωση στο υποπρόγραμμα queryHTML , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να εκτελέσετε την υπορουτίνα .
Η 12

Πατήστε "Control " + " G " για να ανοίξει το παράθυρο " Άμεση " το περιβάλλον ανάπτυξης . Το παράθυρο θα εμφανίσει το αποτέλεσμα της δήλωσης Debug.Print του υπορουτίνα του queryHTML . Ότι η παραγωγή περιέχει τα αποτελέσματα της εκτέλεσης του υπορουτίνα του queryHTML του ερωτήματος qHTML ( από το Βήμα 10 ) .
Η
εικόνων