Πώς να αποκτήσετε πρόσβαση Πολλαπλές Πηγές Δεδομένων

Έχοντας τη γνώση για το πώς να έχουν πρόσβαση σε πολλαπλές πηγές δεδομένων χρησιμοποιώντας το Microsoft Visual Basic.NET να κάνετε την αίτησή σας πιο δυναμική . Μπορείτε να ανοίξετε πολλαπλές συνδέσεις βάσης δεδομένων για την αποστολή εντολών ή δεδομένων ερωτήματος από έναν πίνακα βάσης δεδομένων . Σε αυτό το παράδειγμα, θα δημιουργήσετε μια σύνδεση του Microsoft SQL Server , χρησιμοποιώντας το ActiveX Data Objects ( ADO ) ερώτημα για έναν πίνακα βάσης δεδομένων . Θα κάνει επίσης μια σύνδεση OLEDB σε μια βάση δεδομένων της Microsoft Access για να δημιουργήσετε έναν νέο πίνακα . Μπορείτε να χρησιμοποιήσετε το ADO και Object Linking and Embedding ( OLEDB ) συνδέσεις σε πολλές γλώσσες προγραμματισμού . Σε αυτό το παράδειγμα θα χρησιμοποιήσετε το Microsoft Visual Basic.NET . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Microsoft SQL Server
δεδομένων Northwind
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Visual Basic Express και επιλέξτε " νέο έργο ... " από το αριστερό παράθυρο της οθόνης σας . Κάντε κλικ στο " Visual Basic " υπό τον τίτλο " Εγκατεστημένα πρότυπα , " και στη συνέχεια κάντε διπλό κλικ στο " Windows Forms Application ". 2

Κάντε κλικ στο "Toolbox " παράθυρο και κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί για να Φόρμα σας . Κάντε κλικ στο μενού "Έργο" και επιλέξτε " Ιδιότητες". Κάντε κλικ στην επιλογή "Αναφορές " και στη συνέχεια επιλέξτε "Προσθήκη ". Επιλέξτε " COM " και κάντε κλικ στο " Microsoft ActiveX Data Objects Library". Κάντε κλικ στο " OK".
Εικόνων 3

διπλό κλικ στο " Button1 " για να ανοίξει το μάθημα « Form1.vb " . Πληκτρολογήστε τα ακόλουθα στην πρώτη γραμμή πάνω "Δημόσια Τάξη Φόρμα1 " :

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

Εισαγωγές ADODB
4

Πληκτρολογήστε τα ακόλουθα στο πλαίσιο " Button1_Click " να δηλώσει OLEDB σας μεταβλητές σύνδεσης :

Dim oleDBConn Όπως OleDbConnection

Dim oleDBComm Όπως OleDbCommand

Dim SQLStr Όπως String

5

Τύπος τα εξής υπό τον τίτλο " Button1_Click " να δηλώσει ADO σας μεταβλητές σύνδεσης :

Dim AdoCon As New ADODB.Connection

Dim AdoRst Όπως New ADODB.Recordset

Dim adoResult As String

6

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα σύνδεση με τη βάση δεδομένων Northwind :

oleDBConn = νέα OleDbConnection _

( " Provider = Microsoft.ACE.OLEDB.12.0 ? Data Source = C : \\ Northwind 2007.accdb ? " ) oleDBConn.Open ( )

Επεξεργασία" Source = C : \\ Northwind 2007.accdb »και πληκτρολογήστε τη διαδρομή της βάσης δεδομένων της Access
<. br > 7

Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε μια νέα σύνδεση ADO με τη βάση δεδομένων του SQL Server :

AdoCon.ConnectionString = " Provider = SQLNCLI10 ? " _

& "Ο διακομιστής = διακομιστής σας όνομα? " _

& " Η βάση δεδομένων = όνομα της βάσης δεδομένων σας? " _

& « Ολοκληρωμένη Ασφάλεια = SSPI ? " _

& " DataTypeCompatibility = 80 ? " _

& " MARS Connection = False ? "

AdoCon.Open ( )
8

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

SQLStr = " CREATE TABLE ThisTable " _

& " ( FirstName ΧΑΡ , Επώνυμο ΧΑΡ ) ? "

oleDBComm = Νέα OleDbCommand ( SQLStr , oleDBConn )

oleDBComm . ExecuteNonQuery ( )

oleDBConn.Close ( )
Η 9

Πληκτρολογήστε την ακόλουθη ερώτημα για ένα πίνακα στο διακομιστή SQL σας :

AdoRst.ActiveConnection = AdoCon

AdoRst = AdoCon.Execute ( "SELECT tableName.fieldName ΑΠΟ tableName ? " )

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

Ενώ (Δεν AdoRst.EOF )

adoResult = AdoRst.Fields ( " fieldname " ) . Value

MsgBox ( adoResult )

AdoRst.MoveNext ( )

Τέλος Ενώ

AdoCon.Close ( )

AdoCon = Τίποτα

Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας , στη συνέχεια, κάντε κλικ στο κουμπί " Button1 ".
Η

Η