Fórum Oque há de errado no codigo salvar..... #188950

15/10/2003

0

Ola pessoall...

Tenho um cadastro com um botão insert e outro salvar...
Clico em insert
TBComputadores.insert; (ele me habilita o cadastro)

quando clico em salvar ele insere mais um registro alem daquele que já foi inserido quando clico em insert...

vejam, o codigo salvar
o que há de errado....



if TBComputadores.findkey([dbtext1.field.value])= true
then
Begin
TbComputadores.Append;
TbComputadoresnomedamaq.value:=(Edit2.Text);
TbComputadoresip.value:=(Edit3.text);
TbComputadoresMemoriaRam.value:=(Edit4.Text);
TbComputadoresHD.value:=(Edit1.Text);
TbComputadoresProcessador.value:=(Edit5.Text);
TbComputadoresModelo.value:=(Edit6.Text);
TbComputadoresNdeSerie.value:=(Edit7.Text);
TbComputadoresETQNAUS.value:=(Edit8.Text);
TbComputadoresETQY2K.value:=(Edit9.Text);
TbComputadores.post;
GroupBox1.enabled:=False;
Edit2.enabled:=false;
Edit3.enabled:=false;
Edit4.enabled:=false;
Edit1.enabled:=false;
Edit5.enabled:=false;
Edit6.enabled:=false;
Edit7.enabled:=false;
Edit8.enabled:=false;
Edit9.enabled:=false;
DBlookUpComboBox1.enabled:=false;
TbComputadores.post;
end
else
Begin
TbComputadores.Edit;
end;
end;


Junior#

Junior#

Responder

Posts

15/10/2003

Théo

Olá Júnior...

Você não teria q tirar...

TbComputadores.Append; ???

... q está logo no início. Tanto TDataSet.Insert quanto TDataSet.Append criarão um novo registro.

A diferença está no fato de .Insert criar um novo registro na posição atual do cursor e .Append no fim do DataSet.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar