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);
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
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)