Este codigo te permite crear una tabla y sus indices en tiempo de ejecución.

Private Sub Command1_Click()
Dim db As Database
Dim NewTable As TableDef
Dim Index1 As dao.Index
Dim Index2 As dao.Index

‘ abre la base de datos
Set db = OpenDatabase(App.Path + “\basededatos.mdb”)
‘crea la tabla
Set NewTable = db.CreateTableDef(“wCargaKits”)
On Error Resume Next
‘borra la tabla si ya existe
db.TableDefs.Delete NewTable.Name

‘añade los campos a la tabla
With NewTable
  .Fields.Append .CreateField(“Cama”, dbText, 10)
  .Fields.Append .CreateField(“Historia”, dbText, 10)
  .Fields.Append .CreateField(“Nombre”, dbText, 95)
  .Fields.Append .CreateField(“kit”, dbText, 50)
  .Fields.Append .CreateField(“Unidades”, dbText, 2)
End With
‘crea los indices
Set Index1 = NewTable.CreateIndex(“Cama”)
Index1.Fields.Append Index1.CreateField(“Cama”)
NewTable.Indexes.Append Index1
Set Index2 = NewTable.CreateIndex(“Historia”)
Index2.Fields.Append Index2.CreateField(“Historia”)
NewTable.Indexes.Append Index2

NewTable.Indexes.Refresh
db.TableDefs.Append NewTable


Posts anterior y posterior:
«
»


Posts Relacionados: