O que há de errado Nesse Comando (URGENTE)
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;
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
Curtidas 0
Respostas
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.
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