Fórum Nao consigo Alterar arquivo XML com o ClientDataset #330322

29/09/2006

0

olá pessoal,

Estou tentando alterar um arquivo XML com o ClientDataset e não estou conseguindo, ele nao altera o XML. Alguem poderia me ajudar....

Os componentes que estou utilizando sao: ClientDataset,DatasetProvider


ClientDataSet1.Close;
ClientDataSet1.LoadFromFile(sPathDest+´\clientes.xml´);
ClientDataSet1.Open;

ClientDataSet1.First;
while not ClientDataSet1.Eof do
begin
if (ClientDataSet1.fieldbyname(´Diavisita´).asstring = ´´) Then
begin
ClientDataSet1.Edit;
ClientDataSet1.fieldbyname(´Diavisita´).asstring := ´SEG´;
ClientDataSet1.Post;
end;
ClientDataSet1.Next;
end;

ClientDataSet1.Close;

ClientDataSet1.Open;
ClientDataSet1.SaveToFile(sPathDest+´\clientes.xml´,dfXMLUTF8);
ClientDataSet1.Close;


Doug__fanny

Doug__fanny

Responder

Posts

29/09/2006

Marco Salles

Estou tentando alterar um arquivo XML com o ClientDataset e não estou conseguindo, ele nao altera o XML. Alguem poderia me ajudar.... Os componentes que estou utilizando sao: ClientDataset,DatasetProvider


datasetProvider , Xml , não é necessário nesta arquitetura

certifique do caminho ... var[b:300c88b688] sPathDest[/b:300c88b688]

mas acho que o erro mesmo é que voce esta fechando o clienteDataset sem persistir os dados...

ClientDataSet1.Close; ClientDataSet1.LoadFromFile(sPathDest+´\clientes.xml´); ClientDataSet1.Open; ClientDataSet1.First; while not ClientDataSet1.Eof do begin if (ClientDataSet1.fieldbyname(´Diavisita´).asstring = ´´) Then begin ClientDataSet1.Edit; ClientDataSet1.fieldbyname(´Diavisita´).asstring := ´SEG´; ClientDataSet1.Post; end; ClientDataSet1.Next; end; //ClientDataSet1.Close; *********não de close //ClientDataSet1.Open; *****desnecessário ClientDataSet1.SaveToFile(sPathDest+´\clientes.xml´,dfXMLUTF8); ClientDataSet1.Close;



Responder

Gostei + 0

03/10/2006

Doug__fanny

o kra blz...funcionou perfeitamente

Obrigado...


Responder

Gostei + 0

03/10/2006

Marco Salles

Disponha...


Responder

Gostei + 0

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

Aceitar