Erro de transação no Delphi RadStudio X DbExpress X MSSQL
Após atualizar o meu Delphi com a Versão 2007 Update 3, começou a dar um erro nas transações.
Erro:
“Não é possível criar uma nova conexão porque o modo usado é o de transação manual ou distribuída.”
Estou usando os componentes DBExpress com DataSetProvider e ClientDataSet e o banco SQLServer 2005 Express.
Exemplo do meu Código:
procedure TDtmFAT.FAT_ApplyUpdates( pFAT_00: TClientDataSet);
var
TD: TTransactionDesc;
begin
RdmFAT.FAT_CloseDataSets;
if not RdmSRV.BDI.InTransaction then
begin
Randomize;
TD.TransactionID := Random(65635);
TD.IsolationLevel := xilREADCOMMITTED;
RdmSRV.BDI.StartTransaction(TD);
try
if pFAT_00.ChangeCount > 0 then
RdmSRV.BDI.Commit(TD);
except
RdmSRV.BDI.Rollback(TD);
end;
end;
Erro:
“Não é possível criar uma nova conexão porque o modo usado é o de transação manual ou distribuída.”
Estou usando os componentes DBExpress com DataSetProvider e ClientDataSet e o banco SQLServer 2005 Express.
Exemplo do meu Código:
procedure TDtmFAT.FAT_ApplyUpdates( pFAT_00: TClientDataSet);
var
TD: TTransactionDesc;
begin
RdmFAT.FAT_CloseDataSets;
if not RdmSRV.BDI.InTransaction then
begin
Randomize;
TD.TransactionID := Random(65635);
TD.IsolationLevel := xilREADCOMMITTED;
RdmSRV.BDI.StartTransaction(TD);
try
if pFAT_00.ChangeCount > 0 then
RdmSRV.BDI.Commit(TD);
except
RdmSRV.BDI.Rollback(TD);
end;
end;
Cristiane.neski
Curtidas 0