ActiveDelphi

[jpauloss]

Bom dia! Tô com problema no botão delete.
Vai aí o código:

procedure TF_CLIENTE.BTEXCLUIRClick(Sender: TObject);
begin
dm.TBCLIENTE.Delete;
dm.vcod:=dm.TBCLIENTE.fieldbyname(\'codigo\').asstring;
dm.TBCLIENTE.fieldbyname(\'nome\').asstring:=ednome.text;
dm.TBCLIENTE.fieldbyname(\'endereco\').asstring:=edend.text;
dm.tbcliente.fieldbyname(\'bairro\').asstring:=edbairro.Text;
dm.TBCLIENTE.fieldbyname(\'municipio\').asstring:=edmunicipio.Text;
dm.tbcliente.fieldbyname(\'cep\').asstring:=mkcep.Text;
dm.tbcliente.fieldbyname(\'telefone\').asstring:=mktel1.text;
dm.tbcliente.fieldbyname(\'fax\').asstring:=mkfax.Text;
dm.tbcliente.fieldbyname(\'celular\').asstring:=mkcel1.Text;
dm.TBCLIENTE.fieldbyname(\'contato1\').asstring:=edcontato1.Text;
dm.tbcliente.fieldbyname(\'contato2\').asstring:=edcontato2.Text;
showmessage(\'DADOS EXCLUÍDOS COM SUCESSO!\');

Tá dando o seguinte erro:

---------------------------
Debugger Exception Notification
---------------------------
Project PROCESSOS.exe raised exception class EDatabaseError with message \'TBCLIENTE: Dataset not in edit or insert mode\'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Como faz pra resolver? O que está errado?
_________________
Escolha um trabalho que você ame e não terás que trabalhar um único dia em sua vida...

[N3RV0U5]

Quando vc vai editar um client é preciso habilitar a edição, ou seja,

TBCLIENTE.edit; //para começar edição dos valores;
.
.
.
TBCLIENTE.post;// para efetivar a edição dos valores.


Valeu

[jpauloss]

Mas não tô querendo deletar ele. Tô querendo editar não. Como faz?
_________________
Escolha um trabalho que você ame e não terás que trabalhar um único dia em sua vida...

[AlexSousa]

blz jpauloss,


se vc está so querendo deletar, basta fazer:

dm.TBCLIENTE.Delete;

naum precisa colocar os campos como vc fez, assim o sistema vai entender que vc quer editar na tabela...blz

abraços,


_________________
"Guarda com toda a diligência o teu coração, porque dele procedem as fontes da vida....Prov. 4:23"

[Borland_Linuxer]

[quote]Bom dia! Tô com problema no botão delete.
Vai aí o código:

procedure TF_CLIENTE.BTEXCLUIRClick(Sender: TObject);
begin
dm.TBCLIENTE.Delete;
dm.vcod:=dm.TBCLIENTE.fieldbyname(\'codigo\').asstring;
dm.TBCLIENTE.fieldbyname(\'nome\').asstring:=ednome.text;
dm.TBCLIENTE.fieldbyname(\'endereco\').asstring:=edend.text;
dm.tbcliente.fieldbyname(\'bairro\').asstring:=edbairro.Text;
dm.TBCLIENTE.fieldbyname(\'municipio\').asstring:=edmunicipio.Text;
dm.tbcliente.fieldbyname(\'cep\').asstring:=mkcep.Text;
dm.tbcliente.fieldbyname(\'telefone\').asstring:=mktel1.text;
dm.tbcliente.fieldbyname(\'fax\').asstring:=mkfax.Text;
dm.tbcliente.fieldbyname(\'celular\').asstring:=mkcel1.Text;
dm.TBCLIENTE.fieldbyname(\'contato1\').asstring:=edcontato1.Text;
dm.tbcliente.fieldbyname(\'contato2\').asstring:=edcontato2.Text;
showmessage(\'DADOS EXCLUÍDOS COM SUCESSO!\');

por que coloca o delete antes ?

o delete vai por ultimo pow..

_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores

[jpauloss]

Valeu, vou tenatr, qualquer coisa posto aqui.
_________________
Escolha um trabalho que você ame e não terás que trabalhar um único dia em sua vida...

[Borland_Linuxer]

qualquer coisa posta ai..
_________________
Abraços

Sérgio Guedes
www.lsisistemas.com.br
www.scvarejo.com.br - Projetos para parceiros e desenvolvedores