Πώς να εξαγάγετε στην Access Από Visual Basic

Συχνά χρειάζεται να εξάγουν τα δεδομένα στην Access από τη Visual Basic αν χρειαστεί να χειριστείτε περαιτέρω τα δεδομένα μέσα από ερωτήματα στην Access . Στη VB , μπορείτε να χρησιμοποιήσετε το " OleDbConnection " να κάνει μια σύνδεση με Access και, στη συνέχεια, η κατηγορία « OleDbCommand " χρησιμοποιείται για να δημιουργήσει πίνακες ή εισαγωγή δεδομένων σε πίνακες της Access . Ένα στοιχείο ελέγχου προβολής πλέγματος δεδομένων χρησιμοποιείται συνήθως σε VB για να εμφανίσετε τα δεδομένα σε μορφή πίνακα παρόμοιο με έναν πίνακα βάσης δεδομένων . Χρησιμοποιώντας ένα στοιχείο ελέγχου προβολής του δικτύου δεδομένων για να εμφανίσει τα δεδομένα είναι χρήσιμα για τον χρήστη όσο και για τους προγραμματιστές κατά την εξαγωγή σε έναν πίνακα της Access . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Visual Basic Express , κάντε κλικ στο " New Project ... " στο αριστερό τμήμα της οθόνης σας . Επιλέξτε " Windows Forms Application ". Κάντε κλικ στο " OK". 2

διπλό κλικ στο " DataGridView " στο " Toolbox" παράθυρο για να προσθέσετε ένα νέο στοιχείο ελέγχου προβολής του δικτύου δεδομένων . Προσθέστε ένα νέο κουμπί , χρησιμοποιώντας την ίδια τεχνική .
Εικόνων 3

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

Me.DataGridView1.ColumnCount = 2

Με DataGridView1

RowHeadersVisible = False

. . στήλες ( 0 ) . Name = " Τύπος "

. στήλες ( 1 ) . Όνομα = "Κατάσταση"

. SelectionMode = DataGridViewSelectionMode.FullRowSelect

End With

Dim row0 Όπως String ( ) = { " iPad " , " Sold out " }

Dim row1 Όπως String ( ) = { "Monitor " , " Σε απόθεμα "}

Με Me.DataGridView1.Rows

. Προσθήκη ( row0 )

. Προσθήκη ( row1 )

End With
Η

4 Κάντε κλικ στο κουμπί " Form1.vb [ Μελέτη ] " και κάντε διπλό κλικ στο " Button1 " για να δημιουργήσετε ένα συμβάν κλικ του κουμπιού . Πληκτρολογήστε τον ακόλουθο κώδικα για να κηρύξει νέες μεταβλητές που θα χρησιμοποιήσετε για την εξαγωγή των δεδομένων προβολή πλέγματος δεδομένα:

Dim dbConn Όπως OleDbConnection

Dim dbCommand Όπως OleDbCommand

Dim SQLString As String

5

Πληκτρολογήστε τα ακόλουθα για να δημιουργήσετε και να ανοίξετε τη σύνδεση με Access :

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

dbConn.Open ( )
Η 6

Δημιουργήστε ένα νέο πίνακα στην Access , όπου τα δεδομένα θα πρέπει να εξάγονται σε :

SQLString = " CREATE TABLE GridData ( Τύπος κείμενο, το κείμενο Status ) "

dbCommand = Νέα OleDbCommand ( SQLString , dbConn )

dbCommand.ExecuteNonQuery ( )
Η 7

Loop μέσα από κάθε κυττάρων στον έλεγχο προβολή πλέγματος των δεδομένων και την εξαγωγή των δεδομένων σε πίνακα της Access που δημιουργήσατε στο προηγούμενο βήμα με την προσθήκη του παρακάτω κώδικα :

για κάθε γραμμή Όπως DataGridViewRow σε DataGridView1.Rows

SQLString = " INSERT INTO GridData ( Τύπος , Τύπος ) "

SQLString = SQLString & " ΑΞΙΕΣ ( " & row.Cells.Item ( " Type" ) . Value & '" , "

SQLString = SQLString & " " & row.Cells.Item ( " Status" ) . Value & " " ) "

dbCommand = Νέα OleDbCommand ( SQLString , dbConn )

dbCommand.ExecuteNonQuery ( )

Επόμενο

dbConn.Close ( )
8

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα και κάντε κλικ στο " Button1 " για να εξάγετε τα δεδομένα στην Access .


Η