>CLOSE DATABASES ALL >MODIFY DATABASE ImageLoad.DBC NOWAIT > >IF USED("v_GenImages") > USE IN v_GenImages >ENDIF > >SELECT 0 >USE v_GenImages >DELETE FROM v_GenImages > >nTotImages = ADIR(aImages, "Images\*.png") > >FOR nImage = 1 TO nTotImages > > cImageName = LOWER(SYS(5) + SYS(2003) + "\Images\" + aImages[nImage, 1]) > > INSERT INTO v_GenImages; > (imagesize, imagecode); > VALUES; > (16, LOWER(JUSTSTEM(cImageName))) > > REPLACE ImageFile WITH FILETOSTR(cImageName) > >ENDFOR >>
>nHandle = SQLSTRINGCONNECT(cConnString) > >IF nHandle > -1 > > nResult = SQLEXEC(nHandle, "select * from genimages", "Images") > > IF nResult > -1 > > SELECT Images > SCAN > > cFileName = cDestDir + ALLTRIM(Images.ImageCode) + ".png" > > =STRTOFILE(ImageFile , JUSTFNAME(cFileName)) > > ENDSCAN > > ELSE > ? "Error" > ENDIF > > SQLDISCONNECT(nHandle) > >ELSE > ? "Not connected" >ENDIF >>
nHandle = SQLSTRINGCONNECT(cConnString) IF nHandle > -1 nResult = SQLEXEC(nHandle, "select * from genimages", "Images") IF nResult > -1 SELECT Images SCAN cFileName = cDestDir + ALLTRIM(Images.ImageCode) + ".png" =STRTOFILE(ImageFile , JUSTFNAME(cFileName)) ENDSCAN ELSE AERROR(laError) ? "Error " +laError[1,2] ENDIF SQLDISCONNECT(nHandle) ELSE AERROR(laError) ? "Not connected "+laError[1,2] ENDIF