Erstellen einer Datenbank in Visual Basic kann nützlich sein, wenn Sie eine Datenbank mit einer genauen Menge von Datensätzen und Feldern für die Prüfung brauchen . Die erste Methode , dies zu tun verwendet Visual Basic 4.0 und erstellt eine Microsoft Office Access -Datenbank mit einem Code-Beispiel , dass Sie anpassen , um den Inhalt der Datensätze ändern können . Die zweite Technik verwendet sowohl ADOX und Visual Basic auf eine Access-Datenbank unter Verwendung eines Beispiel-Code zu erstellen. Anleitung
Erstellen einer Datenbank mit Visual Basic 4.0
1

Öffnen Sie " Visual Basic 4.0 "-Anwendung.
2

Klicken Sie auf das Menü "Datei" und dann auf " Neues Projekt. "
3

Setzen Sie einen" DBTabelle-Steuerelement "," Data Control "und eine " Command -Taste "auf Form 1 .
4

ändern der DBTabelle-Steuerelement "Data Source-Eigenschaft " des Data Control
5

Kopieren Sie diese Beispiel-Code , um das Codefenster von Form1 : .

Option Explicit Dim rs1

Als Recordset

Dim rs2 Als Recordset Dim db

As Database Dim td

Wie TableDef

Dim fl Als Field Bags

private Sub Command1_Click ( )

Dim iFields As Integer ' iRecords As Integer

erstellen Sie die Datenbank

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

Set td = db.CreateTableDef ( "Tabelle1 " )

" Jetzt, wo die Datenbank erstellt wird , fügen Sie Felder in die Datenbank

iFields = 1 To 5 ' die letzte Zahl kann geändert werden.

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

td.Fields.Append fl

Weiter iFields

db.TableDefs.Append td

' Nun, da die Datenbank-Felder hat , fügen Datensätze durch eine

' Cord .

RS1 = db.OpenRecordset ( "Tabelle1 " , dbOpenTable )

iRecords = 1 To 10 ' Für jede Zeile

rs1.AddNew ' einen neuen Datensatz hinzufügen .

iFields = 1 To 5 ' Für jedes Feld im Datensatz

rs1 ( "Feld" & CStr ( iFields ) ) = iFields " fügen Sie eine Nummer.

Weiter iFields

rs1.Update

Weiter iRecords

' Schließen Sie beide das Recordset und Datenbank .

rs1.Close

db.Close

' die DBGrid Steuerung mit dem Auffüllen Inhalt des Recordset

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

RS1 = db.OpenRecordset ( "SELECT * FROM Tabelle1 " )
< p > Set Data1.Recordset = rs1

Command1.Visible = False End Sub

private Sub Form_Load ()

If Dir ( "C: \\ test.mdb " ) =" "Then

Command1.Caption =" Datenbank erstellen "

Command1.Visible = True

End If End Sub

6

Presse "F5 " auf Ihrer Tastatur, um das Programm auszuführen. Wählen Sie die "Command" -Taste und füllen Sie das DBTabelle Kontrolle. Die Datei wird nun erstellt test.mdb .
Erstellung einer Datenbank mit ADOX und Visual Basic. NET
7

Start up " Visual Basic. NET . "
Seite 8

Klicken Sie auf " Explorer " mit der rechten Maustaste " Referenzen " und wählen Sie dann "Add Reference."
9

Klicken Sie auf das "COM ", dann "Microsoft ADO Ext. . 2.7 for DDL and Security ", gefolgt von " Select ". Klicken Sie auf " OK".
10

Löschen Sie den Code aus dem Module1.vb Code-Fenster . Dann kopieren Sie den folgenden Code in das selbe Fenster :

Importe ADOX

Module Module1

Sub Main () Dim

Katze Wie Catalog = Neuer Katalog ( )

cat.Create ( "Provider = Microsoft.Jet.OLEDB.4.0; " & _

" Data Source = D: \\ AccessDB \\ NewMDB.mdb ; " & _

"Jet OLEDB: Motortyp = 5")

Console.WriteLine ( "Datenbank erfolgreich erstellt " )

cat = Nothing End Sub

< p> End Module
11

ändern Sie den Pfad für die neue . mdb -Datei, und achten Sie auf einen vorhandenen Pfad zu verwenden.
12

Drücken Sie die Taste "F5" -Taste auf Ihrer Tastatur, um das Projekt auszuführen. Die . Mdb -Datei in Access 2000 ( Jet 4.0 )-Format .