Resumen Añadir un índice mediante código


Dim MyIndex As Index
Dim MyField As Field
Dim MyTableDef As TableDef
Dim MyDatabase As Database
Set MyDatabase = OpenDatabase("MYDB.MDB")
Set MyTableDef = MyDatabase.TableDefs(0)

Set MyIndex = MyTableDef.CreateIndex("Another")
Set MyField = MyIndex.CreateField("LastName")
MyIndex.Primary = True
MyIndex.Required = True
MyIndex.Fields.Append MyField

MyTableDef.Indexes.Append MyIndex



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com