フォーラム


ゲスト  

ようこそ ゲスト さん。このフォーラムに投稿するには 登録が必要です。

ページ: [1]
トピック: DBX で BlackfishSQL に接続する
DEKO
管理者
投稿数: 2651
DBX で BlackfishSQL に接続する
on: 2013/06/03 04:15 Mon

コードで書くとこんな感じです。

uses
..., DbxBlackfishSQL;

procedure TForm1.Button1Click(Sender: TObject);
var
CTX: TDBXContext;
PROP: TDBXBlackfishSQLProperties;
DBXC: TSQLConnection;
QRY: TSQLQuery;
Dmy: String;
begin
DBXC := TSQLConnection.Create(Self);
QRY := TSQLQuery.Create(Self);
try
DBXC.LoginPrompt := False;
DBXC.DriverName := 'BLACKFISHSQL';
CTX := TDBXContext.Create;
PROP := TDBXBlackfishSQLProperties.Create(CTX);
try
DBXC.Params.Clear;
DBXC.Params.Values['DriverUnit' ] := PROP.Values['DriverUnit'];
Dmy := StringReplace(PROP.Values['MetaDataPackageLoader'],
'TDBXDataStoreMetaDataCommandFactory',
'TDBXClientDriverLoader',
[rfIgnoreCase]);
DBXC.Params.Values['DriverPackageLoader' ] := Dmy;
DBXC.Params.Values['MetaDataPackageLoader'] := PROP.Values['MetaDataPackageLoader'];
DBXC.Params.Values['User_Name' ] := PROP.UserName; // User Name
// DBXC.Params.Values['User_Name' ] := 'sysdba'; // User Name
DBXC.Params.Values['Password' ] := PROP.PassWord; // Password
// DBXC.Params.Values['Password' ] := 'masterkey'; // Password
Dmy := IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) +
'DATA\DATA.JDS';
DBXC.Params.Values['DataBase' ] := Dmy; // Database
finally
PROP.Free;
CTX.Free;
end;
QRY.SQLConnection := DBXC;
DBXC.Connected := True;
QRY.SQL.Clear;
QRY.SQL.Add('Select * From MST_EMPLOYEE');
QRY.Open;
Memo1.Lines.Clear;
while not QRY.EOF do
begin
Dmy := QRY.FieldByName('NAME').AsString;
Memo1.Lines.Add(Dmy);
QRY.Next;
end;
QRY.Close;
DBXC.Connected := False;
finally
QRY.Free;
DBXC.Free;
end;
end;

 
パラメータ設定付近の気持ち悪いコードは配布時の手間をなくすためのものです。サンプルコードのように記述しておくと、Delphi (パッケージ) のバージョンに依存しないソースコードにできます。

See Also:
[Blackfish SQL (Delphi Forum)]
http://ht-deko.minim.ne.jp/delphiforum/?vasthtmlaction=viewtopic&t=869

ページ: [1]
WP Forum Server by ForumPress | LucidCrew
バージョン: 1.7.5 ; ページロード: 0.016 sec.