Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

brshare

Transação com dbxpress

Recommended Posts

Você ja tentou a busca do fórum??? http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

 

Ps.: BrShare... por favor, qundo for postar não seja tão resumido, dê mais detalhes para vacilitar a compreensão dos colegas do fórum...

 

 

flw aew!!

abraço! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente fazer algo do tipo:

 

public{ Public declarations }	TD: TTransactionDesc;	Mensagem: String;end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginRandomize;TD.TransactionID := Random(3600);TD.IsolationLevel := xilREADCOMMITTED;sqlConnection1.StartTransaction(TD);try	if ClientDataSet1.ApplyUpdates(0) > 0 then		raise Exception.Create(Mensagem);	if ClientDataSet2.ApplyUpdates(0) > 0 then		raise Exception.Create(Mensagem);	if ClientDataSet3.ApplyUpdates(0) > 0 then		raise Exception.Create(Mensagem);	sqlConnection1.Commit(TD);	except on E: Exception do		begin		sqlConnection1.Rollback(TD);		ShowMessage(E.message);		end;	end;end;procedure TForm1.ClientDataSet1ReconcileError(DataSet: TCustomClientDataSet; E: EReconcileError;UpdateKind: TUpdateKind; var Action: TReconcileAction);beginAction := raAbort;// pegar a mensagem original de erro.Mensagem := E.Message;end;end.

Peguei este fonte da internet...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.