如何監視我的Delphi應用程序執行的SQL？

Question

Delphi XE有沒有一種方法可以讓SQL監視器跟蹤我的應用程序完成的所有SQL？ Delphi 5有一個組件。

Answer 1

正如已經建議here你可以使用TAdoConnection.OnWillExecute事件發送查詢到控制檯，例如：

procedure TDataModuleProd.ADOConnection1WillExecute(
    Connection: TADOConnection; var CommandText: WideString; 
    var CursorType: TCursorType; var LockType: TADOLockType; 
    var CommandType: TCommandType; var ExecuteOptions: TExecuteOptions; 
    var EventStatus: TEventStatus; const Command: _Command; 
    const Recordset: _Recordset); 
begin 
    {$ifdef DEBUG} 
    OutputDebugString(PChar('SQL Execute: ' + CommandText)); 
    {$endif} 
end;