ADO如何记录SQL日志
2017-03-21 10:49
351 查看
ADO如何记录SQL日志
procedure TfrmDM.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
// write sql log
if sqldebug then
Log.WriteLog('CommandText:' + CommandText);
end;
procedure TfrmDM.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
// write sql log
if sqldebug then
Log.WriteLog('CommandText:' + CommandText);
end;
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 如何在MySql中记录SQL日志
- 如何在MySql中记录SQL日志（例如Sql Server Profiler)
- 如何有效地记录 Java SQL 日志？
- 如何有效地记录 Java SQL 日志(转)
- ISA2006如何用SQL来记录日志？
- 如何在MySql中记录SQL日志（例如Sql Server Profiler)
- 如何在MySql中记录SQL日志（例如Sql Server Profiler)
- 如何有效地记录 Java SQL 日志？
- (转)如何在MySql中记录SQL日志（例如Sql Server Profiler)
- 如何解决p6spy日志记录sql语句重复的问题
- 如何在MySql中记录SQL日志
- 当我们在使用Flask时，如何如记录日志
- 如何用SQL查询语句获取Oracle表 树形结构的记录（PL/SQL ）
- 如何将sql 执行的错误消息 记录到本地文件中
- 如何记录应用程序日志
- MS SQLSERVER中如何快速获取表的记录总数
- 如何将sql 执行的错误消息 记录到本地文件中
- oracle sql 去重复记录不用distinct如何实现
- 如何使Microsoft SQL Server的日志文件不会增大
- Delphi中ADODataSet如何循环输出每一条记录