Cómo crear un archivo ACCESS MDB usando código VB

Dim?AuTd?As?TableDef,?TitTd?As?TableDef,?PubTd?As?TableDef

Dim ?AuFids(2)?As?Dim?AuFids(2)?As?Field, ?TitFids(5)?As?Field, ?PubFids(10)?As?Field

Dim?AuIdx?As ?Index, ?TitIdx?As?Index, ?PubIdx?Sub?Command1_Click()

Establecer?MyWS?=?DBEngine.Workspaces(0)

Establecer?MyDB?=? MyWS.CreateDatabase("test.mdb",?dbLangGeneral,?dbVersion03)

Set?TitTd?=?MyDB.

Set?AuTd?=?MyDB.CreateTableDef("Autores ")

Set?PubTd?=?MyDB.CreateTableDef("Editores")

Set?AuFids(0)?

AuFids(0).Attributes ?=?dbAutoIncrField

Set?AuFids(1)? =?AuTd.CreateField("Author",?dbText)

AuFids(1).Tamaño?=?50

AuTd.Fields.Append?AuFids(0)

AuTd.Fields.1)

MyDB.TableDefs.Append?AuTd

' Como no hay campos definidos, la siguiente ejecución del código no es válida

'MyDB.TableDefs.Append?TitTd

'MyDB.TableDefs.Append?Append?PubTd

End? Sub

Private?Sub?Command2_Click()

'Crear índice y establecer valor de atributo

Set?AuIdx?=?AuTd.CreateIndex(" AuthorID")

AuIdx.Primary?=?True

AuIdx.Unique?=?True

Set?NewFld?=?AuIdx.CreateField("AU_ID ")

AuIdx.Fields.Append?NewFkl

AuTd..Indexes.Append?AuIdx

Fin?Sub

¿Privado? Sub?Command3_Click ()

Dim?db?As?Database

Dim?NewTD?As?TableDef

Dim?NewFld?As campo

Set?db?=?DBEngine.Workspaces(0).OpenDatabase("test.mdb")

Set?NewTD?=?db.CreateTableDef("estudiante")

Establecer?

NuevoTD?=?db.

Set?NewFld?=?NewTD.CreateField("nombre",?dbInteger)

NewTD.Fields.Append?NewFld

db.TableDefs.Close

Fin?Sub

Privado?Sub?Command4_Click()

Dim?db?Como base de datos

Establecer?db?= ? DBEngine.Workspaces(0).OpenDatabase("test.mdb")

'Eliminar la siguiente tabla

db.TableDefs.Delete?("Authors")

¿Fin?