Porque não grava a atualização? Tabela DBF
25/03/2006
0
estou usando esse código.
mas o DBF não atualiza, O que falta ou o q tem de errado?
se alguem puder me ajudar desde ja agradeço....
begin
query1.close;
Query1.sql.Clear;
query1.sql.text := ´update ´+ QuotedStr(´estoque.dbf´) + ´ set qtd_atual = :qtd where codigo = :codigo ´;
with IBQuery1 do
begin
close;
sql.text := ´Select * from estoquecontagem order by codigo´;
Open;
IBQuery1.First;
while not Eof do
begin
query1.Edit;
query1.ParamByName(´codigo´).asstring := fieldbyname (´CODIGO´).asstring;
query1.ParamByName(´qtd´).asfloat := fieldbyname(´QTD_ATUAL´).asfloat;
query1.ExecSQL;
Label1.Caption := fieldbyname(´DESCRICAO´).Text;
Application.ProcessMessages;
Next;
end;
end;
showmessage(´OK´);
end;
Marcusbraga
Posts
25/03/2006
Camilo
Query1.DatabaseName := ´C:\sistemas´
Query1.commandtext := ´select * from estoque´;
onde estoque eh .DBF soh q naum digo mais isso na instrução, pode ser isso...
espero ter ajudado
26/03/2006
Aroldo Zanela
Não precisa especificar a tabela entre aspas e sua extensão, senão, será necessário informar também seu path (salve engano), então:
query1.sql.text := ´update estoque set qtd_atual = :qtd where codigo = :codigo ´;
26/03/2006
Aroldo Zanela
A propósito, substitua query1.edit por query1.close;
26/03/2006
Marcusbraga
ele me da uma mensagem
estoque does not exist
File or directory is not exist
c:\estoque\estoque.MDX
c:\estoque\estoque.CDX
O que faço...
28/03/2006
Paulocesar1301
Se eu tiver mais de um campo para atualizar eu uso assim ?
query1.sql.text := ´update estoque set qtd_atual = :qtd, qtd_Out = :Out where codigo = :codigo ´;
28/03/2006
Paulocesar1301
adoSalvaAlteracoes.CommandText := ´UPDATE RESULTADOS SET Nome=:Nome, Supervisor=:Supervisor, Login=:Login, Turno=:Turno, Matricula=:Matricula´, Ativo=:Ativo, Status=:Status´; adoSalvaAlteracoes.Parameters.ParamValues[´Nome´] := AjustaAcento(Trim(FRMAjustaDados.EditNome.Text)); adoSalvaAlteracoes.Parameters.ParamValues[´Supervisor´] := AjustaAcento(Trim(FRMAjustaDados.EditSupervisor.Text)); adoSalvaAlteracoes.Parameters.ParamValues[´Login´] := AjustaAcento(Trim(FRMAjustaDados.EditLogin.Text)); adoSalvaAlteracoes.Parameters.ParamValues[´Turno´] := AjustaAcento(Trim(FRMAjustaDados.EditTurno.Text)); adoSalvaAlteracoes.Parameters.ParamValues[´Matricula´] := AjustaAcento(Trim(FRMAjustaDados.EditMatricula.Text));
Clique aqui para fazer login e interagir na Comunidade :)
