Nao consigo Alterar arquivo XML com o ClientDataset
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;
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
Curtidas 0
Respostas
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
29/09/2006
o kra blz...funcionou perfeitamente
Obrigado...
Obrigado...
GOSTEI 0
Marco Salles
29/09/2006
Disponha...
GOSTEI 0