Exportar dbase a otros formatos

[Cristalero]

Muy buenas.

Tengo varias tablas dbf las cuales tengo que exportar su contenido a diferentes formatos. Alguna forma de exportarlos sin tener que recorrer dichas tablas?

Me gustaría exportalo a txt, xml y csv. Alguna idea?

Gracias!

[delphi.com.ar]

Dos de esos tres formatos son soportados por mis componentes: FireSoft ExportSuite v.1

Saludos!

[Cristalero]

Gracias Federico. Pero busco la forma de hacerlo con lo que trae delphi.

Gracias de todas formas. Si alguien me echa un cable de como hacerlo aunque solo sea txt?

[Neftali [Germán.Estévez]]

Empezado por Cristalero

Alguna forma de exportarlos sin tener que recorrer dichas tablas?

Sin recorrerlas difícil, por no decir imposible.
Otra cosa es buscar algun componente que te lo haga, si no quieres hacerlo tú, pero el componente igualmente deberá hacer el recorrido.

[Cristalero]

Pense que habría algun procedimiento en delphi de este tipo.

Como siempre genial!! Gracias Neftalí.

[Neftali [Germán.Estévez]]

Posiblemente el TXT (CSV) sea el más sencillo.
Basta con un WHILE + un FOR, uno para el recorrido y otro para los campos.

Algo así, aunque deberás afinarlo más...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j:Integer;
  fName:string;
  TS:TStrings;
  str:string;
  typ:TFieldType;
begin
  ADOTable1.Open;
  TS := TStringList.Create();
  fName := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName)) + 'export.txt';

  // Recorrido
  while not ADOTable1.Eof do begin

    Str := '';
    for i := 0 to (ADOTable1.Fields.Count - 1) do begin

      // Tipo Correcto
      typ := ADOTable1.Fields[i].DataType;

      if (typ = ftString) or (typ = ftSmallint) or (typ = ftInteger) or
         (typ = ftWord) or (typ = ftBoolean) or (typ = ftFloat) or
         (typ = ftLargeInt) or (typ = ftDate) or (typ = ftDateTime) or
         (typ = ftCurrency) or (typ = ftWideString) then begin

        Str := Str + ADOTable1.Fields[i].AsString;
        if (i <> ADOTable1.Fields.Count) then begin
          Str := Str + ',';
        end;
      end;


    end;
    TS.Add(Str);

    ADOTable1.Next;
  end;

  Memo1.Lines.AddStrings(TS);
  TS.SaveToFile(fName);


  FreeAndNil(TS);
  ADOTable1.Close();
end;