Bde.DBTables.TSession.FindDatabase
Delphi
function FindDatabase(const DatabaseName: string): TDatabase;
C++
TDatabase* __fastcall FindDatabase(const System::UnicodeString DatabaseName);
プロパティ
種類 | 可視性 | ソース | ユニット | 親 |
---|---|---|---|---|
function | public | Bde.DBTables.pas Bde.DBTables.hpp |
Bde.DBTables | TSession |
説明
指定されたデータベースをセッションのデータベース コンポーネント リストから検索します。
FindDatabase メソッドを呼び出すと、指定したデータベースがセッションに関連付けられているかどうかがわかります。DatabaseName パラメータは、検索するデータベース コンポーネントの名前を指定します。
FindDatabase では、DatabaseName パラメータをセッションのデータベース コンポーネント リストに含まれている各データベース コンポーネントの DatabaseName プロパティと比較します。一致するデータベース コンポーネントが見つかった場合、FindDatabase は、そのデータベース コンポーネントのポインタを返します。そうでない場合、FindDatabase は nil(Delphi の場合)または NULL(C++ の場合)を返します。
アプリケーションでは、セッションのデータベース コンポーネントを新しく作成する前に、FindDatabase を呼び出して、データベース コンポーネントが既に存在するかどうかを確認できます。
var
DB: TDatabase;
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;