Rubrik: Datenbanken · DAO | VB-Versionen: VB4, VB5, VB6 | 21.03.03 |
Felder in Datenbank verschieben (DAO) Über die OrdinalPosition-Eigenschaft des DAO-Feldes lässt sich das Feld beliebig verschieben. | ||
Autor: Dieter Otter | Bewertung: | Views: 13.500 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein Beispielprojekt |
Nehmen wir an, in der Tabelle der Acccess-Datenbank befinden sich an den ersten beiden Stellen zwei Felder, die nicht von sehr großer Bedeutung sind. Jetzt würden Sie gerne diese beiden Felder an das Ende der Feldauflistung der Tabelle verschieben.
Das ganze lässt sich über die OrdinalPosition-Eigenschaft der Felder bewerkstelligen.
Hierzu legen Sie für das betroffene Feld dann einfach die neue gewünschte Position fest. Achtung! Die Zählung beginnt bei 0.
Beispiel:
Das nachfolgende Beispiel zeigt, wie sich die ersten beiden Felder einer Tabelle an das Ende der Feldauflistung verschieben lassen.
Dim Db As Database Dim nCount As Integer ' Datenbank öffnen Set Db = DBEngine.OpenDatabase("Datenbank.mdb") ' Tabellendefinition With Db.TableDefs("Tabellenname") ' Anzahl Felder insgesamt nCount = .Fields.Count ' OrdinalPosition der beiden ersten Felder "hochsetzen" .Fields(1).OrdinalPosition = nCount .Fields(0).OrdinalPosition = nCount End With ' Datenbank schließen Db.Close