フォーラム


ゲスト  

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

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

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

uses
..., DBXInterbase;

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 := 'InterBase';
DBXC.ConnectionName := 'IBConnection';
DBXC.GetDriverFunc := 'getSQLDriverINTERBASE';
DBXC.LibraryName := 'dbxint.dll';
DBXC.VendorLib := 'gds32.dll';

DBXC.Params.Clear;
DBXC.Params.Values['user_name' ] := 'SYSDBA'; // User Name
DBXC.Params.Values['password' ] := 'masterkey'; // Password
DBXC.Params.Values['ServerCharSet'] := 'UTF8'; // CharSet
DataBase := '127.0.0.1:' +
IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0))) +
'DATA\DATA.IB';
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;

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

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