Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
SET EXCLUSIVE OFF
SET TABLEVALIDATE TO 3
Do While .T.
OPEN DATABASE xyz.dbc
ENDDO
Well, my tight WHILE loop does nothing else but repeatedly open databases without any error.KALP1 said:Each scan in turn calls assign.prg which opens databasea
ON SHUTDOWN QUIT
IF ADIR(laDummy,ADDBS(GETENV("TEMP"))+"errors.log")=0
STRTOFILE("",ADDBS(GETENV("TEMP"))+"errors.log",0)
ENDIF
ON ERROR errhandling(ERROR(), MESSAGE(), PROGRAM(), LINENO(), LINENO(2))
SET REPROCESS TO 5
SET EXCLUSIVE OFF
SET TABLEVALIDATE TO 3
testloop()
PROCEDURE testloop()
Do While .T.
OPEN DATABASE (ADDBS(_samples)+"Northwind\northwind.dbc")
OPEN DATABASE (ADDBS(_samples)+"Tastrade\Data\tastrade.dbc")
CLOSE DATABASES ALL && this is essential to let the error occur!
ENDDO
PROCEDURE errhandling(tnErr, tcErrMsg, tcPrg, tnLineNo, tnLineno2)
STRTOFILE(;
TEXTMERGE("<<tnErr>>: <<tcErrMsg>> in line <<tnLineNo>>(<<tnLineno2>>) of <<tcPrg>>")+;
CHR(13)+CHR(10),ADDBS(GETENV("TEMP"))+"errors.log",1)