No matter what I do I allways get "THe connection is busy with another......" running hits code:
Sql and Sql1 are both stupid tables
The forst select run ok and when looping and trying to select or insert in another table, sql1 or a non stupid table I get the error.
!generate all specialities browse
DO OpenFiles
SQL{PROP:SQL}='SELECT e.ID FROM EXAM_GROUPS e '&|
'left outer join Users2ExaGr u on u.id_user='&P_WEB.GSV('LOGIN_ID')&' and id_exa_group=e.id '&|
'where e.name<>'''' and u.id is null '
LOOP
next(sql)
IF ERROR() THEN BREAK end
SQL1{PROP:SQL}='SELECT ISNULL(mAX(ID),0)+1 FROM Users2ExaGr'
if errorcode()=90 then MESSAGE('MAX: '&SQL1:C1&' '&fileerror()) end
NEXT(SQL1)
SQL1{PROP:SQL}='INSERT INTO Users2ExaGr (ID,ID_USER,ID_EXA_GROUP) VALUES ('&SQL1:C1&','&P_WEB.GSV('LOGIN_ID')&','&SQL:C1&')'
SETCLIPBOARD(SQL1{PROP:SQL})
if errorcode()=90 then MESSAGE(Sql:c1&' '&fileerror()) end
! clear(u2e:record)
! U2E:ID_USER = P_WEB.GSV('LOGIN_ID')
! U2E:ID_EXA_GROUP = Sql:c1
! MESSAGE('intento U2E:ID_EXA_GROUP= '&Sql:c1)
! Access:Users2ExaGr.Insert()
!if errorcode()=90 then MESSAGE(U2E:ID_EXA_GROUP&' '&fileerror()) end
end