Exportar a DBF

[cmm07]

el problema es que son muchos procesos imaginate que es una base de datos de 20000 registros aprox. y pasarlo 2 veces el tiempo es el doble, necesito lo más optimizado.

gracias.!

[[Caral]]

Hola
Lo que veo yo es la compativilidad, osea, que las bed sean lo mas similes posibles.
sqlserver con bdf no tienen nada en comun, estoy convencido que se cambiaran muchas cosas en el proceso.
sqlserver, mysql, access son similes.
Bdf, fdb son similes.
No creo que pasar una bd de 20000 registros tarde mas de unos minutos.
Saludos

[Casimiro Noteví]

Empezado por cmm07

el problema es que son muchos procesos imaginate que es una base de datos de 20000 registros aprox. y pasarlo 2 veces el tiempo es el doble, necesito lo más optimizado.
gracias.!

¿20.000 registros?, eso no es nada, léelos con un dataset y lo exportas a xml, por ejemplo o a texto, ¿es sólo una tabla?

[jorge82]

Creo que te hace falta llamar al método GetFields antes de llamar a SaveToFile, he hecho una prueba y me ha funcionado, pruébalo y nos comentas.

Saludos.

[Casimiro Noteví]

Empezado por jorge82

Creo que te hace falta llamar al método GetFields antes de llamar a SaveToFile, he hecho una prueba y me ha funcionado, pruébalo y nos comentas.
Saludos.

No lo he probado, pero parece lógico que sea así.
El ejemplo que viene con los componentes es este:

Código Delphi [-]
{ Copyright Federico Firenze }
{ [email protected]  }
{ Envíe un mail registrando su copia y recibirá novedades y actualizaciones  }

unit unMain;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, DataToXLS, DataToAscii, DataExport, DataToDbf, DB, DBTables,
  StdCtrls, Grids, DBGrids, DataToWK1, DataToHTML;

type
  TfrmMain = class(TForm)
    tblContacts: TTable;
    dsContacts: TDataSource;
    DataToDbf1: TDataToDbf;
    DataToAscii1: TDataToAscii;
    DataToXLS1: TDataToXLS;
    DataToWK11: TDataToWK1;
    SaveDialog: TSaveDialog;
    dbgContacts: TDBGrid;
    btnExport: TButton;
    lbHelp: TLabel;
    chkCopyColumns: TCheckBox;
    DataToHTML1: TDataToHTML;
    procedure btnExportClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  public
  end;
var
  frmMain: TfrmMain;
implementation
{$R *.dfm}

procedure TfrmMain.btnExportClick(Sender: TObject);
  procedure DoExportFile(AExport: TDataExport; AExtencion : String);
  begin
    if chkCopyColumns.Checked Then
      AExport.GetFields.Assign( dbgContacts.Columns )
    else
      AExport.GetFields.Clear; { Dynamic Fields }
    AExport.SaveToFile( ChangeFileExt( SaveDialog.FileName, AExtencion ) );
  end;
begin
  if SaveDialog.Execute Then
    case SaveDialog.FilterIndex of
      1: DoExportFile( DataToDbf1,   '.dbf' );
      2: DoExportFile( DataToAscii1, '.csv' );
      3: DoExportFile( DataToXLS1,   '.xls' );
      4: DoExportFile( DataToWK11,   '.wk1' );
      5: DoExportFile( DataToHTML1,  '.html' );
    end;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  tblContacts.Open ;
end;
end.

Y efectivamente usa getfields

[cmm07]

hola gracias a toodos ya solucione mi problema, tarda menos de 1 segundo en crearla, pero lo tuve q hacer sin ese componente ya que no hubo caso con los ExportSuite, lo hice gracias a este post:

http://www.clubdelphi.com/foros/showthread.php?t=27455

saludos.!