Ξεκινήστε το Microsoft Visual Basic 2010 Express , κάντε κλικ στο " Αρχείο" και επιλέξτε "New Project ... " . Κάντε κλικ στο " Windows Forms καταθέσεως " και επιλέξτε "OK".
Διπλό κλικ στο " κουμπί" από το μενού " Εργαλεία " για να προσθέσετε ένα νέο κουμπί στο " Φόρμα1 " . Κάντε διπλό κλικ στο " Button1 " να ανοίξει " Form1.vb " . Πληκτρολογήστε " Εισαγωγές System.Data.Odbc.OdbcConnection " στην πρώτη γραμμή της ενότητας " Form1.vb " . 2
Κάντε κλικ μέσα " Private Sub Button1_Click " και πληκτρολογήστε το παρακάτω για να δηλώσετε τις μεταβλητές σας και ανοίξτε τη σύνδεση DSN σας :
Dim loopCounter As Integer
Dim odbcConn Όπως Odbc.OdbcConnection
odbcConn = Νέα Odbc.OdbcConnection ( " DSN = MyDSN " )
odbcConn.Open ( )
Edit " DSN = MyDSN " για να προσθέσετε το " DSN " όνομα
εικόνων 3
Πληκτρολογήστε την ακόλουθη για την αναζήτηση βάση δεδομένων της Access . :
Dim odbcDataAdapter As New Odbc.OdbcDataAdapter ( "SELECT * FROM ΠΙΝΑΚΑΣ 1 ΠΙΝΑΚΑΣ 1 ? . » , odbcConn )
Dim odbcDataSet Όπως New Data.DataSet
odbcDataAdapter.Fill ( odbcDataSet )
Επεξεργασία "SELECT * FROM ΠΙΝΑΚΑΣ 1 ΠΙΝΑΚΑΣ 1 ? . " για να προσθέσετε το συγκεκριμένο ερώτημα σας
Η 4
Πληκτρολογήστε το παρακάτω, για να βρόχο μέσω ερώτημά σας και θα εμφανιστεί ένα πλαίσιο μηνύματος με πληροφορίες από το αρχείο. πρώτο πεδίο : . . .
Για loopCounter = 0 Για να odbcDataSet.Tables ( 0 ) Rows.Count - 1
MsgBox ( odbcDataSet.Tables ( 0 ) Σειρές ( loopCounter ) σημείο ( 0 ) )
Επόμενο
5
Πληκτρολογήστε τα παρακάτω για να απελευθερώσει τις μεταβλητές σας από τη μνήμη :
odbcConn.Close ( )
odbcConn.Dispose ( )
odbcConn = Τίποτα
Πατήστε το πλήκτρο " F5 " για να τρέξετε το πρόγραμμά σας και κάντε κλικ στο " Button1 " .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα