Bde.DBTables.TSession.FindDatabase

Übergeordnet: TSession

Delphi

function FindDatabase(const DatabaseName: string): TDatabase;

C++

TDatabase* __fastcall FindDatabase(const System::UnicodeString DatabaseName);

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
function	public	Bde.DBTables.pas Bde.DBTables.hpp	Bde.DBTables	TSession

Beschreibung

Durchsucht in einer Sitzung die Liste der Komponenten nach einer angegebenen Datenbank.

Mit FindDatabase können Sie bestimmen, ob eine bestimmte Datenbank mit einer Sitzung verknüpft ist. In DatabaseName können Sie den Namen der gesuchten Datenbankkomponente angeben.

Mit FindDatabase können Sie DatabaseName mit der Eigenschaft DatabaseName jeder Datenbankkomponente der Sitzungsliste vergleichen. Bei einer Übereinstimmung wird ein Zeiger auf die Datenbankkomponente zurückgegeben. Andernfalls gibt FindDatabase nil (Delphi) oder NULL (C++) zurück.

In einer Anwendung kann mit FindDatabase die Existenz einer Datenbankkomponente festgestellt werden, bevor eine neue Datenbankkomponente für die Sitzung erstellt wird.

var
DB: TDatabase;
begin
DB := Session.FindDatabase('DBDEMOS');
if (DB = nil) then { Datenbank ist für die Sitzung nicht vorhanden,}
DB := Session.OpenDatabase('DBDEMOS'); { daher muss die angelegt und geöffnet werden}
if Assigned(DB) and DB.Active then begin
DB.StartTransaction;
...
end;
end;