Recuperar dados em ClientDataSet usando TStream
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);
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
Curtidas 0