#INCLUDE "win32api.inc"
#INCLUDE "sqlitening.inc"
GLOBAL gs() AS STRING
FUNCTION PBMAIN () AS LONG
LOCAL x,hThread AS LONG
DIM gs(12) 'each user puts recordset into an element
FOR x = 1 TO UBOUND(gs)
THREAD CREATE MyThread(x) TO hthread
THREAD CLOSE hThread TO hThread
NEXT
DO:SLEEP 50:LOOP UNTIL THREADCOUNT=1
? JOIN$(gs(),$CR)
END FUNCTION
THREAD FUNCTION MyThread(BYVAL Num AS LONG) AS LONG
DIM s() AS STRING
slConnect "192.168.0.2",51234
slOpen "sample.db3"
slselary "select rowid,redref from parts where rowid=" + STR$(Num),s(),"Q9c"
gs(Num) = JOIN$(s(),$CR) 'put into array
slDisconnect
END FUNCTION