Fórum sincronizar base de dados #561954

fiz uma melhoria no código graças a uma ajuda que tive aqui,
ao invés de implementar o locate em um ibdataset estou fazendo em um clientdataset ultilizando a ferramena assing local data,

a melhora foi imensa na velocidade , mas o problema que não esta atualizando os registros no banco .

Alguém pode me dar uma força?



query_estoque.First;

while not query_estoque.Eof do begin

//if IBDataSet1_estoque.locate('cod',query_estoqueID_ESTOQUE.AsInteger,[] )then begin
if ClientDataSet_produtos.locate('cod',query_estoqueID_ESTOQUE.AsInteger,[] )then begin
ClientDataSet_produtos.edit;
ClientDataSet_produtosDESCRICAO.Text:=query_estoqueDESCRICAO.Text;
ClientDataSet_produtosUNIDADE.Text:=query_estoqueUNI_MEDIDA.Text;
ClientDataSet_produtosVALOR_VENDA.AsCurrency:=query_estoquePRC_VENDA.AsCurrency;
ClientDataSet_produtosBARRAS.Text:=query_estoqueCOD_BARRA.Text;
ClientDataSet_produtosCARGA.Text:=DateToStr(date)+' as '+TimeToStr(time);
ClientDataSet_produtos.Post;
end;
// if not IBDataSet1_estoque.locate('cod',query_estoqueID_ESTOQUE.AsInteger,[] )then begin
if not ClientDataSet_produtos.locate('cod',query_estoqueID_ESTOQUE.AsInteger,[] )then begin
ClientDataSet_produtos.append;
ClientDataSet_produtosCOD.AsInteger:=query_estoqueID_ESTOQUE.AsInteger;
ClientDataSet_produtosDESCRICAO.Text:=query_estoqueDESCRICAO.Text;
ClientDataSet_produtosUNIDADE.Text:=query_estoqueUNI_MEDIDA.Text;
ClientDataSet_produtosVALOR_VENDA.AsCurrency:=query_estoquePRC_VENDA.AsCurrency;
ClientDataSet_produtosBARRAS.Text:=query_estoqueCOD_BARRA.Text;
ClientDataSet_produtosCARGA.Text:=DateToStr(date)+' as '+TimeToStr(time);
ClientDataSet_produtos.Post;
end;
sGauge1.Progress:=sGauge1.Progress+1;
Application.ProcessMessages;
query_estoque.Next;


end;