Resumen Crear una base de datos mediante código

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



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com