Recuperar dados em ClientDataSet usando TStream

Delphi

07/11/2003

Eu possuo dentro de uma tabela de PRODUTOS um campo TIPODESPESA varchar de 5000, onde eu gravo os tipos de despesa que cada produto possui, como o codigo e a descrição das despesas, é como se fosse uma tabela dentro de um campo.
Anteriormente eu usava o componente TkbmMemTable e ele funcionava da seguinte forma, eu criava a Mem com os campos CODIGO e DESCRICAO e fazia o seguinte...

Mem_Aux.Open;
MemTream := TMemoryStream.Create;
Mem_Aux2.Append;
Mem_Aux2dados.Value:= QrAux[TIPODESPESA´];
Mem_Aux2dados.SaveToStream(MemTream);
MemTream.Position := 0;
Mem_Aux.LoadFromStream(MemTream);

A partir deste momento eu teria na minha Mem todas as despesas para aquele produto com o código e a descrição, com o DataSet não esta funcionando, abaixo está o código atual.

Cds_Aux.EmptyDataSet;
MemTream := TMemoryStream.Create;
Cds_Aux2.Append;
Cds_Aux2dados.Value:= QrAux[´TIPODESPESA´];
Cds_Aux2dados.SaveToStream(MemTream);
MemTream.Position := 0;
Cds_Aux.LoadFromStream(MemTream);


Paulo Cesar

Paulo Cesar

Curtidas 0
POSTAR