Start Microsoft Visual Basic Express . Klik op " New Project " en selecteer " Windows Forms Application " . Klik op " OK . " Klik op " Toolbox " aan de linkerkant van uw scherm dubbelklik dan op " knop" om een nieuwe knop toe te voegen . Kopen van 2

Dubbelklik " Button1 " om de " Form1.vb " module te openen . Klik op het menu " Project " en selecteer " Add Reference .. " Selecteer het tabblad " COM " en klik op ' Microsoft Active Data Objects Library " en klik op" OK . " Volg hetzelfde proces en voeg " Microsoft ADO Ext voor DDL en veiligheid . ".

Type 3 het volgende om uw variabelen te verklaren :

Dim cn Zoals ADODB.Connection

Dim Cat Als ADOX.Catalog

Dim objTable
Zoals ADOX.Table

Dim sqlstr
als Koord

cn = Nieuw ADODB . aansluiting

Kat
= nieuwe ADOX.Catalog

objTable
= nieuwe ADOX.Table

Type 4 het volgende om een nieuwe variabele te maken en deze ook op NULL : < br

Dim waarde > Als VariantType

waarde
= Constants.vbNull

Type 5 het volgende om een verbinding te maken met uw Access-database :

Cn
. Open ( " Provider = Microsoft.ACE.OLEDB.12.0 ; data Source = C : \\ Noordenwind 2007.accdb " )

Cat.ActiveConnection
= Cn

Bewerk de volgende code en typ het pad en de naam van uw database:

C : \\ Northwind 2007.accdb

Type 6 de volgende opties om een ​​nieuwe tabel met de naam " ADOXTable " te creëren :

objTable
. name = " ADOXTable "

objTable.Columns.Append
( " ID " , ADOX.DataTypeEnum.adInteger )

objTable.Columns.Append
( " IdDesc " , ADOX.DataTypeEnum.adWChar ) < br

Cat.Tables.Append > ( objTable )

Type 7 de volgende naar een nieuw record van gegevens in te voegen met een NULL waarde :

sqlstr = " INSERT INTO " & ( objTable.Name ) & " ( ID , IdDesc ) "

sqlstr = sqlstr & " VALUES ( 5 , " & value & " ) ; "

Cn.Execute
( sqlstr ) < br >

Type 8 de volgende variabelen te bevrijden van het geheugen :

Kat
= Nothing

Cn.Close
( )

Cn = Nothing

Druk op " F5 " om het programma vervolgens uitvoeren op " Button1 . "