本文通過Kukoc:給的例子實現了在Access中存取圖片的方法：

SQLCA.AutoCommit = TRUE
//取文件長度
ll_flength = FileLength(ls_bmpname)
if IsNull(ll_flength) then ll_flength = -1
if ll_flength < 0 then
Messagebox("錯誤信息", "圖文件不存在！", Exclamation!)
return
end if
//打開文件
li_FileNum = FileOpen(ls_bmpname, StreamMode!, Read!)
if li_FileNum < 0 then
FileClose(li_FileNum)
Messagebox("錯誤信息", "打開圖文件 " + ls_bmpname + " 失?。?quot;, Exclamati
on!)
return
end if
//讀文件數據 ，大于32K要多次循環取
li_loopnum = ll_flength / 32765 + 1
for li_loop = 1 to li_loopnum
FileRead(li_FileNum, lbb_tmp)
lbb_bmp = lbb_bmp + lbb_tmp
next
//關閉文件
FileClose(li_FileNum)
//保存圖片信息到數據庫中
SELECT BMPID INTO :ll_tmp FROM TABLENAME WHERE BMPID = :li_id;
if sqlca.sqlcode = 100 then
INSERT INTO TABLENAME ( BMPID, BMPDATA ) VALUES ( :li_id, :lbb_bmp ) ;
end if
if sqlca.sqlcode <> 0 then
ls_msg = SQLCA.SQLErrText
ROLLBACK;
Messagebox("錯誤信息", "數據庫操作失敗！~r~n" + ls_msg, Exclamation!)
return
end if
UPDATEBLOB TABLENAME SET BMPDATA = :lbb_bmp WHERE BZID = :lizid;
ls_msg = SQLCA.SQLErrText
if ls_msg <> '' then
ROLLBACK;
Messagebox("錯誤信息", "保存圖片信息失?。r~n" + ls_msg, Exclamation!)
return
end if
COMMIT;
Messagebox("信息", "保存圖片信息成功！")