Δημιουργήστε τη σύνδεση . Μια μεταβλητή σημεία σύνδεσης του κώδικα σε ένα αρχείο βάσης δεδομένων της Access και δημιουργεί μια σύνδεση με τη βάση δεδομένων . Η μεταβλητή σύνδεση χρησιμοποιεί τη μηχανή Access για να συνδεθείτε με το αρχείο, το οποίο είναι το " Jet OLEDB " string στη λειτουργία . Ο ακόλουθος κώδικας συνδέεται με μια βάση δεδομένων της Access :
Dim σύνδεση Όπως OleDbConnectionconnection = Νέα OleDbConnection ( " Provider = Microsoft.Jet.OLEDB.4.0 ? Προέλευσης δεδομένων = c : \\ myDatabase.mdb " )
2
Δημιουργήστε το ερώτημα string . Ένα ερώτημα είναι μια σύνταξη SQL που χρησιμοποιείται για την ανάκτηση δεδομένων από έναν πίνακα . Η μεταβλητή, κατέχει ένα ερώτημα που ανακτά το πρώτο όνομα για έναν πελάτη :
Dim ερώτημα ως Stringquery = " επιλέξτε first_name από τον πελάτη WHERE CustomerID = 1 "
εικόνων 3
Εκχώρηση μια μεταβλητή εντολή για το ερώτημα. Το αντικείμενο εντολή χρησιμοποιείται για να εκτελέσετε το ερώτημα με τη βάση δεδομένων της Access . Παρακάτω είναι ο κώδικας για να εκχωρήσετε το ερώτημά σας προς το αντικείμενο εντολή:
Dim εντολή ως OleDbCommandcommand = Νέα OleDbCommand (ερώτημα , σύνδεση )
Παρατηρήστε την εντολή παίρνει τις δύο παραμέτρους που νωρίτερα - η ερώτημα και το αντικείμενο σύνδεσης .
Η 4
Εκχώρηση μια μεταβλητή για να κρατήσει τα αποτελέσματα . Ο παρακάτω κώδικας εκτελεί το ερώτημα και κατέχει τα αποτελέσματα σε μια μεταβλητή που μπορείτε να χρησιμοποιήσετε για να εμφανίσετε τα αποτελέσματα :
αποτελέσματα = command.ExecuteQuery ( )
5
Εμφανίζει το πρώτο αποτέλεσμα από το ερώτημα . Ο κώδικας που ακολουθεί τυπώνει το πρώτο όνομα ερώτημα στο αντικείμενο εντολής :
Εκτύπωση αποτελεσμάτων ( " first_name " )
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα