我們常用SQL Monitor監控SQL語法之執行,請問有無方法將SQL Minotor之訊息自動寫出一個文字檔()與僅寫出錯誤之地方寫出一個文字檔.(不要另存SQL Monitor Log) 用 try Query1.ExecSQL; except SHOWMESSAGE('無法執行！); end; 僅能Show出執行時產生錯誤,並無法得知識哪一段錯誤

可以藉由傾印Query.SQL屬性來達成 Select * from custom    Table does not exist. File or directory does not exist. File: C:\Program Files\Borland\Delphi5\Projects\custom.DB File: C:\Program Files\Borland\Delphi5\Projects\custom.DBF File: C:\Program Files\Borland\Delphi5\Projects\custom.txt File: C:\Program Files\Borland\Delphi5\Projects\custom    

procedure TForm1.Button1Click(Sender: TObject);
var
  ErrMsg:string;
  sl:TStringList;
begin
  sl:=TStringList.Create;
  try
    Query1.SQL.Text:='Select * from custom';
    Query1.ExecSQL;
  except
    on E:Exception do
    begin
      if E is EDBEngineError then
      begin
        ErrMsg:=Query1.SQL.Text #13;
        ErrMsg:=ErrMsg E.Message;
        //LogErrMsgToFile(ErrMsg);
        sl.Add(ErrMsg);
      end;
      ShowMessage(ErrMsg);
    end;
  end;
  sl.SaveToFile('c:\err.log');
  sl.Free;
end;

Paicaso 你好: 不知有沒有誤會你的意圖... 小弟曾經做過 BDE SQL Monitor 工具, 參考看看. http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38374

最近尚未有時間試 我想是否可藉由pedro所提供之方案 讓該程式發生錯誤時,將是哪段SQL出問題,另記錄於一檔案 提供給設計者參考