Πώς να συνδεθείτε με ένα Access DB σε Visual Basic Net

. Στον πυρήνα όλων των μεθόδων πρόσβασης δεδομένων Visual Basic.Net ' s βρίσκεται ADO.Net . Αυτή η τεχνολογία πρόσβασης δεδομένων που κυκλοφόρησε στο πρωτότυπο. Net πλαίσιο . Συνδέεται με πολλούς διακομιστές βάσεων δεδομένων , όπως η Microsoft Access , προσφέρει μεγαλύτερη ευελιξία και παρέχει ισχυρή αντιμετώπιση των λαθών. Σύνδεση με Microsoft Access μπορεί να απεικονιστεί με τη δημιουργία μια απλή εφαρμογή κονσόλας που απαριθμεί ονόματα από μια βάση δεδομένων επαφών . Οδηγίες
Η

1 Ανοίξτε το Microsoft Access ( 2000 ή αργότερα) και να δημιουργήσετε μια νέα βάση δεδομένων που ονομάζεται Επαφές . Δημιουργήστε ένα πίνακα tblContacts και να προσθέσει δύο πεδία κειμένου , Όνομα και Επώνυμο . Εισάγετε μερικά ονόματα στον πίνακα , στη συνέχεια , κλείστε την Access . 2

Ανοίξτε το Visual Basic.Net ( οποιαδήποτε έκδοση) και να δημιουργήσετε μια νέα εφαρμογή κονσόλας . Προσθέστε την ακόλουθη γραμμή πριν από την ανακοίνωση Ενότητα

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

Module Module1

Ο χώρος ονομάτων OLEDB παρέχει αναφορές στα αντικείμενα πρόσβαση σε βάσεις δεδομένων .

με 3

Προσθέστε την ακόλουθη γραμμή πριν από την ανακοίνωση Ενότητα

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

Module Module1

Ο χώρος ονομάτων OLEDB παρέχει αναφορές στη βάση δεδομένων αντικείμενα πρόσβασης
Η 4

Εισάγετε μια συμβολοσειρά σύνδεσης μετά τη δήλωση ενότητα

Ιδιωτική connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 ? προέλευσης δεδομένων = d : . . \\ contacts.mdb ? "

Η σειρά περιγράφει τον τρόπο σύνδεσης OLEDB θα επικοινωνεί με τη βάση δεδομένων . Μμε παράδειγμα χρησιμοποιεί την υπηρεσία παροχής Microsoft ACE να επικοινωνούν με την πρόσβαση στο

βάση δεδομένων d: \\ contacts.mdb . Αλλαγή της θέσης για να αντανακλούν τη βάση δεδομένων που δημιουργήσατε στο βήμα 1 .
5

Αντιγράψτε τον κώδικα που αναφέρονται παρακάτω στην Κύρια μέθοδο . Ξεκινήστε με την οποία κηρύσσεται η μεταβλητή searchString , η οποία περιέχει την εντολή SQL για να επιλέξετε τα δεδομένα .

Sub Main ( )

Dim searchString As String = " Επιλογή Όνομα, Επώνυμο Από tblContacts "

searchString & = " Ταξινόμηση κατά Επώνυμο, Όνομα ? " .
Η 6

Δημιουργήστε μια σύνδεση με τη βάση δεδομένων της Access χρησιμοποιώντας το αντικείμενο OleDbConnection

Dim conn As New OleDbConnection

Δοκιμάστε

conn.ConnectionString = connString

conn.Open ( )

Catch ex Όπως Εξαίρεση

Console.WriteLine ( " δεν μπορώ να ανοίξω τη βάση δεδομένων » )

Console.WriteLine ( ex.Message )

Επιστροφή

End Δοκιμάστε

χρησιμοποιείτε πάντα δομημένα εξαιρέσεις ( , try /catch ) για την παγίδευση και την έκθεση σφάλματα που ρίχνονται από τα αντικείμενα πρόσβασης δεδομένων .
Η 7

εντολή και αντικείμενα προσαρμογέα δεδομένων Δημιουργία και χρήση τους για να ανακτήσετε τα αποτελέσματα της αναζήτησης σε μια νέα δομή DataSet .

Dim ds As New DataSet

Δοκιμάστε

Dim cmd As New OleDbCommand ( searchString , conn )

cmd.CommandType = CommandType.Text

Dim dap As New OleDbDataAdapter

dap.SelectCommand = cmd

dap.Fill (ds )

Catch ex Όπως Εξαίρεση

Console.WriteLine ( "Δεν μπορώ να εκτελέσει την αναζήτηση Δοκιμάστε
8

Loop μέσω των σειρών του συνόλου δεδομένων για να ανακτήσετε τα πεδία όνομα και το επώνυμο . Από την πρόσβαση σε μια τιμή null προκαλεί μια εξαίρεση , πάντα να δοκιμάζονται για μηδενικές τιμές πριν από την ανάκτηση τους .

Console.WriteLine ( " Επαφές : " ) .

για κάθε γραμμή Όπως DataRow Σε ds.Tables ( 0 ) Γραμμές

Αν row.IsNull ( " FirstName " ) = False τότε

Console.Write ( σειρά ( " FirstName " ) & "" )

End If

Εάν row.IsNull ( "Επώνυμο" ) = True Αν

Επόμενο

WriteLine ( " βρέθηκε" & ds.Tables ( 0 ) . Rows.Count.ToString & «επαφές» )

End Sub

End Module
Η
εικόνων