>CLOSE DATABASES ALL >MODIFY DATABASE ImageLoad.DBC NOWAIT > >cImageFile = "graphics\test_image.bmp" > >IF USED("v_ImageTest") > USE IN v_ImageTest >ENDIF > >SELECT 0 >USE v_ImageTest > >FOR nRecord = 1 TO 1000 > > WAIT WINDOW "Adding record " + TRANSFORM(nRecord) + " of 1000" NOWAIT > > cImageName = SYS(2015) > > INSERT INTO v_ImageTest; > (ImageName); > VALUES; > (cImageName) > > APPEND MEMO ImageFile FROM &cImageFile OVERWRITE > >ENDFOR > >RETURN >>
>nHandle = SQLSTRINGCONNECT(cConnString) > >IF nHandle > -1 >SET STEP ON > nResult = SQLEXEC(nHandle, "select * from ImageTest", "Images") > > IF nResult > -1 > > cImageFile = STRTOFILE(Images.ImageFile, cDestDir + Images.ImageName + ".bmp") > > ELSE > ? "Error" > ENDIF > > SQLDISCONNECT(nHandle) > >ELSE > ? "Not connected" >ENDIF >>