SQLCA.AutoCommit = TRUE
//取文件长度
ll_flength = FileLength(ls_bmpname)
IsNull(ll_flength) then ll_flength = -1 ll_flength < 0 then Messagebox("
信息", "图文件不存在！", Exclamation!) 
end
//打开文件
li_FileNum = FileOpen(ls_bmpname, StreamMode!, Read!)
li_FileNum < 0 then FileClose(li_FileNum)
Messagebox("
信息", "打开图文件 " + ls_bmpname + " 失败！", Exclamati on!)
end
//读文件数据
大于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;
sqlca.sqlcode = 100 then INSERT INTO TABLENAME ( BMPID, BMPDATA ) VALUES ( :li_id, :lbb_bmp ) ;
end
sqlca.sqlcode <> 0 then ls_msg = SQLCA.SQLErrText
ROLLBACK;
Messagebox("
信息", "数据库操作失败！~r~n" + ls_msg, Exclamation!) end
UPDATEBLOB TABLENAME SET BMPDATA = :lbb_bmp WHERE BZID = :lizid;
ls_msg = SQLCA.SQLErrText
ls_msg <> '' then ROLLBACK;
Messagebox("
信息", "保存图片信息失败！~r~n" + ls_msg, Exclamation!) end
COMMIT;
Messagebox("信息", "保存图片信息成功！")
最新评论