vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück
Rubrik: Datenbanken · DAO   |   VB-Versionen: VB4, VB5, VB611.04.06
Alle Relationen einer Datenbank löschen (DAO)

Dieser Tipp zeigt, wie man alle Relationen (Tabellenverknüpfungen) einer Datenabnk löschen kann.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  10.180 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11kein Beispielprojekt 

Möchte man alle Relationen (Tabellenverknüpfungen) einer Datenbank löschen, sollte man meinen, dass nachfolgender Code funktioniert:

Dim i As Long
 
With oDB.Relations
  For i = 0 To .Count - 1
    .Delete oDB.Relations(i).Name
  Next i
End With

Dem ist aber nicht so: es wird hier immer nur ein Teil der vorhandenen Relationen gelöscht.
Der Grund liegt darin, dass sich die "Count"-Eigenschaft ja mit jeder Löschaktion um eins verringert!

Nachfolgender Code hingegen arbeitet korrekt.

With oDB.Relations
  While .Count > 0
    .Delete oDB.Relations(0).Name
  Wend
End With