Cómo insertar un valor NULL en la tabla de Visual Basic y ADOX

Tener el conocimiento acerca de cómo insertar un valor nulo en una tabla utilizando Microsoft Visual Basic con una conexión ADOX puede hacer su aplicación más dinámica. Un valor nulo puede representar un valor vacío en una tabla de base de datos. VB.NET es un lenguaje de programación orientado a objetos utilizado para crear aplicaciones de Windows. ADOX, que es una extensión a ADO objetos, proporciona objetos de modificación del esquema, incluida la seguridad. En unos pocos pasos que va a crear un proyecto VB.NET que se conecta a una base de datos para crear una tabla e insertar un valor nulo.

Instrucciones

1 Iniciar Microsoft Visual Basic Express. Haga clic en "Nuevo proyecto" y luego seleccione "Aplicación de Windows Forms". Haga clic en Aceptar." Haga clic en "Herramientas" en el panel izquierdo de la pantalla, haga clic a continuación, doble "botón" para añadir un nuevo botón.

2 Haga doble clic en "Button1" para abrir el módulo "Form1.vb". Haga clic en el menú "Proyecto" y luego seleccione "Agregar referencia .." Seleccionar la pestaña "COM" y luego haga clic en "Microsoft Active Data Objects <número de versión> Biblioteca" y haga clic en "Aceptar". Siga el mismo proceso y añadir "Microsoft ADO Ext. <Número de versión> de DDL y seguridad."

3 Escribe lo siguiente para declarar sus variables:

Dim Cn Como ADODB.Connection

Dim Cat As ADOX.Catalog

Dim objTable Como ADOX.Table

Dim como secuencia sqlstr

Cn = New ADODB.Connection

Cat = Nueva ADOX.Catalog

objTable = Nueva ADOX.Table

4 Escribe lo siguiente para crear una nueva variable y la puso a NULL:

Dim value As VariantType

valor = Constants.vbNull

5 Escriba lo siguiente para establecer una conexión con la base de datos de acceso:

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

Cat.ActiveConnection = Cn

Edite el siguiente código y escriba la ruta y el nombre de su base de datos:

C: \ Neptuno 2007.accdb

6 Escribe lo siguiente para crear una nueva tabla llamada "ADOXTable":

objTable.Name = "ADOXTable"

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

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

Cat.Tables.Append (objTable)

7 Escriba lo siguiente para insertar un nuevo registro de datos con un valor NULL:

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

sqlstr = sqlstr y "VALORES (5," & value & ");"

Cn.Execute (sqlstr)

8 Escribe lo siguiente para liberar las variables de la memoria:

Cat = Nothing

Cn.Close ()

Cn = Nada

Pulse la tecla "F5" para ejecutar el programa y haga clic en "Button1".