Tenta assim... no clientadataset as excessões não
retornam...
conn.StartTransaction(TD);
if csdCliente.ApplyUpdates(-1) = 0 then
begin
conn.Commit(TD);
end else
begin
conn.RollBack(TD);
end;
--- Alisson <[EMAIL PROTECTED]> escreveu:
-
Boa noite pess
Olá!
Não sei se vai funcionar, mas tente colocar
csdCliente.ApplyUpdates(-1);
Abraços,
Ana
- Original Message -
From: "Alisson" <[EMAIL PROTECTED]>
To:
Sent: Thursday, June 02, 2005 7:27 PM
Subject: [delphi-br] try..except não funciona com DBExpress(?)
Boa noite pes
Boa noite pessoal!
Estou com um problema bem estranho e gostaria que alguém me ajudasse.
Eu tenho um ClientDataSet -> TDataSetProvider -> TSQLDataSet -> TSQLConnection.
Tenho basicamente o seguinte código para atualizar o mesmo:
...
conn.StartTransaction(TD);
try
csdCliente.ApplyUpdates(0);
3 matches
Mail list logo