PAGUE 6 MESES
LEVE 12 MESES
GARANTIR DESCONTO

Fórum Recuperar dados em ClientDataSet usando TStream #193491

07/11/2003

0

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

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar