ClientDataSet falha no editar
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
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
Curtidas 0
Respostas
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
07/01/2006
já tentei para falar a verdade era insert antes.....
GOSTEI 0