Tema: como averiguar la cadena de instruccion SQL dentro de una aplicacion
Ver Mensaje Individual
  #2  
Antiguo 22-03-2011
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
  
Registrado: may 2003
Posts: 5.614
Reputación: 32
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
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?
__________________
Tras casi seis años de trabajar para una empresa alemana como desarrollador Delphi, se vieron forzados a dejarme ir (temas presupuestales). Así que ahora estoy abierto a escuchar nuevas ofertas.
Responder Con Cita