Error de inserción en MariaDB cuando más de un usuario ejecuta la tarea al mismo tiempo.
Publicado: Mié Ago 16, 2023 12:16 am
Hola a todos,
Cuando los usuarios ejecutan el fragmento de código al mismo tiempo, aparece el siguiente mensaje de error.
agradezco la atencion
Cuando los usuarios ejecutan el fragmento de código al mismo tiempo, aparece el siguiente mensaje de error.
Código: Seleccionar todo
For ContEscalas := 1 To Len(aryEscala)
strData := StrZero(Year(aryEscala[ContEscalas, 01]), 4) + '-' + StrZero(Month(aryEscala[ContEscalas, 01]), 2) + '-' + StrZero(Day(aryEscala[ContEscalas, 01]), 2)
Application:oMainForm:oMariaDB:Execute( 'Insert INTO movimentacoes( data, tipo, codposto, codescala, codcolabprog, HE, HSI1, HRI1, HSI2, HRI2, HSI3, HRI3, HS) ' +;
'values ("' + strData + '", ' +;
AllTrim(Str(aryEscala[ContEscalas, 02])) + ', ' + ;
AllTrim(Str(::oPostos:codigo)) + ', ' + ;
AllTrim(Str(::oEscalas:codigo)) + ', ' + ;
AllTrim(Str(::oPostos:codcolaborador)) + ', ' + ;
'"' + aryEscala[ContEscalas, 03] + '", ' +;
'"' + aryEscala[ContEscalas, 04] + '", ' +;
'"' + aryEscala[ContEscalas, 05] + '", ' +;
'"' + aryEscala[ContEscalas, 06] + '", ' +;
'"' + aryEscala[ContEscalas, 07] + '", ' +;
'"' + aryEscala[ContEscalas, 08] + '", ' +;
'"' + aryEscala[ContEscalas, 09] + '", ' +;
'"' + aryEscala[ContEscalas, 10] + '")' )
Next ContEscalas