Rodolfo wrote:
> Mi nombre es Rodolfo y me seria de mucha ayuda conocer como crear una
> Base
> de Datos Access 7 desde Visual Basic 5.0 y ademas Tablas en esa Base
> de
> Datos.He buscado en la ayuda pero el ejemplo que existe no compila.
>
> Gracias adelantadas
Hola Rodolfo
Ahí va.
Para crear una base de datos:
Declaraciones:
Dim MiBaseDeDatos as Database, MiWorkspace as Workspace
Dim Mitabla as TableDef
Dim MisCampos(1) ' 2 campos MisCampos(0) y MisCampos(1)
Para crear una nueva base de datos:
Set MiWorkspace = DBEngine.Workspaces(0)
Set MiBaseDeDatos =
MiWorkspace.CreateDatabase("C:\MiDirectorio\Nombre.mdb", _
dbLangGeneral, dbVersion30)
Creamos una tabla:
Set MiTabla = MiBaseDeDatos.CreateTableDef("Tabla1")
Añadimos los 2 campos:
Set MisCampos(0) = MiTabla.CreateField("Nombre", dbText)
MisCampos(0).Size = 30
Set MisCampos(1) = MiTabla.CreateField("Apellidos", dbText)
MisCampos(1).Size = 50
Agregamos los campos a la tabla y la tabla a la base de datos:
MiTabla.Fields.Append Miscampos(0)
MiTabla.Fields.Append Miscampos(1)
MiBaseDeDatos.TableDefs.Append MiTabla
Creo que esto debe funcionar, pues en la Guía de Objetos de Acceso a
Datos pone un ejemplo parecido.
Saludos Cordiales,
Jorge