是否可以在Delphi應用程序和MsAccess DB之間記錄SQL查詢？

Question

我有一個Delphi 7應用程序使用ADO/MSDASQL.1供應商，我不知道是否有可能「簡單地」登錄「發送到數據庫的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; 

Answer 2

我做了類似的事情，但是我所有的疑問都經過了一個點。在這一點上添加日誌記錄是一個簡單的改變。另一種選擇是創建TADOQuery類的TLogADOQuery類，並覆蓋ExecuteSQL和打開來記錄SQL去數據庫。然後，將所有對TADOQuery的引用替換爲新類。