At last, I found ONE example.
program Test;
uses
Classes, odbcconn, sqldb;
var
aODBCConn : TODBCConnection;
aODBCTransaction : TSQLTransaction;
aSQLQuery : TSQLQuery;
begin
aODBCConn := TODBCConnection.Create(Nil);
with aODBCConn do
begin
DatabaseName := 'SomeDataBase';
HostName := 'MSSQLServer';
Driver := 'SQL Server';
Password := 'pass';
Username := 'sa';
Open;
end;
aODBCTransaction := TSQLTransaction.Create(nil);
aODBCTransaction.DataBase := aODBCConn;
aSQLQuery := TSQLQuery.Create(nil);
with aSQLQuery do
begin
DataBase := aODBCConn;
Transaction := aODBCTransaction;
SQL.Clear;
SQL.Add('SELECT * FROM claim WHERE inc=12');
Open;
end;
aSQLQuery.Close;
aSQLQuery.Free;
end.