Fórum Como Atualizar a tabela paradox... #214209

provavelmente vc esqueceu de colocar um post na finalização da inclusão do registro

faz o seguinte... logo apos o table.post vc coloca table.refresh que o problema esta solucionado.

Aonde eu coloco o Refresh
o codigo abaixo é do botao gravar...
ja coloquei o Refresh e nao deu certo....

procedure TF_Cadastro.B_ConfirmarClick(Sender: TObject);
begin
with DataModule_RP.Query_cli do
begin
if eof then // se fim de arquivo inclui
begin
sql.clear;
sql.Add(´INSERT INTO BancoD (Codigo, Cliente, Autor, reu, Acao, Valor, Vara, Comarca, Advogado, Data, DAProcesso, OperacaoContrato)´);
sql.add(´ VALUES (:Codigo, :Cliente, :Autor, :reu, :Acao, :Valor, :Vara, :Comarca, :Advogado, :Data, :DAProcesso, :OperacaoContrato)´);
parambyname(´Codigo´).asfloat := strtofloat(Edit_Cod.text);
parambyname(´Cliente´).asstring := Edit_Cli.text;
parambyname(´Autor´).asstring := Edit_Aut.text;
parambyname(´reu´).asstring := Edit_Reu.text;
parambyname(´Acao´).asstring := Edit_Acao.text;
parambyname(´Valor´).AsString := Edit_Valor.text;
parambyname(´Vara´).asstring := Edit_Vara.text;
parambyname(´Comarca´).asstring := Edit_Comarca.text;
parambyname(´Advogado´).asstring := Edit_Ad_Res.text;
parambyname(´Data´).asstring := Edit_Dat_Dist.text;
parambyname(´DAProcesso´).asstring := memo_DAP.Text;
parambyname(´OperacaoContrato´).asstring := Edit_OC.text;

execsql;

end
else
if messagedlg(´Este Registro já Existe, Deseja Alterá-lo ?´,mtconfirmation,[mbyes,mbno],0) = mryes then
begin
with DataModule_RP.Query_cli do
begin
sql.clear;
sql.Add(´update BancoD set´);
sql.add(´Cliente = :Cliente, Autor = :Autor, reu = :reu, Acao = :Acao, Valor = :Valor, Vara = :Vara, Comarca = :Comarca, Advogado = :Advogado, Data = :Data, DAProcesso = :DAProcesso, OperacaoContrato = :OperacaoContrato´);
sql.Add(´where Codigo = :Codigo´);
parambyname(´Codigo´).asfloat := strtofloat(Edit_Cod.text);
parambyname(´Cliente´).asstring := Edit_Cli.text;
parambyname(´Autor´).asstring := Edit_Aut.text;
parambyname(´reu´).asstring := Edit_Reu.text;
parambyname(´Acao´).asstring := Edit_Acao.text;
parambyname(´Valor´).AsString := Edit_Valor.text;
parambyname(´Vara´).asstring := Edit_Vara.text;
parambyname(´Comarca´).asstring := Edit_Comarca.text;
parambyname(´Advogado´).asstring := Edit_Ad_Res.text;
parambyname(´Data´).asstring := Edit_Dat_Dist.text;
parambyname(´DAProcesso´).asstring := memo_DAP.Text;
parambyname(´OperacaoContrato´).asstring := Edit_OC.text;
execsql;
end;
B_CancelarClick(self);
end;
B_CancelarClick(self);
end;

end;

Manow, aconselho vc utilizar o componente Table para manipular dados na tabela paradox e não Query, deixa pra utilizar Query em consulta e relatorios.

para adicionar - table1.append;
para gravar - table1.post;
table1.refresh;
para editar - table1.edit;
para cancelar - table1.cancel;
para apagar - table1.delete;


sds

cinh0

Teria como eu continuase usar a query e colocar uma table pra da o refresh ?

Assim nao... como vc pode usuar um componente e da refresh em outro.

Usa Table que eh melhor e mais pratico para paradox

Fala AE thesanto, blz!? Na minha opinião, vc deveria continuar usando query.

No seu código, para atualizar, vc poderia colocar, depois do ExecSQL

DataModule_RP.Query_cli.REQUERY

Veja se dah certo.

infelismente nao deu certo......
se alguem tiver outra dica plz passa ai