Como grava dados vindos de um dbf num cds p/ salvá-lo em xml

Delphi

12/04/2006

Olá amigos, o tópico que inseri pela manhã visa fazer a exportação dos dados de um arquivo dbf para um novo ClientDataSet e depois salvá-lo em xml. O que não consigo é deixar o CDS pronto (com os campos) para receber os dados, visto que os criarei via código, pois exportar mais de um arquivo.

O código ficaria assim:]

   // Produtos 
   cds.Open ;

   // Aqui não consigo criar os fields no cds
   cds.Fields.Add(´codpro´);
   cds.Fields.Add(´nomepro´);
   cds.Fields.Add(´preco´);

   Tabela.TableName := ´produtos.dbf´;
   Tabela.Active    := True;
   Tabela.First;
   if Tabela.RecordCount > 0 then
      begin
         ProgressBar.Max := Tabela.RecordCount;
         while not Tabela.Eof do
            begin
               ProgressBar.Position := ProgressBar.Position + 1;
               cds.Append;
               cds.Fields[0].AsString := Tabela.FieldValues[´_codpro´];
               cds.Fields[1].AsString := Tabela.FieldValues[´_nomepro´];
               cds.Fields[2].AsString := Tabela.FieldValues[´_pvenda´];
               Tabela.Next ;
            end;
      end;
   cds.SaveToFile(´produtos.xml´);
   cds.Close ;


Poderiam verificar a sequencia dos comandos e a criação dos fields.

Mario


Aldus

Aldus

Curtidas 0

Respostas

Joaoshi

Joaoshi

12/04/2006

Tente assim:

NovoClientDataSet.Data := DbfClientDataSet.Data;

NovoClientDataSet.SaveToFile(´Arquivo.xml´);

Espero ter ajudado.


GOSTEI 0
POSTAR