tsql - data - provider sql 2012

¿Hay algún truco para usar TSQLMonitor con un TSQLConnection que use el nuevo controlador dbExpress de ODBC?

Question

He estado probando el nuevo controlador dbExpress de ODBC que se incluye con Delphi XE2, y he notado que el TSQLMonitor no parece funcionar. Pensando que podría haber configurado el componente incorrectamente, conecté un TSQLMonitor a un TSQLConnection que usa el controlador MS SQL dbExpress, y que funcionó como un amuleto.

No veo ninguna publicación sobre este problema en la Web. ¿Alguien más ha notado este problema? ¿Parece ser un error, una característica no admitida (no hay supervisión en una TSQLConnection que usa el controlador ODBC), o hay un truco para configurar el TSQLMonitor bajo esta condición?

Answer 1

Probar esto:

procedure TForm2.Button1Click(Sender: TObject);
begin
  try
    Connect;
    SQLMonitor1.SQLConnection := SQLConnection1;
    SQLMonitor1.Active := True;
    ExecuteQueries;
    SQLMonitor1.SaveToFile(''D://Log.txt'');
  except
    on E: Exception do
      ShowMessage(''Exception ocurred!: '' + E.Message);
  end;
end;

procedure TForm2.Connect;
begin
  SQLConnection1 := TSQLConnection.Create(nil);
  SQLConnection1.ConnectionName := ''odbcinterbaseconnection'';
  SQLConnection1.LoginPrompt := False;
  SQLConnection1.LoadParamsOnConnect := True;
  SQLConnection1.Connected := True;
end;

procedure TForm2.ExecuteQueries;
var
  Query: String;
begin
  try
    if SQLConnection1.Connected then
    begin
      Query := ''CREATE TABLE ExampleTable(id INTEGER, name VARCHAR(50))'';
      SQLConnection1.Execute(Query, nil);
      Query := ''INSERT INTO ExampleTable VALUES(1,''''test1'''')'';
      SQLConnection1.Execute(Query, nil);
      Query := ''INSERT INTO ExampleTable VALUES(2,''''test2'''')'';
      SQLConnection1.Execute(Query, nil);
      Query := ''INSERT INTO ExampleTable VALUES(3,''''test3'''')'';
      SQLConnection1.Execute(Query, nil);
      Query := ''SELECT * FROM ExampleTable'';
      SQLConnection1.Execute(Query, nil);
    end;
  except
    on E: Exception do
      ShowMessage(''Exception ocurred!: '' + E.Message);
  end;
end;