migracion de base de datos dbExpress a ADO

[scooterjgm]

tengo estas instrucciones para saber si hay una transaccion activa o no en FireBird... como seria en ADO??

if not SQLConnection.InTransaction then
begin
TransactionDesc.TransactionID := 1;
TransactionDesc.IsolationLevel := xilReadCommitted;
TransactionDesc.TransactionID :=TransactionDesc.TransactionID;
SQLConnection.StartTransaction(TransactionDesc);
end;

el equivalente en ado seria el siguiente??


if not SQLConnection.InTransaction then
begin
ADOConnection.IsolationLevel := xilReadCommitted;
ADOConnection.BeginTrans;
end;


prescinsiendo del TransactionDesc........¿?¿?¿?

una cosa mas... es lo mismo esto??

SQLClientDataSet.ApplyUpdates(1);---->ADODataSet.UpdateRecord;

SQLClientDataSet.ExecuteDirect(sql);--->ADODataSet.Execute(sql);

Integer(ADOConnection.ExecuteDirect(string) = 0);----->?????????????

Muchas gracias