ClientDataSet falha no editar

07/01/2006

0

perece facil mas não é...

não é burrice já estou tento problemas não é de hj com o ClientDataSet

eu estou fazendo um sistema onde os dados são criptografados p/ ser armazenados e descriptografados p/ ser lidos até sem problema mas quando .
estou utilizando o ClientDataSet com uma tabela temporária so que se eu tenho um registro que tem de ser editado meu problemas começam.

seleciono o registro e click em editar
//ação
Dtm.Qry_Senhas.edit;
Dtm.ClientDataSet_senhas.edit;
// fim ação

mudo o registro como eu desejo e click em salvar
// AÇÃO DO BTN
Dtm.Qry_Senhas.EDIT;
Dtm.Qry_Senhas.FieldByName(´titulo´).AsString := criptografoString(Trim(DBEdit_titulo.Text),2);
Dtm.Qry_Senhas.FieldByName(´conteudo´).AsString := criptografoString(Trim(memo_senha.Text),2);
Dtm.Qry_Senhas.Post;
// FIM AÇÃO BTN

// DESCRIPTOGRAFAR
Dtm.ClientDataSet_senhas.EmptyDataSet; //Limpa o clientdataset (tabela temporária)
Dtm.Qry_Senhas.First;
while not Dtm.Qry_Senhas.Eof do
begin
Dtm.ClientDataSet_senhas.edit;
Dtm.ClientDataSet_senhas.FieldByName(´titulo´).AsString:= criptografoString(Trim(Dtm.Qry_Senhas.FieldByName(´titulo´).AsString),2);
Dtm.ClientDataSet_senhas.FieldByName(´conteudo´).AsString:=criptografoString(Trim(Dtm.Qry_Senhas.FieldByName(´conteudo´).AsString),2);
Dtm.ClientDataSet_senhas.Post;
Dtm.Qry_Senhas.Next;
end;

// DESCRIPTOGRAFAR

só que ele não edita o registro ou ele mata o último da minha lista ou ele grava um novo....

se eu tento update nesse código da erro falando que a operaçao está faltando ou edit ou um insert


o que eu devo fazer( suicídio não é uma opção válida)...
por favor alguem tem algum ex de update com ClientDataSet eu adapto no meu código


Crcam

Crcam

Responder

Posts

07/01/2006

Caninha51

Naum seria um insert em vez de edit?

// DESCRIPTOGRAFAR
Dtm.ClientDataSet_senhas.EmptyDataSet; //Limpa o clientdataset (tabela temporária)
Dtm.Qry_Senhas.First;
while not Dtm.Qry_Senhas.Eof do
begin
Dtm.ClientDataSet_senhas.insert;
Dtm.ClientDataSet_senhas.FieldByName(´titulo´).AsString:= criptografoString(Trim(Dtm.Qry_Senhas.FieldByName(´titulo´).AsString),2);
Dtm.ClientDataSet_senhas.FieldByName(´conteudo´).AsString:=criptografoString(Trim(Dtm.Qry_Senhas.FieldByName(´conteudo´).AsString),2);
Dtm.ClientDataSet_senhas.Post;
Dtm.Qry_Senhas.Next;
end; 



Responder

07/01/2006

Crcam

já tentei para falar a verdade era insert antes.....


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