フォーラム


ゲスト  

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

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

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

uses
..., DBXFirebird;

procedure TForm1.Button1Click(Sender: TObject);
var
DBXC: TSQLConnection;
QRY: TSQLQuery;
DataBase: String;
begin
DBXC := TSQLConnection.Create(Self);
try
QRY := TSQLQuery.Create(Self);
try
DBXC.LoginPrompt := False;
DBXC.DriverName := 'Firebird';
DBXC.ConnectionName := 'FBConnection';
DBXC.GetDriverFunc := 'getSQLDriverFIREBIRD';
DBXC.LibraryName := 'dbxfb.dll';
DBXC.VendorLib := 'fbclient.dll';

DBXC.Params.Clear;
DBXC.Params.Values['user_name' ] := 'SYSDBA'; // User Name
DBXC.Params.Values['password' ] := 'masterke'; // Password
DBXC.Params.Values['ServerCharSet'] := 'UTF8'; // CharSet
DataBase := '127.0.0.1:' +
IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) +
'DATA\DATA.FDB';
DBXC.Params.Values['DataBase' ] := DataBase; // Database

QRY.SQLConnection := DBXC;
DBXC.Connected := True;

QRY.SQL.Clear;
QRY.SQL.Add('Select * From MST_EMPLOYEE');
QRY.SQL.Add('Where ');
QRY.SQL.Add(' NAME = :_NAME ');
QRY.ParamByName('_NAME').AsString := Edit1.Text;
QRY.Open;
if QRY.IsEmpty then
ShowMessage('Empty')
else
ShowMessage(IntToStr(QRY.FieldByName('CODE').AsInteger));
QRY.Close;

DBXC.Connected := False;
finally
QRY.Free;
end;
finally
DBXC.Free;
end;
end;

 
Interbase ドライバで Firebird に接続するとおかしな事になったりしますのでやめておきましょう。Interbase と Firebird の相互運用がやりたければ IBX とかでやってください。

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

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