No guarda el ultimo registro
 

La siguiente funcion que tiene que ir registro por registro de la tabla ADOQueryAux y copiar los datos en la tabla TAccessDades copia todos los registros menos el último. PORQUE?
ADOQueryAux es FoxPro
TAccessDades es Access

Código Delphi [-]
procedure TFAssistent.VolcarArticulo();
begin
  ADOQueryAux.Close;
  ADOQueryAux.SQL.Clear;
  ADOQueryAux.SQL.Add('SELECT codart, des, premedcos, prevena');
  ADOQueryAux.SQL.Add('FROM articulo');
  ADOQueryAux.Open;
    
  while not ADOQueryAux.Recordset.EOF do
  begin
    TAccessDades.Insert;
    TAccessDades.FieldByName('codart').AsString := ADOQueryAux.Recordset.Fields.Item[0].Value;
    TAccessDades.FieldByName('des').AsString := ADOQueryAux.Recordset.Fields.Item[1].Value;
    TAccessDades.FieldByName('premedcos').AsString := ADOQueryAux.Recordset.Fields.Item[2].Value;
    TAccessDades.FieldByName('prevena').AsString := ADOQueryAux.Recordset.Fields.Item[3].Value;
    TAccessDades.UpdateRecord;
    ADOQueryAux.Recordset.MoveNext;
  end;
end;

Te he editado el mensaje para poner la etiqueta [delphi]. Mira de usarla y, si no sabes cómo, mírate el primer mensaje de cada foro, allí se explica cuales hay y cómo usarlas

Que no en lugar de UpdateRecord hay que usar Post?

Digo, si es que se trata de un descendiente de TDataSet.

Hasta luego.

;)

Muchas gracias, funcionó!!!
 

Muchas gracias, funcionó!!!