andres
12 de Abril del 2004

hola uso una base de datos access y ado; quiero saber como seria la instrucion para crear una tabla dentro de esta base de datos; solo una tabla sin campos ni nada...
es algo como esto ....


dim SqlTabla as string

cqltabla = "create table" & "prueva" (aca me falta algo pero no se que)

conexion.Execute cqltabla

saludos

meifer
12 de Abril del 2004

Hola espero q te sirva esto:

Dim MiBaseDeDatos As Database
Dim Mitabla As TableDef
Dim MisCampos(1) ' 2 campos MisCampos(0) y MisCampos(1)


Set Mitabla = MiBaseDeDatos.CreateTableDef("Tabla1") ' este crea la tabla
Set MisCampos(0) = Mitabla.CreateField("Nombre", dbText) ' este crea el 1er campo
MisCampos(0).Size = 30
Set MisCampos(1) = Mitabla.CreateField("Apellidos", dbText)' este crea el 2do campo
MisCampos(1).Size = 50
Mitabla.Fields.Append MisCampos(0)
Mitabla.Fields.Append MisCampos(1)
MiBaseDeDatos.TableDefs.Append Mitabla

P/d Creo q para crea una tabla es necesario crearle por lo menos un campo.