Rubrik: Datenbanken · DAO | VB-Versionen: VB4, VB5, VB6 | 11.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 Otter | Bewertung: | Views: 10.203 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | kein 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