Oke, het is alweer een tijdje gelden dat ik hier actief ben geweest, maar op de achtergrond toch bezig gebleven.
Nu loop ik tegen een klein probleempje op, en dat is dat ik vanuit Lazarus geen connectie kan maken met Firebird, embedded wel te verstaan.
Code:
unit wuamain;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
wuamdb;
type
{ TForm1 }
TForm1 = class(TForm)
Button1 : TButton ;
procedure Button1Click(Sender : TObject) ;
private
MyDB: TDataModule1;
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender : TObject) ;
const
DBFile = 'test.fdb';
var
DBParams : TStringList;
begin
MyDB.Connect.HostName := '';
MyDB.Connect.DatabaseName := DBFile;
MyDB.Connect.UserName := 'SYSDBA';
MyDB.Connect.Password := 'masterkey';
MyDB.Connect.CharSet := 'UTF8';
MyDB.Connect.Dialect := 3;
DBParams := TStringList.Create;
try
MyDB.Connect.Params.Add('PAGE_SIZE=16384');
MyDB.Connect.Params := DBParams;
finally
DBParams.Free;
end ;
if (FileExists(DBFile) = false) then
begin
MyDB.SQLT.Active := False;
MyDB.Connect.Transaction := MyDB.SQLT;
MyDB.Connect.CreateDB;
MyDB.Connect.Open;
MyDB.SQLT.StartTransaction;
MyDB.Connect.ExecuteDirect('CREATE TABLE WebAcc (id VARCHAR(8), Naam VARCHAR(255));');
MyDB.SQLT.Commit;
MyDB.Connect.Close;
end ;
MyDB.Connect.Connected := true;
MyDB.Connect.KeepConnection := True;
end;
end.
En dit in het datamodule
Code:
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, IBConnection, sqldb, FileUtil ;
type
{ TDataModule1 }
TDataModule1 = class(TDataModule)
Connect : TIBConnection ;
SQLQ : TSQLQuery ;
SQLT : TSQLTransaction ;
private
{ private declarations }
public
{ public declarations }
end ;
var
DataModule1 : TDataModule1 ;
implementation
{$R *.lfm}
end.
Wat ik fout doe, volgens mij niets, maar goed ik kan het mis hebben.
Ik werk met Windows 10 32 & 64 Bits, en uiteraard lazarus 1.6.2 ook 32 & 64 Bits
Alle info is welkom, en alvast dank daar voor.
Anton
Bookmarks