ClientDataSet falha no editar

Delphi

07/01/2006

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

Curtidas 0

Respostas

Caninha51

Caninha51

07/01/2006

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; 



GOSTEI 0
Crcam

Crcam

07/01/2006

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


GOSTEI 0
POSTAR