unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, IBConnection, sqldb, db, FileUtil, Forms, Controls,
Graphics, Dialogs;
type
{ TForm1 }
TForm1 = class(TForm)
DataSource1: TDataSource;
IBConnection1: TIBConnection;
SQLQuery1: TSQLQuery;
SQLTransaction1: TSQLTransaction;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
IBConnection1.Connected := False;
IBConnection1.HostName := 'localhost/3050';
IBConnection1.DatabaseName := 'C:\teste\FirebirdMultiDatabaseExample\SampleData1.fdb';
IBConnection1.UserName := 'SYSDBA';
IBConnection1.Password := 'masterkey';
IBConnection1.CharSet := 'UTF8';
IBConnection1.Connected := True;
SQLQuery1.Close;
SQLQuery1.SQL.Text := 'Select Field2 From Table1 Where Field1 = 1;';
SQLQuery1.Open;
ShowMessage(SQLQuery1.FieldByName('Field2').AsString);
SQLQuery1.Close;
SQLTransaction1.Commit;
IBConnection1.Connected := False;
IBConnection1.Connected := False;
IBConnection1.DatabaseName := 'C:\teste\FirebirdMultiDatabaseExample\SampleData2.fdb';
IBConnection1.Connected := True;
SQLQuery1.Open;
ShowMessage(SQLQuery1.FieldByName('Field2').AsString);
SQLQuery1.Close;
SQLTransaction1.Commit;
IBConnection1.Connected := False;
IBConnection1.Connected := False;
IBConnection1.DatabaseName := 'C:\teste\FirebirdMultiDatabaseExample\SampleData3.fdb';
IBConnection1.Connected := True;
SQLQuery1.Open;
ShowMessage(SQLQuery1.FieldByName('Field2').AsString);
SQLQuery1.Close;
SQLTransaction1.Commit;
IBConnection1.Connected := False;
end;
end.