25000 registros, ni uno más.

[Tecnic2]

Utilizo un TTable en el que està la tabla access donde guardo los registros, y un TADOQuery donde hago la consulta de la tabla FoxPro y de la que obtengo los registros. El código es el siguiente:

procedure TFAssistent.VolcarTiclin();
begin
ADOQueryAux.Close;
ADOQueryAux.SQL.Clear;
ADOQueryAux.SQL.Add('SELECT canped, codart, fectic, preven');
ADOQueryAux.SQL.Add('FROM ticlin');
ADOQueryAux.Open;

while not ADOQueryAux.Eof do
begin
TAccessDades.Insert;
TAccessDades.FieldByName('canped').AsString := ADOQueryAux.Recordset.Fields.Item[0].Value;
TAccessDades.FieldByName('codart').AsString := ADOQueryAux.Recordset.Fields.Item[1].Value;
TAccessDades.FieldByName('fectic').AsString := ADOQueryAux.Recordset.Fields.Item[2].Value;
TAccessDades.FieldByName('preven').AsString := ADOQueryAux.Recordset.Fields.Item[3].Value;
TAccessDades.Post;
ADOQueryAux.Recordset.MoveNext;
end;
end;
//_________________________________________________________________________