Tendo o conhecimento sobre como inserir um valor nulo em uma tabela usando o Microsoft Visual Basic com uma conexão ADOX pode fazer sua aplicação mais dinâmica. Um valor nulo pode representar um valor vazio em uma tabela de banco de dados. VB.NET é uma linguagem de programação orientada a objeto usado para criar aplicativos do Windows. ADOX , que é uma extensão para o ADO objetos , fornece objetos para a modificação do esquema , incluindo a segurança . Em algumas etapas , você criará um projeto VB.NET que se conecta a um banco de dados para criar uma tabela e inserir um valor nulo. Coisas que você precisa
Microsoft Visual Basic Express & banco de dados Access
Show Mais instruções
1

Inicie o Microsoft Visual Basic Express. Clique em " New Project " e selecione " Windows Forms Application " . Clique em " OK". Clique em " Ferramentas " no painel esquerdo da tela , em seguida, clicar duas vezes em "Button" para adicionar um novo botão.
2

Duplo clique em " Button1 " para abrir o módulo " Form1.vb " . Clique no menu " Project" e selecione " Add Reference .. " Selecione a aba " COM " e clique em "Microsoft Active Data Objects 3

Digite o seguinte para declarar as variáveis ​​:

Dim cn As ADODB.Connection

Dim gato como ADOX.Catalog

Dim objTable Como ADOX.Table

Dim sqlstr As String

cn = New ADODB . Conexão meu gato

= Novo ADOX.Catalog

objTable = Novo ADOX.Table
4

Digite o seguinte para criar uma nova variável e configurá-lo para NULL :

valor Dim VariantType

valor = Constants.vbNull
5

Digite o seguinte para fazer uma conexão com o banco de dados Access :

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

cat.ActiveConnection = Cn

Edite o seguinte código e digite o caminho eo nome de seu banco de dados :

C: \\ Adamastor 2007.accdb
6

Digite o seguinte para criar uma nova tabela chamada " ADOXTable " :

objTable . Nome = " ADOXTable "

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

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

cat.Tables.Append ( objTable )
7

Digite o seguinte para inserir um novo registro de dados com um valor NULL :

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

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

cn.Execute ( sqlstr )

8

Digite o seguinte para liberar as variáveis ​​da memória :

Cat = Nothing

cn.Close ()

Cn = Nothing

Pressione " F5" para executar o programa e clique em " Button1 ".