TDP: Daba geöffnet?

[Heiko Rompel]

Hallo,

wie kann ich bei MyBase oder generell, testen ob eine Datenbank geöffnet
ist?

MfG
Heiko

[Heiko Rompel]

Moin,

ich habe das jetzt mal in Form.Show hiermit probiert:

// Wenn eine Datenbank nicht vorhanden ist
if DataModule1.DataSource1.State = dsInactive then
// Menüpunkt Suchen deaktivieren
MM_Suchen.Enabled:= false
else
// Menüpunkt Suchen aktivieren
MM_Suchen.Enabled:= true;

Aber direkt nach dem Start der Anwendung ist MM_Suchen trotzdem True.

Es muss doch einen Weg geben um festzustellen, ob eine Datenbank
vorhanden ist (egal ob eingeladen oder neu erstellt)

MfG
Heiko