2011-08-18 6 views
4

Delphi XE에서 응용 프로그램이 수행 한 모든 SQL을 추적하는 SQL 모니터가있는 방법이 있습니까? Delphi 5에는이를위한 구성 요소가있었습니다.내 델파이 애플리케이션이 실행하는 SQL을 어떻게 모니터링 할 수 있습니까?

procedure TDataModuleProd.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 
    {$ifdef DEBUG} 
    OutputDebugString(PChar('SQL Execute: ' + CommandText)); 
    {$endif} 
end; 
+0

스타터 에디션 : –

+1

SQL 모니터가 BDE와 함께 작동하지만 BDE 또는 다른 구성 요소를 계속 사용하고 있습니까? – RRUZ

+0

@RRUZ - [TSQLMonitor] (http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/SqlExpr_TSQLMonitor.html)는 dbexpress의 일부입니다. –

답변

2

은 이미, 예를 들어, 콘솔에 쿼리를 보낼 TAdoConnection.OnWillExecute 이벤트를 사용할 수 있습니다 here을 제안?
+1

죄송합니다 ... 질문에 ADO가 언급 된 부분이 있습니까? 나는 그것을 어딘가에 놓쳤을 것임에 틀림 없다. :) –

+0

... 그리고 당신은 느슨한 바운드 매개 변수 값이 ... 관련이없는 정보 ... 적어도 그들을 검색하고 기록 된 텍스트에 추가해야합니다. –

+0

감사합니다. 어떻게 콘솔을 Delphi XE에 표시 할 수 있습니까? – Gwenael

관련 문제