Πώς να αποκτήσετε πρόσβαση OLE και ActiveX

Γνωρίζοντας πώς να έχουν πρόσβαση OLE και ActiveX διασυνδέσεις μπορεί να σας δώσει περισσότερη δύναμη για το πώς να ανακτήσετε δεδομένα από μια ποικιλία πηγών . Ένα αντικείμενο OLE είναι επίσης γνωστή ως ένα στοιχείο ελέγχου ActiveX . ActiveX είναι πραγματικά ακριβώς ένα άλλο όνομα για ένα αντικείμενο OLE . Πραγματοποιήστε μια σύνδεση του Microsoft SQL Server , χρησιμοποιώντας το ActiveX Data Objects ( ADO ) ερώτημα για έναν πίνακα βάσης δεδομένων . Επίσης, κάνει μια σύνδεση OLEDB σε μια βάση δεδομένων της Microsoft Access για να δημιουργήσετε έναν νέο πίνακα . Δύο από αυτά τα αντικείμενα μπορούν να χρησιμοποιηθούν σε πολλές γλώσσες προγραμματισμού, αλλά σε αυτό το παράδειγμα θα χρησιμοποιήσετε Visual Basic. ΝΕΤ . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Basic Express
Microsoft SQL Server
Η βάση δεδομένων της Microsoft Office Access
Παρουσίαση Περισσότερες οδηγίες
Η

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

Κάντε κλικ στο "Toolbox " παράθυρο και κάντε διπλό κλικ στο " κουμπί" για να προσθέσετε ένα νέο κουμπί για να σας μορφή . Κάντε κλικ στο μενού "Έργο" και επιλέξτε " Ιδιότητες".
Εικόνων 3

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

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

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

Εισαγωγές ADODB

5

Αντιγράψτε και επικολλήστε τον παρακάτω υπό τον τίτλο " Button1_Click " για να δημιουργήσετε μια σύνδεση OLE και να δημιουργήσετε έναν πίνακα σε μια βάση δεδομένων της Access :

Dim OLEConn Όπως OleDbConnection

Dim OLECmd Όπως OleDbCommand

Dim strSQL As String < br >

OLEConn = Νέα OleDbConnection _

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

OLEConn.Open ( )

strSQL = " CREATE TABLE ThisTable " _

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

OLECmd = Νέα OleDbCommand ( strSQL , OLEConn )

OLECmd.ExecuteNonQuery ( )

OLEConn.Close ( )

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

Αντιγραφή και επικόλληση στην επόμενη γραμμή τον παρακάτω κώδικα για να δημιουργήσετε μια σύνδεση ADO σε μια παρουσία του SQL Server και το ερώτημα έναν πίνακα βάσης δεδομένων :

Dim ADOConn Όπως New ADODB.Connection
< p> Dim ADORst Όπως New ADODB.Recordset

Dim ADORslt Όπως String

ADOConn.ConnectionString = " Provider = SQLNCLI10 ? " _

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

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

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

& " DataTypeCompatibility = 80 ? " _

& " MARS Connection = False ? "

ADOConn.Open ( )

ADORst.ActiveConnection = ADOConn

ADORst = ADOConn.Execute ( "SELECT tableName.fieldName ΑΠΟ tableName ? " )

Ενώ (Δεν ADORst.EOF )

ADORslt = ADORst.Fields ( " fieldname " ) Αξία

MsgBox ( ADORslt )
< . p> ADORst.MoveNext ( )

End Ενώ

ADOConn.Close ( )

ADOConn = Τίποτα
Η
εικόνων