Creación de tabla de programación VB

Si usa programación VB para crear una tabla, use ADOX para implementarla. Debe hacer referencia a la biblioteca de objetos ADOX antes de usarla.

El siguiente código muestra cómo crear una nueva tabla.

Sub CreateTable()

Dim tbl como nueva tabla

Dim cat como nuevo ADOX.Catalog

'Abrir el catálogo.

'Abre el catálogo.

cat.ActiveConnection = _

"Provider=Microsoft.Jet.OLEDB.4.0;" amp; p> "Fuente de datos=c:\Archivos de programa\Microsoft Office\" & _

"Office\Samples\Northwind.mdb;"

tbl.Name = "MiTabla"

tbl.Columns.Append "Columna1", adInteger

tbl.Columns.Append "Columna2", adInteger

tbl.Columns.Append "Columna3", adVarWChar, 50

cat.Tables.Append tbl

End Sub