Apply com 2 Tabelas Multicamadas d7/Firebird

Delphi

25/05/2006

Dúvida para quem esta iniciando com CDS
Tenho um sistema 3 camadas, para inserir uso ClientDataSet+post+aplly

Minha dúvida:

Tabela_01.Insert;
...Dados
Tabela_01.Post

Tabela_02.Insert;
...Dados
Tabela_02.Post

Tabela_02.Insert;
...Dados
Tabela_02.Post

tabela_01.applyUpdates(0);
tabela_02.applyUpdates(0);


O Código fica simples, como n tenho uma transação controlada por mim(opção própria) o q faço se eu tiver problema no apply da tabela_02, o registro da tabela_01(o q entendi) ja esta no BD.

N tenho relacionamento masterdetail

Agradeço se puderem me ajudar a contornar este problema visto q em meu sistema sempre gravo em no minimo duas tabelas, existem rotinas que gravo em 3 e atualizo mais 3.

Obrigado


Orpolonio

Orpolonio

Curtidas 0

Respostas

Renatacoimbra

Renatacoimbra

25/05/2006

Colega, você pode fazer assim:


   if Tabela_01.ApplyUpDates(0) = 0 then  // Não houve erros
      Tabela_02.ApplyUpDates(0)




[]´s


GOSTEI 0
Orpolonio

Orpolonio

25/05/2006

Perfeito com duas, e se forem 3 e o erro ocorrer na terceira, a primeira e segunda já estarão no BD, correto?


GOSTEI 0
POSTAR