Open je " Visual Basic 4.0 " applicatie . Kopen van 2

Klik op het menu " File " en vervolgens " nieuw project . "
3

Plaats een" DBGrid control , " " data Control " en een " Command Button " op formulier 1 .
4

wijzigen DBGrid control " data Source Property " om de data Control

Copy 5 dit voorbeeld code om de code venster Form1 : .

Option Explicit Dim

rs1
Zoals Recordset

Dim rs2
als Recordset

Dim db
Als Database

Dim td Zoals TableDef

Dim fl
Als Field

Private Sub Command1_Click ( )

Dim iFields
als Geheel , ' iRecords As Integer

de database Maak

Set db = CreateDatabase ( . ' C : \\ test.mdb " , dbLangGeneral ) < br >

Set td = db.CreateTableDef ( " Tabel1 " ) op Twitter

' Nu de database is gemaakt, velden toe te voegen aan de database

iFields = 1 To 5 ' het laatste nummer kan worden gewijzigd .

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

td.Fields.Append fl

Volgende iFields < br

db.TableDefs.Append td

> ' Nu de database velden , records toe te voegen door middel van een

' recordset .

Set rs1 = db.OpenRecordset ( " Tabel1 " , dbOpenTable ) op Twitter

iRecords = 1 To 10 ' Voor elke rij

rs1.AddNew
' een nieuw record toe te voegen .

iFields = 1 To 5 ' voor elk veld in de record

RS1
( " Field " & CStr ( iFields ) ) = iFields ' een nummer toevoegen .

Volgende iFields

rs1.Update

Volgende iRecords

' Sluit zowel de recordset en database .

rs1.Close

db.Close

' de DBGrid controle met de Populate de inhoud van de Recordset

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

Set
rs1 = db.OpenRecordset ( " Select * van Tabel1 " ) op Twitter

Set Data1.Recordset = RS1

Command1.Visible = False

End Sub

Private Sub Form_Load
( ) op

Als Dir ( " C : \\ test.mdb " ) = " " dan

Command1.Caption
= " Database maken "

Command1.Visible = True

Eind
Als

End Sub

Druk op " F5 " op uw toetsenbord 6 om het programma uit te voeren . Selecteer de " Command " knop en bevolken de DBGrid controle. Het bestand test.mdb is nu aangemaakt .
Maak een database met behulp van ADOX en Visual Basic . NET
7

Start up " Visual Basic . NET . "

8

Klik op " Solution Explorer ", klik met de rechtermuisknop " Referenties " en kies vervolgens " Add Reference . "

Klik 9 op de tab "COM" , vervolgens " Microsoft ADO Ext . 2.7 voor DDL en veiligheid , " gevolgd door" Select . " Klik op "OK . "
10

Wis de code uit het raam Module1.vb code . Kopieer dan de volgende code in het zelfde venster :

Imports
ADOX

Module Module1

Sub Main ( )

Dim kat
Zoals Catalog = Nieuwe catalogus ( )

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

" data Source = D : \\ accessdb \\ NewMDB.mdb ; "
& _

" Jet OLEDB : Engine Type = 5 " )

Console.WriteLine
( " Database Gemaakt succesvol " )

cat
= Nothing

End Sub

End Module
11

wijzigen van een pad voor de nieuwe . mDB-bestand , zorg ervoor om een bestaand pad gebruiken .

Druk 12 de " F5 " toets op uw toetsenbord om het project uit te voeren . Het . Mdb -bestand is in Access 2000 ( Jet 4.0 ) formaat .