Delphi Database, Delphi Components from ComponentAce

TABSSession.FindDatabase
TABSSession

Top

Searches a session's list of database components for a specified database.

function FindDatabase(const DatabaseName: String): TABSDatabase;

Description

Call FindDatabase to determine whether or not a specified database is associated with a session. DatabaseName specifies the name of the database component for which to search.

FindDatabase compares DatabaseName to the DatabaseName property for each database component in a session's list. If a match is found, FindDatabase returns a pointer to the database component. Otherwise FindDatabase returns nil.

An application can call FindDatabase to see if a database component already exists before creating a new database component for a session.

var
  DB: TABSDatabase;
begin
  DB := Session.FindDatabase('DBDEMOS');
  if (DB = nil) then { database doesn't exist for session so,}
    DB := Session.OpenDatabase('DBDEMOS'); { create and open it}
  if Assigned(DB) and DB.Active then
  begin
    DB.StartTransaction;
...
  end;
end;

Nov 23, 2024