Como crear indexes a una tabla

Gerardo Garcia
15 de Julio del 2004
Private Sub newtabla()
Dim Tabla As TableDef
nuevatabla = "temporalfuawin"
On Error Resume Next
BD.TableDefs.Delete nuevatabla
Set Tabla = BD.CreateTableDef(nuevatabla)

Tabla.Fields.Append Tabla.CreateField("Orden", dbText, 9)
Tabla.Fields.Append Tabla.CreateField("Id", dbDouble, 0)
Tabla.Fields.Append Tabla.CreateField("Nombre", dbText, 80)
Tabla.Fields.Append Tabla.CreateField("Importe", dbDouble, 2)
Tabla.Fields.Append Tabla.CreateField("Finicio", dbDate)
Tabla.Fields.Append Tabla.CreateField("Tc", dbDouble, 2)
Tabla.Fields.Append Tabla.CreateField("Factura", dbText, 10)
BD.TableDefs.Append Tabla

End Sub

tecniCam
15 de Julio del 2004
Crea el índice de los objetos, asigna propiedades y añade los índices a la tabla
'*******************************************
Dim Idx1 As Index, Idx2 As Index, Fld1 As Field, Fld2 As Field
Set Idx1 = NewTbl.CreateIndex("Articulo")
Idx1.Primary = True
Set Fld1 = Idx1.CreateField("Articulo")
Idx1.Fields.Append Fld1
Set Idx2 = NewTbl.CreateIndex("PrecioPagado")
Idx2.Unique = False
Set Fld2 = Idx2.CreateField("Mayorista")
Fld2.Attributes = dbDescending
Idx2.Fields.Append Fld2
NewTbl.Indexes.Append Idx1
NewTbl.Indexes.Append Idx2