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