Πώς να δημιουργήσετε μια βάση δεδομένων της Access 2007 σε VB

δημιουργία μιας βάσης δεδομένων σε Visual Basic μπορεί να είναι χρήσιμο εάν χρειάζεστε μια βάση δεδομένων με ένα ακριβές ποσό των εγγραφών και τα πεδία για τη δοκιμή . Η πρώτη μέθοδος για να γίνει αυτό χρησιμοποιεί την Visual Basic 4.0 και δημιουργεί μια βάση δεδομένων της Microsoft Office Access με ένα παράδειγμα κώδικα που μπορείτε να προσαρμόσετε για να μεταβάλει το περιεχόμενο των αρχείων . Η δεύτερη τεχνική χρησιμοποιεί τόσο ADOX και Visual Basic για να δημιουργήσετε μια βάση δεδομένων της Access χρησιμοποιώντας ένα παράδειγμα κώδικα . Οδηγίες
Δημιουργήστε μια βάση δεδομένων με το Visual Basic 4.0
Η

1 Ανοίξτε το " Visual Basic 4.0 " εφαρμογή. 2

Κάντε κλικ στο "Αρχείο" μενού , και στη συνέχεια " νέο έργο ».
εικόνων 3

Τοποθετήστε ένα" DBGrid Ελέγχου "," Control Data " και " Command Button " στο έντυπο 1 .
Η 4

Αλλαγή του . DBGrid Control " Data Source Property " στο Control Data
5

Αντιγράψτε αυτό το παράδειγμα κώδικα στο παράθυρο κώδικα Φόρμα1 :

Option Explicit Dim

RS1 Όπως εγγραφών

Dim rs2 Όπως εγγραφών

Dim db Όπως Database

Dim td Όπως TableDef

Dim fl Ως πεδίο

Private Sub Command1_Click ( )

Dim iFields As Integer , iRecords As Integer

« Δημιουργία της βάσης δεδομένων

Set db = createDatabase ( " C : \\ test.mdb " . , dbLangGeneral )

Ορισμός td = db.CreateTableDef ( " Πίνακας 1 " )

« τώρα που η βάση δεδομένων δημιουργείται , προσθέστε τα πεδία στη βάση δεδομένων

για iFields = 1 To 5 ' ο τελευταίος αριθμός μπορεί να αλλάξει .

Set fl = td.CreateField ( "Field" & CStr ( iFields ) , dbInteger )

td.Fields.Append fl

Επόμενο iFields

db.TableDefs.Append td

« τώρα που η βάση δεδομένων έχει πεδία, να προσθέσετε αρχεία μέσω

» εγγραφών .

Set RS1 = db.OpenRecordset ( " Πίνακας 1 " , dbOpenTable )

Για iRecords = 1 σε 10 «Για κάθε σειρά

rs1.AddNew ' προσθέσετε μια νέα εγγραφή .

Για iFields = 1 έως 5 ' για κάθε πεδίο της εγγραφής

RS1 ( "Field" & CStr ( iFields ) ) = iFields ' προσθέσετε έναν αριθμό .

Επόμενο iFields

rs1.Update

Επόμενο iRecords

'Κλείσιμο τόσο το σύνολο εγγραφών και δεδομένων .

rs1.Close

db.Close

« Συμπλήρωση του DBGrid ελέγχου με το περιεχόμενα του Recordset

Set db = OpenDatabase . ( " C : \\ test.mdb " )

Set RS1 = db.OpenRecordset ( " Επιλέξτε * από Πίνακας1 " )

Ορισμός Data1.Recordset = RS1

Command1.Visible = False

End Sub

Private Sub Form_Load ( )

Εάν Dir ( " C : \\ test.mdb " ) = " " τότε

Command1.Caption = " Δημιουργία βάσης δεδομένων "

Command1.Visible = True

End If

End Sub
Η

6 Πατήστε το πλήκτρο " F5 " στο πληκτρολόγιό σας για να τρέξει το πρόγραμμα . Επιλέξτε το πλήκτρο " Command" και να συμπληρώσετε τον έλεγχο DBGrid . Η test.mdb αρχείο δημιουργείται τώρα .
Εικόνων Δημιουργήστε μια βάση δεδομένων χρησιμοποιώντας ADOX και Visual Basic . NET
Η 7

Εκκίνηση " Visual Basic . ΝΕΤ . "