Nao consigo Alterar arquivo XML com o ClientDataset

Delphi

29/09/2006

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

Curtidas 0

Respostas

Marco Salles

Marco Salles

29/09/2006

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;



GOSTEI 0
Doug__fanny

Doug__fanny

29/09/2006

o kra blz...funcionou perfeitamente

Obrigado...


GOSTEI 0
Marco Salles

Marco Salles

29/09/2006

Disponha...


GOSTEI 0
POSTAR