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;