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