Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Listing Indexes in a Table

Sub List_Indexes()    Dim conn As New ADODB.Connection    Dim cat As New ADOX.Catalog    Dim myTable As New ADOX.Table    Dim idx As New ADOX.Index    With conn       .Provider = "Microsoft.Jet.OLEDB.4.0"       .Open "Data Source=" & CurrentProject.Path & _           "\mydb.mdb"    End With    cat.ActiveConnection = conn    Set myTable = cat.Tables("Employees")    For Each idx In myTable.Indexes      Debug.Print idx.Name    Next idx    conn.Close    Set conn = Nothing    MsgBox "Indexes are listed in the Immediate window." End Sub