Πώς να τρέξει μια πρόσβαση ερωτήματος σε VB

Microsoft Access παρέχει στις μικρές επιχειρήσεις με ένα διάλυμα βάσης δεδομένων . Η πρόσβαση περιλαμβάνεται με το Microsoft Office σουίτα εφαρμογών , ώστε να είναι πιο προσιτή από τις βάσεις δεδομένων των επιχειρήσεων , όπως η Oracle ή SQL Server. Access έχει τη δυνατότητα να τρέξει τα ερωτήματα , ώστε να μπορείτε να ανακτήσετε τα αρχεία για την εφαρμογή web σας από το αρχείο της βάσης δεδομένων . Από το Visual Basic ( VB ) είναι επίσης ένα προϊόν της Microsoft , ανάκτηση αρχείων απαιτεί μόνο λίγες γραμμές κώδικα . Οδηγίες
Η 1

Δημιουργήστε τις μεταβλητές που απαιτούνται για τη διαδικασία ερώτημα . Μια σύνδεση , ερώτημα και ρεκόρ συνόλου αντικειμένων που απαιτούνται για να ανακτήσετε τα αρχεία από τη Visual Basic . Ο παρακάτω κώδικας ορίζει το κάθε αντικείμενο VB απαιτείται :

Dim conn Όπως ADODB.ConnectionDim SQL Όπως StringDim rs Όπως ADODB.Recordset 2

Δημιουργήστε τη σύνδεση με τη βάση δεδομένων της Access . Η σύνδεση βρίσκει το αρχείο της βάσης δεδομένων και την ανοίγει , ώστε να μπορείτε να εκτελέσετε ερωτήματα σχετικά με το αρχείο . Ο ακόλουθος κώδικας ανοίγει τη βάση δεδομένων της Access :

conn.Open " Provider = Microsoft.Jet.OLEDB.4.0 ? Προέλευσης δεδομένων = c : \\ theDB.mdb "
εικόνων 3

Δημιουργία συμβολοσειράς ερωτήματος σας . Η " SQL " μεταβλητή που ορίζεται στο πρώτο στάδιο χρησιμοποιείται για να δημιουργήσει το ερώτημά σας . Σε αυτό το παράδειγμα , το ερώτημα επιστρέφει το πρώτο όνομα για μια λίστα των πελατών. Ο παρακάτω κώδικας δημιουργεί ένα ερώτημα της Access :

SQL = " επιλέξτε first_name από τον πελάτη "
Η 4

Εκτελέστε το ερώτημα στη βάση δεδομένων της Access χρησιμοποιώντας το αντικείμενο σύνδεσης . Ο παρακάτω κώδικας εκτελεί το ερώτημα και εκχωρεί τα αποτελέσματα στο " rs " μεταβλητή που δημιουργήθηκε στο πρώτο βήμα :

rs.Open SQL , conn
5

Εκτυπώστε ένα αρχείο για να βεβαιωθείτε ότι ο το ερώτημα ήταν επιτυχής . Μπορείτε να ελέγξετε τα αποτελέσματά σας, δημιουργώντας ένα πλαίσιο μηνύματος που εμφανίζει την πρώτη εγγραφή στα αποτελέσματα. Τα ακόλουθα εκτυπώνει την πρώτη " ​​first_name " στο σύνολο της εγγραφής:

MsgBox " Ο πρώτος δίσκος είναι " & ΤΥ [ 0 ] ToString
Η
εικόνων .