Oprettelse af en database i Visual Basic kan være nyttigt, hvis du har brug for en database med en præcis mængde af poster og felter til test. Den første metode til at gøre dette bruger Visual Basic 4.0 og opretter en Microsoft Office Access -database med en kode eksempel , som du kan tilpasse til at ændre indholdet af posterne. Den anden teknik bruger både ADOX og Visual Basic for at oprette en Access -database ved hjælp af et eksempel kode. Instruktioner
Oprette en database med Visual Basic 4,0
1
Åbn din "Visual Basic 4.0" ansøgning.
2
Klik på " Filer" og derefter " nyt projekt ".
3
Indsæt en" DBgrid Control "" data Control "og en" Command Button "på skema 1 .
4
Skift DBgrid Control " datakilde Property" til data Control
5
Kopiér dette eksempel kode til den Form1 kodevinduet : .
Option Explicit
Dim RS1 Som Recordset
Dim RS2 Som Recordset
Dim db Som Database
Dim td Som TableDef
Dim fl Som Field
Private Sub Command1_Click ( ) Salg
Dim iFields As Integer ' iRecords As Integer
oprette databasen
Set db = CreateDatabase ( . "C: \\ test.mdb " , dbLangGeneral ) < br >
Set td = db.CreateTableDef ( " Tabel1 " )
"Nu , at databasen er oprettet , tilføje felter til databasen
iFields = 1 til 5 ' det sidste nummer kan ændres.
Set fl = td.CreateField ( " Field " & CStr ( iFields ) dbInteger )
td.Fields.Append fl
Næste iFields < br >
db.TableDefs.Append td
"Nu , at databasen indeholder felter , tilføje poster gennem en
' postsættet .
Set RS1 = db.OpenRecordset ( " Tabel1 " , dbOpenTable )
iRecords = 1 til 10 »For hver række
rs1.AddNew 'Tilføj en ny rekord .
iFields = 1 til 5 ' for hvert felt i posten
RS1 ( " Field " & CStr ( iFields )) = iFields ' tilføje et nummer .
Næste iFields
rs1.Update
Næste iRecords
' Luk både postsættet og database .
rs1.Close
db.Close
' befolke DBGrid kontrol med indholdet af Recordset
Set db = OpenDatabase . ( "C: \\ test.mdb " )
Set RS1 = db.OpenRecordset ( "Select * fra Tabel1 " )
< p > Indstil Data1.Recordset = RS1
Command1.Visible = False
End Sub
Private Sub Form_Load ()
p Hvis Dir ( "C: \\ test.mdb " ) =" " Så
Command1.Caption =" Opret database "
Command1.Visible = Sand
End If
End Sub
6
Tryk på " F5 " på dit tastatur for at køre programmet. Vælg " Command" knappen og befolker DBgrid kontrol. Filen test.mdb er nu oprettet .
Opret en database ved hjælp af ADOX og Visual Basic. NET
7
Start "Visual Basic. NET . "
8
Klik på " Solution Explorer , " højre-klik " Referencer " og derefter vælge " Tilføj kommissorium. "
9
Klik på " COM" fanebladet , og derefter "Microsoft ADO Ext . 2.7 for DDL og sikkerhed, "efterfulgt af" Select ". Klik på "OK".
10
Slet koden fra Module1.vb koden vinduet. Derefter kopiere følgende kode ind i det samme vindue :
Import ADOX
Modul Module1
Sub Main ()
Dim kat Som Catalog = Ny Butik ( )
cat.Create ( " Provider = Microsoft.Jet.OLEDB.4.0 ; " & _
"Data Source = D: \\ AccessDB \\ NewMDB.mdb ," & _
" Jet OLEDB : Motortype = 5")
Console.WriteLine ( " Database Oprettet succesfuldt " )
cat = Nothing
End Sub
< p > Slut Modul
11
Ændre en sti til den nye. mdb -fil , og sørg for at bruge en eksisterende sti.
12
Tryk på " F5 " knappen på dit tastatur at køre projektet . Den . Mdb-fil i Access 2000 ( Jet 4.0 ) format .