Hur Infoga Null Into tabell Visual Basic & Adox

Att ha kunskap om hur man infogar ett null- värde i en tabell med hjälp av Microsoft Visual Basic med en Adox anslutning kan göra din ansökan mer dynamisk . Ett null-värde kan representera ett tomt värde i en databas tabell . VB.NET är ett objektorienterat programmeringsspråk som används för att skapa Windows-program . Adox , vilket är en förlängning till ADO-objekt , innehåller föremål för schema ändring, inklusive säkerhet . I några få steg kommer du att skapa en VB.NET projekt som ansluter till en Access-databas för att skapa en tabell och infoga ett null- värde . Saker du behöver
Microsoft Visual Basic Express Review Access-databas
Visa fler instruktioner
1

Starta Microsoft Visual Basic Express . Klicka på " Nytt projekt " och välj sedan " Windows Forms Application " . Klicka på " OK . " Klicka på " Verktyg" i den vänstra rutan på skärmen och sedan dubbelklicka på " knappen " för att lägga till en ny knapp .
2

Dubbelklicka på " Button1 " för att öppna " Form1.vb " modul . Klicka på " Project " -menyn och välj sedan " Add Reference .. " Välj " COM "-fliken och klicka sedan på " Microsoft Active Data Objects Library " och klicka på " OK . " Gör på samma sätt och lägg till " Microsoft ADO Ext för DDL och säkerhet . ".
3

Skriv följande för att deklarera dina variabler :

Dim cn Som ADODB.Connection

Dim Katt Som ADOX.Catalog

Dim objTable Som ADOX.Table

Dim sqlstr As String

Cn = Ny adodb . anslutning

Cat = ny ADOX.Catalog

objTable = ny ADOX.Table
4

Skriv följande för att skapa en ny variabel och ställ in den till NULL :

Dim värde VariantType

värde = Constants.vbNull
5

Skriv följande för att skapa en anslutning till din Access-databas :

Cn . Open ( " Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = C : \\ Northwind 2007.accdb " ) katalog

Cat.ActiveConnection = Cn

Redigera följande kod och ange sökvägen och namn till din databas :

C : \\ Northwind 2007.accdb
6

Skriv följande för att skapa en ny tabell som heter " ADOXTable " :

objTable . Name = " ADOXTable "

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

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

Cat.Tables.Append ( objTable )
7

Skriv följande för att sätta ett nytt rekord av data med ett NULL-värde :

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

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

Cn.Execute ( sqlstr )

8

Skriv följande för att frigöra variabler från minnet :

Cat = Nothing

Cn.Close ( ) katalog

Cn = Nothing

Tryck " F5 " för att köra programmet och klicka sedan på " Button1 . " Addera