delphi - 是否可以记录 Delphi 应用程序和 MsAccess DB 之间的 SQL 查询？

Question

我有一个使用 ADO/MSDASQL.1 提供程序的 Delphi 7 应用程序，我想知道是否可以以简单的方式“记录”发送到数据库的 SQL 查询？就像 SQL Server 中的 SQL 分析器一样？

Answer 1

在应用程序内部，您可以在 TADOConnection.OnWillExecute 事件中记录命令，您只需保存 CommandText，但您还可以记录许多其他选项。

procedure TForm23.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
   LogToFile( CommandText );
end;