vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2019
 
zurück
Rubrik: Datenbanken · DAO   |   VB-Versionen: VB4, VB5, VB621.03.03
Felder in Datenbank verschieben (DAO)

Über die OrdinalPosition-Eigenschaft des DAO-Feldes lässt sich das Feld beliebig verschieben.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  12.251 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10kein 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

Dieser Tipp wurde bereits 12.251 mal aufgerufen.

Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

Über diesen Tipp im Forum diskutieren
Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

Neue Diskussion eröffnen

nach obenzurück


Anzeige

Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
 
   

Druckansicht Druckansicht Copyright ©2000-2019 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel