如何监控我的Delphi应用程序执行的SQL？

发布时间：2020-12-15 09:13:30 所属栏目：大数据来源：网络整理

导读：在Delphi XE中是否有一种方法可以使用SQL监视器来跟踪我的应用程序完成的所有SQL？ Delphi 5有一个组件. 解决方法正如已经建议的 here,您可以使用TAdoConnection.OnWillExecute事件向控制台发送查询,例如： procedure TDataModuleProd.ADOConnection1WillEx

在Delphi XE中是否有一种方法可以使用SQL监视器来跟踪我的应用程序完成的所有SQL？ Delphi 5有一个组件.

解决方法

正如已经建议的 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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!