Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

10.2.3 Löschen einer Tabelle

10.2.4 Erstellen eines Index

Mit der folgenden Routine fügen Sie der Tabelle tblUnternehmen einen Primärindex auf dem Feld UnternehmenID hinzu.

Public Sub IndexErstellen()

    Dim cat As ADOX.Catalog
    Dim idx As ADOX. Index
    Dim tbl As ADOX.Table
    Dim col As ADOX.Column
    Dim idxs As ADOX. Indexes

     'Catalog instanzieren und auf aktuelle Datenbank einstellen
    Set cat = New ADOX.Catalog
    cat.ActiveConnection = CurrentProject.Connection

    'Tabelle festlegen
    Set tbl = cat.Tables("tblUnternehmen")

    'Verweis auf Indexes-Auflistung erstellen
    Set idxs = tbl.Indexes

    'Neues Index-Objekt erstellen
    Set idx = New ADOX.Index

    With idx
        'Index-Objekt mit Eigenschaften ausstatten
        .Name = "PrimaryKey"
        . PrimaryKey = True
        . Unique = True
         'Column-Objekt mit zu indizierendem Feld erzeugen
        'und zur Auflistung der indizierten Columns hinzufügen
        Set col = New ADOX.Column
        col.Name = "UnternehmenID"
        .Columns.Append col
    End With

    'Index an die Auslistung Indexes anfügen
    idxs.Append idx
    Set col = Nothing
    Set idx = Nothing
    Set idxs = Nothing
    Set tbl = Nothing
    Set cat = Nothing

End Sub

Listing 10.6: Anlegen eines Index mit ADOX

Nächster Abschnitt:

10.2.5 Löschen eines Index

© 2006-2008 André Minhorst Alle Rechte vorbehalten.