Å ha kunnskap om hvordan du setter inn en nullverdi i en tabell ved hjelp av Microsoft Visual Basic med en ADOX tilkobling kan gjøre programmet mer dynamisk . En nullverdi kan representere en tom verdi i en database tabell . VB.NET er et objektorientert programmeringsspråk som brukes til å lage Windows-programmer . ADOX , som er en utvidelse til ADO objekter, gir objekter for skjema modifikasjon, inkludert sikkerhet. I noen få trinn vil du lage en VB.NET prosjekt som kobler til en Access database for å lage et bord og sette inn en nullverdi. Du trenger
Microsoft Visual Basic Express & Access database
Vis flere instruksjoner
en

start Microsoft Visual Basic Express . Klikk "New Project " og velg "Windows Forms Application " . Klikk "OK". Klikk på " Toolbox " på ruten til venstre på skjermen deretter dobbeltklikk på " Button" for å legge til en ny knapp .
2

Dobbelklikk " Button1 " for å åpne " Form1.vb " modulen. Klikk på "Project "-menyen og velg deretter " Add Reference .. " Velg " COM "-fanen og klikk " Microsoft Active Data Objects Library" og klikk " OK . " Følger den samme prosessen og legge til " Microsoft ADO Ext. for DDL og sikkerhet . ".
3

Skriv inn følgende å erklære variabler : en

Dim cn Som ADODB.Connection

Dim Cat Som ADOX.Catalog

Dim objTable Som ADOX.Table

Dim sqlStr As String

Cn = Ny adodb . tilkobling

Cat = Ny ADOX.Catalog

objTable = Ny ADOX.Table
4

Skriv inn følgende for å opprette en ny variabel , og sett den til NULL :

Dim verdi Som VariantType

value = Constants.vbNull
5

Skriv inn følgende for å opprette en tilkobling til Access-databasen : en

Cn . åpne ( " Provider = Microsoft.ACE.OLEDB.12.0 ; datakilde = C: \\ Northwind 2007.accdb ")

Cat.ActiveConnection = Cn

Rediger følgende kode og skriv inn banen og navnet til databasen : en

C: \\ Northwind 2007.accdb
6

Skriv inn følgende for å opprette en ny tabell kalt " ADOXTable " : en

objTable . name = " ADOXTable "

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

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

Cat.Tables.Append ( objTable )
7

Skriv inn følgende for å sette en ny rekord med data med en NULL-verdi : en

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

sqlStr = sqlStr & " VALUES ( 5 , " & verdi & " ); "

Cn.Execute ( sqlStr )
Side 8

Skriv inn følgende for å frigjøre variabler fra minnet : en

Cat = Ingenting

Cn.Close ( )

Cn = Ingenting

Trykk " F5 " for å kjøre programmet og klikk på « Button1 . "