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;