Mensaje enviado por "JANO" <jano@cmactacna.com.pe>
Antes que nada tienes que hacer referencia a las librerias de ADOX en referencias selecciona Microsoft Ado Ext. 2.5 DDL and Security (puede ser otra version el nombre es similar)
luego haces esto
creas un objeto catalogo (claro que antes los declaras)
set cat as new ADOX.catalog
cat.activeconnection = tu_conexion ' con esto ya tienes acceso a la
estructura de la BD
Set tbl = New ADOX.Table ' un objeto tabla
With tbl
.Name = "El nombre de la tabla"
.Columns.Append "Campo1", adLongVarWChar, 4
.Columns.Append "Campo2", adLongVarWChar, 4
End With
cat.Tables.Append tbl ' con esto lo añades la nva tabla a la BD
eso es todo... te reomiendo que revises la ayuda ahi encontraras mas detalles para esto...
Salu2 JANO
Sistemas CMAC-TACNA S.A.
mail: jano@cmactacna.com.pe, cmtsist@terra.com.pe
Fono: 727807; 725305 Anexo 232
"No subestime la capacidad de un lenguaje de programación, el poder está más en la
lógica del programador que en las facilidades que brinde la herramienta"
Harvey Triana