How to add a value to DBF

Question

To read the file . DBF works as follows:

I use a Tadoconnection, being the Connectionstring for:

Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=C:\_workspace\projects\DBFEditor\temp

To read the DBF file use a Tadoquery setting the SQL property for the query:

Select * from <arquivodbf>

So I have these columns in my dbf file.

INDICE  NOME    COR ESTILO  ESCALA
100     SAOJOAO      18      0,00

I need to change the name of the column INDEX FOR ID, for this I am doing as follows:

  while not ADOQuery1.Eof do
    begin
      Adoquery1.Edit;
      ADOQuery1.FieldByName('NOME').TEXT:= 'ID';
      Adoquery1.Post;
      ADOQuery1.Next;
    end;

however I get the following result, when opening my excel:

INDICE  NOME    COR ESTILO  ESCALA
 ID     SAOJOAO      18      0,00

how I expect the result:

 ID        NOME    COR ESTILO  ESCALA
 100     SAOJOAO        18      0,00

Answer 1

I made an example of how I could do, follows below:

Declare no uses Data.DB, Datasnap.Dbclient

var
  oCDSDados: TClientDataSet;
  iPos: Integer;
begin
  oCDSDados := TClientDataSet.Create(nil);
try
  oCDSDados.FieldDefs.Add('ID',ftInteger);
  oCDSDados.FieldDefs.Add('NOME',ftString,50);
  oCDSDados.FieldDefs.Add('COR_ESTILO',ftInteger);
  oCDSDados.FieldDefs.Add('ESCALA',ftFloat);
  oCDSDados.CreateDataSet;

  ADOQuery1.First;
  while not (ADOQuery1.Eof) do
  begin
    oCDSDados.Append;
    oCDSDados.FieldByName('ID').AsInteger         := ADOQuery1.FieldByName('INDICE').AsInteger;
    oCDSDados.FieldByName('NOME').AsString        := ADOQuery1.FieldByName('NOME').AsString;
    oCDSDados.FieldByName('COR_ESTILO').AsInteger := ADOQuery1.FieldByName('COR_ESTILO').AsInteger;
    oCDSDados.FieldByName('ESCALA').AsFloat       := ADOQuery1.FieldByName('ESCALA').AsFloat;
    oCDSDados.Post;
    ADOQuery1.Next;
  end;

  //Primeira linha para incluir os fields no Excel.
  for iPos := 0 to oCDSDados.FieldDefs.Count-1 do
  begin
    // para pegar os fields do ClientDataSet
    oCDSDados.FieldDefs[iPos].Name;
  end;

  oCDSDados.First;
  while not (oCDSDados.Eof) do
  begin
    //
    // ESTRUTA PARA MONTAR O DADOS NO EXCEL
    //

   oCDSDados.Next;
 end;
finally
  if (oCDSDados.Active) then
    oCDSDados.Close;
  FreeAndNil(oCDSDados);
end;
end;

I hope I helped. Hugs!