Πώς να χρησιμοποιήσετε ένα VB να καλέσετε Δείτε ένα ερώτημα

Γνωρίζοντας πώς να αναζητούν έναν πίνακα βάσης δεδομένων της Access χρησιμοποιώντας το Microsoft Visual Basic.NET μπορεί να κάνει εφαρμογή των Windows σας πιο δυναμική . Access είναι ένα σχεσιακό σύστημα διαχείρισης βάσεων δεδομένων που περιλαμβάνονται στη σουίτα Microsoft Office . VB.NET είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιείται για τη δημιουργία εφαρμογών Windows. Σε μερικά βήματα , μπορείτε να δημιουργήσετε μια εφαρμογή VB.NET για πρόσβαση στη βάση δεδομένων Northwind που περιλαμβάνεται με το MS Office και ερώτημα στον πίνακα πελατών . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic
Microsoft Office Access
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Visual Basic Express και κάντε κλικ στο "New Project ... " στο αριστερό τμήμα της οθόνης σας . Κάντε διπλό κλικ στο αρχείο " . Εφαρμογή Console" 2

Πληκτρολογήστε τα ακόλουθα στην πρώτη γραμμή της « Module1.vb " :

Εισαγωγές System.Data.OleDb

με 3

Πληκτρολογήστε την ακόλουθη κάτω από το " Sub Main ( ) " για να δηλώσετε τις μεταβλητές σας :

Dim conn Όπως OleDbConnection

Dim strSQL Όπως String Dim

ds Όπως DataSet

Dim tmpStr Όπως String
Η 4

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο ερώτημα επιλογής σε ερώτημα της «Πελάτες» του πίνακα :

strSQL = "SELECT πελάτες * ΑΠΟ τους πελάτες ? "

conn = Νέα OleDbConnection _

( " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = F : \\. DemandStudios \\ Αρχείο \\ Northwind 2007.accdb ? " )
5

Πληκτρολογήστε τα ακόλουθα για να δημιουργήσετε μια νέα σύνδεση με τη βάση δεδομένων σας :

Dim MyConnection Όπως OleDbConnection = νέα OleDbConnection

Dim da Όπως OleDbDataAdapter

da = Νέα OleDbDataAdapter ( strSQL , conn )

ds = New DataSet
Η 6

Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω όλων των εγγραφών που επιστρέφονται από το ερώτημα και να τα αποθηκεύσετε σε μια μεταβλητή συμβολοσειράς :

da.Fill (ds , " Πελάτες " )

For Each rowCust Σε ds.Tables ( « πελάτες» ) Γραμμές

tmpStr = tmpStr & . rowCust ( «Εταιρεία» ) ToString ( ) & . "