Clientdataset not in edit or insert mode

01/04/2013

0

Olá pessoal, Estou usando Delphi XE2 + Mysql + DbExpress.
Estou fazendo um insert e quando vou salvar apresenta o erro:

Clientdataset not in edit or insert mode:
Segue os códigos, botão insere, botão grava e botão excluir.

procedure TfrmCadPerfil.btn1Click(Sender: TObject);
begin
dm1.dsclientperfil.Insert;
dm1.dsClientPerfil.Edit;
end;

procedure TfrmCadPerfil.btn2Click(Sender: TObject);
begin
 with dm1 do
 begin

  dsClientPerfilDATACADASTRO.AsDateTime:=Now();
  dsClientPerfil.ApplyUpdates(-1);
  dsClientPerfil.Post;

 end;
end;

procedure TfrmCadPerfil.btn3Click(Sender: TObject);
begin
 with dm1 do
 begin
  dsClientPerfil.Edit;
  dsClientPerfil.Delete;
  dsClientPerfil.ApplyUpdates(-1);
  dsClientPerfil.Post;

 end;
end;

Valdemi Ramos

Valdemi Ramos

Responder

Posts

01/04/2013

Rafael Cunha

Se entendi corretamente seu código tenta da seguinte maneira.

procedure TfrmCadPerfil.btn1Click(Sender: TObject);
begin
dm1.dsclientperfil.Insert;
end;

procedure TfrmCadPerfil.btn2Click(Sender: TObject);
begin
with dm1 do
begin

dsClientPerfilDATACADASTRO.AsDateTime:=Now();
dsClientPerfil.Post;
dsClientPerfil.ApplyUpdates(-1);

end;
end;

procedure TfrmCadPerfil.btn3Click(Sender: TObject);
begin
with dm1 do
begin
dsClientPerfil.Delete;
dsClientPerfil.ApplyUpdates(-1);
end;
end;
Responder

01/04/2013

Daniel Santos

Visivelmente ele não sabe oq esta fazendo, seria melhor explicar antes de colar o codigo funcionando pra ele! ja que ele vai copiar, colar la, agradecer e nem vai ler o pq resolveu o problema.
Responder

01/04/2013

Valdemi Ramos

Resolvido o problema! Tava trocada a linha do post com o applyupdate!
Ogb.

RESOLVIDO
Responder

01/04/2013

Valdemi Ramos

Geralemente eu não uso clientdataset, pois faço os inserts e updates via código SQL mesmo só com as Querys. Por isso me equivoquei na hora de usar o post e o upplyupdate!

Obrigado mais uma vez!

Ao contrario do que falaram ai eu sei o que estou fazendo. Apenas troquei a linha de código por não ter costume de usar.
Responder

01/04/2013

Joel Rodrigues

Obrigado pelo retorno.
Vou marcar este tópico como Concluído, para mantermos a organização do fórum.
Abraço a todos.
Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

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

Aceitar