Skapa en databas i Visual Basic kan vara användbart om du behöver en databas med en exakt mängd poster och fält för att testa . Den första metoden för att göra detta använder Visual Basic 4.0 och skapar en Microsoft -databas Office Access med ett kodexempel som du kan anpassa för att ändra innehållet i posterna . Den andra tekniken använder både Adox och Visual Basic för att skapa en Access-databas med hjälp av ett exempel kod . Instruktioner Review, Skapa en databas med Visual Basic 4.0
1
Öppna din " Visual Basic 4.0 " applikation .
2
Klicka på " Arkiv " -menyn och sedan " nytt projekt . " Addera 3
in ett " DBGrid kontroll , " " Data Control " och " Command Button " på blankett 1 .
4
Ändra DBGrid Control " Data Source Property " till Data Control
5
Kopiera exemplet kod till Form1 koden fönstret : .
Option Explicit
Dim RS1 som Recordset
Dim RS2 Som Recordset
Dim db som databas
Dim td Som TableDef
Dim fl Som Field
Private Sub Command1_Click ( ) katalog
Dim iFields As Integer ' iRecords As Integer
Skapa databasen
Set db = CreateDatabase ( . " C : \\ test.mdb " , dbLangGeneral )
Set td = db.CreateTableDef ( " Tabell1 " ) katalog
" nu när databasen skapas , lägga till fält i databasen
iFields = 1 till 5 ' det sista numret kan ändras .
Set fl = td.CreateField ( " Field " & CStr ( iFields ) , dbInteger ) katalog
td.Fields.Append fl
Nästa iFields
db.TableDefs.Append td
" nu när databasen har fält , lägga till poster via en
" postmängd .
Set RS1 = db.OpenRecordset ( " Tabell1 " , dbOpenTable ) katalog
iRecords = 1 Till 10 ' För varje rad
rs1.AddNew ' Lägg till ett nytt rekord .
För iFields = 1 till 5 ' för varje fält i posten
RS1 ( " Field " & CStr ( iFields ) ) = iFields ' lägga till ett nummer .
Nästa iFields
rs1.Update
Nästa iRecords
" Stäng både recordset och databas .
rs1.Close
db.Close
' Fylla på DBGrid kontroll med innehållet i Recordset
Set db = OpenDatabase . ( " C : \\ test.mdb " ) katalog
Set RS1 = db.OpenRecordset ( " SELECT * FROM Tabell1 " ) katalog
Ställ Data1.Recordset = RS1
Command1.Visible = False
End Sub
Private Sub Form_Load ( ) katalog p Om Dir ( " C : \\ test.mdb " ) = " " Då
Command1.Caption = " Skapa databas "
Command1.Visible = Sant
End If
Sub
End
6
Tryck " F5 " på tangentbordet för att köra programmet . Välj " Command " -knappen och befolka DBGrid kontroll . Filen test.mdb skapas nu .
Skapa en databas med hjälp Adox och Visual Basic . NET
7
Starta " Visual Basic . NET . "
8
Klicka på " Solution Explorer " högerklicka "Referenser " och välj sedan " Add Reference ".
9
Klicka på " COM " fliken och sedan " Microsoft ADO Ext . 2.7 för DDL och säkerhet , " följt av " Select ". Klicka på " OK . "
10
bort koden från Module1.vb koden fönstret . Kopiera följande kod i samma fönster :
Imports Adox
Modul Module1
Sub Main ( ) katalog
Dim katt Som Catalog = Ny katalog ( ) katalog
cat.Create ( " Provider = Microsoft.Jet.OLEDB.4.0 , " & _
" Data Source = D : \\ AccessDB \\ NewMDB.mdb , " & _
" Jet OLEDB : Motortyp = 5 " ) katalog
Console.WriteLine ( " Database skapats " ) katalog
cat = Nothing
End Sub
ändmodul
11
Ändra en väg för det nya . mDB-fil , se till att använda en befintlig bana .
12
Tryck på " F5 " -knappen på din tangentbordet för att driva projektet . Den . MDB- filen är i Access 2000 ( Jet 4.0 ) format .
