Events are not logged
lazarus / 16-Databases

----------------------------------------------------------------------
flaza · 2016-02-03 12:09

Hi.

I have a program that works with data in several TOwnedCollections. I
am developing a Firebird database and I wrote a routine to export my
existing data to a sql script and to import that in de database. I
want to log all events in the IBConnection and created an OnLog
procedure. But the logfile is empty. I use the following code:Code:
Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i begin  try 
  try      // ibNew = TIBConnection      // trNew = TSQLTransaction  
  // sqlNew = TSQLQuery      FConnectionLog := TStringList.Create; //
a TStringlist to collect to loggings      ibNew.DatabaseName :=
Format('export.fdb');      if FileExistsUTF8('export.fdb' then       
ibNew.DropDB; //remove existing database      ibNew.CreateDB;     
ibNew.Open;      trNEW.Active := True;     
sqlNew.Script.LoadFromFile('newdatabase.sql');     
sqlNew.ExecuteScript; // create new database      trNEW.Commit;     
sqlNew.Script.Clear;      sqlNew.Script.LoadFromFile('export.sql');  
  sqlNew.ExecuteScript;      trNEW.Commit;      trNEW.Active :=
False;      ibNew.Close(True);    except      on e: EDatabaseError do
ShowMessage(e.Message);    end;  finally    try      ibNew.Connected
:= False;    except      on e: Exception do ShowMessage(e.Message);  
end;    FConnectionLog.SaveToFile('export.log');   
FConnectionLog.Free;  end; Is there something else I need to do?

----------------------------------------------------------------------
LacaK · 2016-02-03 19:40

I do not see where you assign ibNew.OnLog event handler and which
events are in ibNew.LogEvents property

----------------------------------------------------------------------
flaza · 2016-02-03 19:58

I've set that values in the Object Inspector.