Fórum update dificil de sair... #205517
10/01/2004
0
Olá amigos, é o seguinte, não estou conseguindo alterar os dados de um banco interbase. Tenho o form de entradas que armazena as entradas no clientedataset, até ai tudo bem, quando confirmo a entrada ele lanã tudo na tabela entradas de nf, o problema é quando vou atualizar os estoques, estou usando o seguinte código:
cliente.First; //clientdataset
while not cliente.Eof do
begin
dm.qprodutos.Close; //query
dm.qprodutos.SQL.Clear;
dm.qprodutos.sql.add(´update PRODUTOS set ESTOQUE = :ESTOQUE, CUSTO = :CUSTO where Descricao = :OLD_Descricao´); dm.qprodutos.ParamByName´estoque´).asinteger:=clientequantidade.value + dm.qprodutosESTOQUE.Value;
dm.qprodutos.ParamByName(´custo´).asfloat:=clientecusto.value;
dm.qprodutos.ExecSQL;
cliente.Next;
end;
dm.IBTransaction1.CommitRetaining;
executo esse código, não gera erro algum mas não acontece nada com a minha tabela. Qualquer ajuda é bem vinda
Sanses
cliente.First; //clientdataset
while not cliente.Eof do
begin
dm.qprodutos.Close; //query
dm.qprodutos.SQL.Clear;
dm.qprodutos.sql.add(´update PRODUTOS set ESTOQUE = :ESTOQUE, CUSTO = :CUSTO where Descricao = :OLD_Descricao´); dm.qprodutos.ParamByName´estoque´).asinteger:=clientequantidade.value + dm.qprodutosESTOQUE.Value;
dm.qprodutos.ParamByName(´custo´).asfloat:=clientecusto.value;
dm.qprodutos.ExecSQL;
cliente.Next;
end;
dm.IBTransaction1.CommitRetaining;
executo esse código, não gera erro algum mas não acontece nada com a minha tabela. Qualquer ajuda é bem vinda
Sanses
Sanses
Curtir tópico
+ 0
Responder
Posts
10/01/2004
Fabio.hc
Vc não esta passando o parametro.
where Descricao = :OLD_Descricao´);
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)