como averiguar la cadena de instruccion SQL dentro de una aplicacion

[rgstuamigo]

Si no me equivoco MS SQL server tiene y crea los llamados registros de transacciones, pero no sé si te servirá para lo que pretendes..
La opcion que veo es que uses un componente similar o igual al TZSQLMonitor que tienen los componentes Zeos , o similar al TIBSQLMonitor de la pestaña "InterBase" de la paleta de componentes de Delphi; ya que tales componentes monitorean todas las sentencias SQL enviadas al servidor, e inclusive te lo guardan en un archivo...; lógicamente eso dependerá de qué componentes estés utilizando para conectarte a MS sql server....
Sino me equivoco tambien existen programas(herramientas,software) externos que pueden monitoriar las sentencias SQL enviadas al servidor de base de datos...
Espero te sea de utilidad...
Saludos...

[[Al González]]

Empezado por rgstuamigo

[...] eso dependerá de qué componentes estés utilizando para conectarte a MS sql server

Me uno a este comentario de rgstuamigo, preguntando ¿qué componentes de datos estás usando?

[[oscarac]]

Utilizo ADO para conectarme

[[Al González]]

No lo he probado, pero parece que la solución desde Delphi sería utilizar el evento OnWillExecute del componente conexión (TADOConnection):

Código Delphi [-]
procedure TForm1.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
  ShowMessage ('La sentencia es:'#13#10 + CommandText);
end;

Claro, seguramente sólo te funcionará con las consultas que hagas (directa o indirectamente) a través de ese objeto conexión.

¿Necesitas monitorear incluso lo que se haga desde otras aplicaciones?