[jhandervel]

Tengo un problema con insertar en una BBDD mysql 150 filas mediante un adoquery.

Al hacer post en el registro 127 me da error.

El código q estoy usando es este:

for I := 1 to qacopiodet.RecordCount do
begin
qoperaciones.Insert;
qoperaciones.FieldValues['Id_Usuario']:= qacopiodet.FieldValues['Id_Usuario'];
qoperaciones.FieldValues['Id_Estacion']:= qacopiodet.FieldValues['Id_Estacion'];
qoperaciones.FieldValues['Id_Control']:= qacopiodet.FieldValues['Id_Control'];
qoperaciones.FieldValues['Fecha']:= qacopiodet.FieldValues['Fecha'];
qoperaciones.FieldValues['Ejercicio']:= qacopiodet.FieldValues['Ejercicio'];
qoperaciones.FieldValues['Tipo_Operacion']:= 'ACOPIO RECIBIDO';
qoperaciones.FieldValues['Descripcion']:= qacopiodet.FieldValues['Descripcion'];
qoperaciones.FieldValues['No_CbtePago']:= qacopiodet.FieldValues['No_CbtePago'];
qoperaciones.FieldValues['Monto_Total']:= qacopiodet.FieldValues['Monto_Recibido'];
barra.Position:= barra.Position + 1;
qacopiodet.Next;
end;

Como pueden ver es un loop que debe contar en 'I' hasta 150

Q me sugieren?

He probado de todo con el servidor mysql pensando en q de pronto por tiempo cortara la conexion, diciendole a delphi que en I=127 desconecte el adoconnection, lo vuelva a conectar junto con todas las querys necesarias pero es una solucion burda que ademas implica que me regresa qacopiodet al registro 1 y me completa los 150 con los registros de qacopiodet 2 al 24 en vez de continuar del 128 al 150

Entré ya en desesperación por lo q te agradezco altamente su ayuda

Saludos cordiales