Llevar desde Excel a una BD paradox

[keyboy]

Prueba así:

Código Delphi [-]
AdoDataSet1.Active :=True;
Table_Importado.Active := True;

while not AdoDataSet1.Eof do
begin
  Table_Importado.Append;

  Table_Importado.Fields[0].Value := AdoDataSet1.Fields[0].Value;
  Table_Importado.Fields[1].Value := AdoDataSet1.Fields[1].Value;
  Table_Importado.Fields[2].Value := AdoDataSet1.Fields[2].Value;

  AdoDataSet1.Next;
end;

Table_Importado.Active := False;

No es necesario activar el AdoDataset en cada vuelta. Y al desactivarlo, no le das tiempo a que se guarden los datos.

Bye