Problema al hacer post en el insert 127
 

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

Hola jhandervel, muy bienvenido a Club Delphi :)

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Cuando incluyas código en tus mensajes será mas legible si usas TAG's:


En cuanto a tu consulta, pareciera que no hay nada erróneo en tu código... ¿ Cuál es literalmente el mensaje de error que te muestra ?

Saludos :)