Get sql statement when exception occurs

[cselod]

Hi, working with database when I get an error because of a wrong sql query I would like to save the SQL statement which caused the exception, using Delphi 7 and Firebird. How could I get it? thank you very much!

 

[lespaul]

i usually use a ShowMessage(SQL.Text) before I run the query to make sure it's doing what I want....

Leslie

 

[roo0047]

i usually show it in a TMemo before I run the query so I can tweak it if I need to....

Roo
Delphi Rules!

 

[cselod]

Thank you for your posts, I would need a general solution, because it's a big project with a lot of querys, i use a tool to catch the exception but i don't know how could I get the last sql statement which caused the exception

 

[lespaul]

when you're debugging it should stop at the query that is causing the exception.

Leslie

 

[DjangMan]

I use a function to run my SQL. You could add some error trapping code and display the sSQL parameter value in the try..except block.

procedure TdmDB.RunGeneralQuery(sSQL: string; IsSelect: boolean = false);
begin
  with ADOQuery do
  begin
    close;
    sql.clear;
    sql.add(sSQL);

    if IsSelect then
      Open
    else
      ExecSQL;
  end;
end;