Microsoft Access Programmierrezepte

R6.15 Einen Index definieren

Aufgabe

Für die im Rezept „R6.9 Eine Access-Tabelle erstellen“ erzeugte Tabelle sollen mehrere Indizes definiert werden.

Lösung

Grundsätzlich müssen Sie den Index an ein bestehendes und initialisiertes Table-Objekt anhängen. Dazu verwenden Sie die Indexes-Auflistung.

Quelltext ADOX

Beispiel

Die Indexdefinition für das Feld Nachname.

Sub Erstelle_Index_Nachname()
Dim cat As New ADOX.catalog
Dim tbl As New ADOX.table
Dim idx As New ADOX.index
   cat.ActiveConnection = Application.CurrentProject.Connection
   Set tbl = cat.Tables("Kundendaten")
   idx.Name = "Nachname"
   idx.Columns.Append "Nachname"
   tbl.Indexes.Append idx
End Sub

Beispiel

Erzeugen eines Primärindex:

Sub Erstelle_Primärindex() Dim cat As New ADOX.catalog Dim tbl As New ADOX.table ...