Crear una base de datos con ADO, usando código de VB (29/Sep/2001)
Para poder crear una base de datos, desde Visual Basic, usando ADO (ActiveX Data Objects), tenemos que crear en nuestro proyecto una referencia a: Microsoft ADO Ext. 2.6 for DDL and Security (msadox.dll), y crear un objeto del tipo Catalog.
Nota: Esta referencia es para la versión 2.6 de ADO, por tanto puede ser que, si la versión que tienes instalada es otra, en lugar de 2.6 aparezca otra numeración.ADOX sólo está disponible a partir de la versión 2.1 de ADO.
Veamos, de forma simple, cómo crear una base de datos:Dim cat As ADOX.Catalog
Set cat = New ADOX.Catalog
'
' Crear la base de datos
cat.Create "Provider=" & sProvider & ";" & _
"Data Source=" & sNombreBase & ";"
En este ejemplo, tenemos que tener asignadas las variables sProvider (el proveedor) y sNombreBase (el nombre y path de la base de datos).Para una base de datos del tipo Access 97, sProvider = "Microsoft.Jet.OLEDB.3.51"Para una base de datos del tipo Access 2000, sProvider = "Microsoft.Jet.OLEDB.4.0"
Nota: Si la base de datos ya existe, dará un error.
Para más información: Defining and Retrieving a Database’s Schema (MDAC Technical Articles)
