O que há de errado Nesse Comando (URGENTE)

Delphi

17/03/2003

Bom todos as Tabelas estao em um datamodulo !! Chamado DM ! Bom simplismente o comando não funciona !!! não da erro de sql nem nada simplismente não altera o registro !!! Será que tem algum comando errado ou falta alguma coisa !!!!!

DM.TbEstoque.SQL.Clear ;
DM.TbEstoque.SQL.Add (´UPDATE ESTOQUE´);
DM.TbEstoque.SQL.Add (´SET DATA = :DATA,CODPROD = :CODPROD,CODFILIAL = :CODFILIAL,SALDO = :SALDO,PRECOMED = :PRECOMED,TOTAL = :TOTAL,ESTOQUEINIC = :ESTOQUEINIC´);
DM.TbEstoque.SQL.Add (´WHERE CODESTOQ = :CODESTOQ´);
DM.TbEstoque.ParamByName(´Data´).VALUE := StrToDateTime(´01/01/2003´);
DM.TbEstoque.ParamByName(´CODPROD´).VALUE := STRTOINT(EDCODPROD.Text);
DM.TbEstoque.ParamByName(´CODFILIAL´).VALUE := STRTOINT(EDCODFIL.Text);
DM.TbEstoque.ParamByName(´SALDO´).VALUE := EDSALDO.Value ;
DM.TbEstoque.ParamByName(´PRECOMED´).VALUE := EDPM.value;
DM.TbEstoque.ParamByName(´TOTAL´).VALUE := EDTOTAL.value ;
DM.TbEstoque.ParamByName(´ESTOQUEINIC´).VALUE := edsaldo.value;
DM.TbEstoque.ParamByName(´CODESTOQ´).VALUE := CODESTOQ ;
DM.TbEstoque.ExecSQL;


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

17/03/2003

Esta linha está ´estranha´. QUEM ou O QUE é CODESTQ ???

DM.TbEstoque.ParamByName(´CODESTOQ´).VALUE := CODESTOQ ;

se estiver indefinido, este comando

DM.TbEstoque.SQL.Add (´WHERE CODESTOQ = :CODESTOQ´);

não vai trazer nada. Isto não significa que seu SQL esteja errado, ele só não achou ninguém que satisafaça a condição estabelecida.


GOSTEI 0
POSTAR