TSQLMonitor使用新的ODBC dbExpress驱动程序的TSQLConnection是否有一个技巧？

我一直在testingDelphi XE2附带的新的ODBC dbExpress驱动程序，并且注意到TSQLMonitor似乎不起作用。 考虑到我可能configuration了错误的组件，我把一个TSQLMonitor连接到一个使用MS SQL dbExpress驱动程序的TSQLConnection，并且像一个魅力一样工作。

我在网上看不到有关这个问题的任何文章。 有没有人注意到这个问题？ 它看起来是一个错误，一个不受支持的function（在使用ODBC驱动程序的TSQLConnection上没有监视），或者在这种情况下configurationTSQLMonitor是否有技巧？

Answer 1

试试这个：

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;