如何监视我的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;