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!

9.6.6 Löschen einer Tabelle

9.6.7 Erstellen eines Index

Der oben erstellten Tabelle fehlt noch der Primärschlüssel auf dem Feld UnternehmenID. Die wichtigste Funktion in der folgenden Routine ist die Methode CreateIndex des TableDef-Objekts. Der Weg zum Ziel ist hier in drei Ebenen verschachtelt. Abbildung 9.8 zeigt die an der Indexerstellung beteiligten Objekte des DAO-Objektmodells und ihre Anordnung (auch hier gilt: in den meisten Fällen können Sie das ältere Field-Objekt statt des Field2-Objekts verwenden, aber nicht in Zusammenhang mit einigen neuen Features).

Abbildung 9.8: Elemente der DAO-Bibliothek zum Anlegen eines Index

Beim Erstellen der am Index beteiligten Field2-Objekte müssen Sie nur noch den Namen des jeweiligen Feldes angeben. Voraussetzung ist, dass dieses Feld bereits existiert.

Public Sub IndexErstellen()

    Dim db As DAO.Database
    Dim idx As DAO. Index
    Dim fld As DAO. Field

    Set db = CurrentDb

    'Index erstellen
    Set idx = db.TableDefs("tblUnternehmen").CreateIndex("PrimaryKey")

    'Feld für den Index angeben
    Set fld = idx. CreateField("UnternehmenID")

    'Feld an Fields-Auflistung des Index anhängen
    idx.Fields. Append fld

    'Index als Primärschlüssel kennzeichnen
    idx.Primary = True

    'Index an Indexes-Auflistung der Tabelle anhängen
    db.TableDefs("tblUnternehmen").Indexes.Append idx
    db.TableDefs.Refresh
    Application.RefreshDatabaseWindow

    Set idx = Nothing
    Set db = Nothing

End Sub

Listing 9.13: Anlegen eines Primärschlüssels für eine Tabelle

Nächster Abschnitt:

9.6.8 Löschen eines Index

© 2006-2008 André Minhorst Alle Rechte vorbehalten.