Fórum ClientDataSet - Em memória #368536
18/02/2009
0
Paulo
Curtir tópico
+ 0Posts
18/02/2009
Paulo
var contador: Integer; bkm: TBookmarkList; bkm_str: TBookmarkStr; begin bkm_str := qryProd.Bookmark; bkm := grdProd.SelectedRows; if not cdsProd.Active then cdsProd.Open; //With Grid do for contador:= 0 to pred(bkm.Count) do Begin qryProd.BookMark := bkm[contador]; cdsProd.Append; cdsProd.FieldByName(´NUM_Chamado´).AsString := copy(Grid.Fields[1].AsString,Pos(´-´,Grid.Fields[1].AsString)-1,255); cdsProd.FieldByName(´Cod_Crise´).AsString := Grid.Fields[3].AsString; cdsProd.FieldByName(´Materia´).AsString := Grid.Fields[4].AsString; cdsProd.FieldByName(´Qtd_Materia´).AsString := Copy(Grid.Fields[4].AsString,1,3); cdsProd.FieldByName(´Comunicado´).AsString := Grid.Fields[13].AsString; cdsProd.Post; end; end;
Gostei + 0
18/02/2009
Ivanh
Gostei + 0
18/02/2009
Paulo
Gostei + 0
19/02/2009
Paullsoftware
você não pode setar o seu CDS para um arquivo XML não? tipo:
cds.filename:=´c:\cdsTemp.xml´; cds.CreateDataSet; .... //Instruções a serem realizadas
ou por outra crie seu CDs em Run-Time para que ele fique totalmente em memória usando a mesma lógica que te passei!
espero ter ajudado :wink:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)