brshare 0 Denunciar post Postado Janeiro 18, 2007 ola pessoas como faço transações com o dbexpress ??????????? Compartilhar este post Link para o post Compartilhar em outros sites
Hugo Slepicka 0 Denunciar post Postado Janeiro 18, 2007 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
marcio.theis 3 Denunciar post Postado Janeiro 18, 2007 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