Opprette en database i Visual Basic kan være nyttig hvis du trenger en database med en presis mengde poster og felt for testing. Den første metoden for å gjøre dette bruker Visual Basic 4.0 og skaper en Microsoft Office Access database med en kode eksempel at du kan tilpasse til å endre innholdet i postene . Den andre teknikken bruker både ADOX og Visual Basic for å opprette en Access database ved hjelp av et eksempel kode . Instruksjoner , Lag en database med Visual Basic 4.0
en
Åpne " Visual Basic 4.0 " program .
2
Klikk på "File "-menyen , og deretter " nytt prosjekt . "
3
Sett inn en" DBGrid Control, " " Data Control " og " Command Button "på skjema 1 .
4
Endre DBGrid Control " datakilde Property" til data Control
5
Kopier dette eksempelet koden til Form1 kode vinduet: .
Option Explicit
Dim rs1 Som Recordset
Dim rs2 Som Recordset
Dim db As Database
Dim td Som TableDef
Dim fl Som Felt
Private Sub Command1_Click ( )
Dim iFields As Integer , ' iRecords As Integer
Lag databasen
Sett db = CreateDatabase ( . "C : \\ test.mdb " , dbLangGeneral )
Set td = db.CreateTableDef ( " Tabell 1 ")
' nå at databasen er opprettet, legge til felt i databasen
for iFields = 1 To 5 ' den siste nummer kan endres .
Sett fl = td.CreateField ( "Feltet " & CStr ( iFields ) , dbInteger )
td.Fields.Append fl
Neste iFields
db.TableDefs.Append td
' nå at databasen har felt , legge til poster gjennom en
' recordset .
Set rs1 = db.OpenRecordset ( " Tabell 1 " , dbOpenTable )
For iRecords = 1 To 10 ' For hver rad
rs1.AddNew ' Legg til en ny rekord .
For iFields = 1 To 5 ' for hvert felt i posten
rs1 ( "Feltet " & CStr ( iFields ) ) = iFields ' legge til et nummer .
Neste iFields
rs1.Update
Neste iRecords
' Lukk både postsettet og database .
rs1.Close
db.Close
' Fylle DBGrid kontroll med innholdet i Recordset
Set db = OpenDatabase . ( "C : \\ test.mdb ")
Set RS1 = db.OpenRecordset ( " Select * fra Table1 " )
< p > Set Data1.Recordset = rs1
Command1.Visible = False
End Sub
Private Sub Form_Load ( )
p Hvis Dir ( "C : \\ test.mdb ") = " "Then
Command1.Caption = " Opprett Database "
Command1.Visible = sant
End If
End Sub
6
Trykk " F5" på tastaturet for å kjøre programmet . Velg " Command "-knappen og fylle DBGrid kontroll. Filen test.mdb er nå opprettet .
Opprette en database ved hjelp ADOX og Visual Basic. NET
7
Start " Visual Basic. NET . "
Side 8
Klikk " Solution Explorer , " høyreklikk "Referanser " og deretter velge "Add Reference. "
9
Klikk på " COM "-fanen og deretter "Microsoft ADO Ext . 2.7 for DDL og sikkerhet ", etterfulgt av " Select ". Klikk "OK".
10
Slett koden fra Module1.vb koden vinduet. Deretter kopiere følgende kode inn i samme vindu :
Importen ADOX
Module Module1
Sub main ()
Dim katt Som Catalog = Ny Catalog ( )
cat.Create ( " Provider = Microsoft.Jet.OLEDB.4.0 ; " & _
"Data Source = D: \\ AccessDB \\ NewMDB.mdb ; " & _
" Jet OLEDB : Motortype = 5 " )
Console.WriteLine ( " Database opprettet ")
cat = Ingenting
End Sub
< p> End Module
11
Endre en bane for den nye . MDB-filen , og pass på å bruke en eksisterende bane .
12
Trykk " F5 "-knappen på tastaturet for å kjøre prosjektet . Den . MDB -filen er i Access 2000 ( Jet 4.0 ) format .
