Fórum Delphi Mysql - Problemas ao atualizar dados #193138
05/11/2003
0
tenho um código para atualizar dados. uma parte atualiza através de sql, outra parte atualiza direto na tabela.
Segue o código:
if fin>grfin then
begin
with dm.upquery do
begin
close;
sql.Clear;
sql.add(´update tb_pklist set gross_final = gross, ´);
sql.add(´net_final = net where cod_idacon = :OLD_cod_pklist´);
Params[0].Value := dm.tb_pklistcod_idacon.AsInteger;
execsql;
end;
end;
Depois da atualização acima, o código de baixo não está postando os dados, sempre diz que o usuario alterou os dados e trava:
for i:=1 to dif do
begin
dm.tb_pklist.Active:=true;
dm.tb_pklist.Edit;
dm.tb_pklistgross_final.AsFloat := dm.tb_pklistgross.AsFloat - 1;
dm.tb_pklistnet_final.AsFloat := dm.tb_pklistnet.AsFloat - 1;
dm.tb_pklist.Post;
dm.tb_pklist.Next;
end;
SE ALGUEM SOUBER PORQUE NÄO ESTOU CONSEGUINDO DAR O POST NA TABELA DEPOIS DE TER USADO UM UPDATE SQL
Segue o código:
if fin>grfin then
begin
with dm.upquery do
begin
close;
sql.Clear;
sql.add(´update tb_pklist set gross_final = gross, ´);
sql.add(´net_final = net where cod_idacon = :OLD_cod_pklist´);
Params[0].Value := dm.tb_pklistcod_idacon.AsInteger;
execsql;
end;
end;
Depois da atualização acima, o código de baixo não está postando os dados, sempre diz que o usuario alterou os dados e trava:
for i:=1 to dif do
begin
dm.tb_pklist.Active:=true;
dm.tb_pklist.Edit;
dm.tb_pklistgross_final.AsFloat := dm.tb_pklistgross.AsFloat - 1;
dm.tb_pklistnet_final.AsFloat := dm.tb_pklistnet.AsFloat - 1;
dm.tb_pklist.Post;
dm.tb_pklist.Next;
end;
SE ALGUEM SOUBER PORQUE NÄO ESTOU CONSEGUINDO DAR O POST NA TABELA DEPOIS DE TER USADO UM UPDATE SQL
Danielle Ballester
Curtir tópico
+ 0
Responder
Posts
05/11/2003
Marcospaulo
Olá!
Ao invés de usar Post, tente ApplyUpdates(-1)!
Marcos Paulo
Ao invés de usar Post, tente ApplyUpdates(-1)!
Marcos Paulo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)