Fórum Atualiza codigo #457794
07/10/2013
0
Quando abre a tabela e vc inserta ele atualiza codigo normal so que depois que salva e inserta novamente ele nao atualiza continua salvando com mesmo codigo do primeiro e quando fecha a from e abre de novo atualiza como resolvo ?
Felipe Barlera
Curtir tópico
+ 0Posts
08/10/2013
Ricardo Rodrigues
Quando abre a tabela e vc inserta ele atualiza codigo normal so que depois que salva e inserta novamente ele nao atualiza continua salvando com mesmo codigo do primeiro e quando fecha a from e abre de novo atualiza como resolvo ?
Bom dia, primeiramente precisamos saber o que vc está utilizando, posta seu codigo pra analisarmos.
Gostei + 0
08/10/2013
Felipe Barlera
Gostei + 0
08/10/2013
Ricardo Rodrigues
Gostei + 0
08/10/2013
Felipe Barlera
Gostei + 0
08/10/2013
Felipe Barlera
Gostei + 0
09/10/2013
Felipe Barlera
procedure Tfrmcadclientes.Button3Click(Sender: TObject);
var ultcod:integer;
begin
dmdados.tbl_clientes.Insert;
if dmdados.dsclientes.State in [dsInsert] then
begin
tblAuxClientes.Last;
ultcod:=tblAuxClientesCLI_CODIGO.Value+1;
dmdados.tbl_clientesCLI_CODIGO.Value:=ultcod;
dmdados.tbl_ClientesCLI_DATACADASTRO.asdatetime :=date;
dmdados.tbl_ClientesCLI_HORACADASTRO.Value:=time;
dmdados.tbl_clientesCLI_FOTO.Value:='C:\Users\Sside\Documents\Progamação\Monter Estoque\Imegens\sem-imagem2.bmp';
foto.Picture.LoadFromFile(dmdados.tbl_clientesCLI_FOTO.Value);
DBEdit5.SetFocus;
end;
end;
Gostei + 0
16/10/2013
Felipe Barlera
Gostei + 0
16/10/2013
Marcos Saffran
no after post você já tentou colocar o applyupdates(0) para o client data set?
Gostei + 0
16/10/2013
Felipe Barlera
Gostei + 0
16/10/2013
Felipe Barlera
tentei tb coloca tabala. applyupdates(0) nao deu certo tb como introduzo codigo corretamente ?o
Erro apresentado pelo delphi xe 4 : Undeclared identifer apllyupdates at lines .
Gostei + 0
17/10/2013
Marcos Saffran
no seu DataModule dmdados, selecione o evento afterpost do tbl_clientes e insira o código abaixo:
procedure Tdmdados.tbl_clientesAfterPost(DataSet: TDataSet); begin tbl_clientes.applyupdates(0); tbl_clientes.refresh; end;
obs.: estou considerando que sua chave não seja autoincremet.
Gostei + 0
17/10/2013
Marcos Saffran
tentei tb coloca tabala. applyupdates(0) nao deu certo tb como introduzo codigo corretamente ?o
Erro apresentado pelo delphi xe 4 : Undeclared identifer apllyupdates at lines .
ops, agora é que vi você colocou apllyupdates, o correto é applyupdates.
Gostei + 0
17/10/2013
Felipe Barlera
enseri seguinte codido no cliente data set after post : UDmdados.dmdados.tbl_clientes.ApplyUpdates(0); esta correto?
Bando de Dados firebird 2.5
Gostei + 0
17/10/2013
Marcos Saffran
pode ser o refresh ou então você fecha e abre o dataset.
se der coloque o código da procedure do afterpost toda.
Gostei + 0
17/10/2013
Felipe Barlera
UDmdados.dmdados.tbl_clientes.Refresh;
O mesmo não atualiza ao inserta depois de salvo 1 cadastro.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)