如何用pb实现MS ACCESS数据库的图片字段存取

转载 2012年04月05日 16:20:35

如何用pb实现MSACCESS数据库的图片字段存取

(加入日期:2003-6-5)

保存文章至硬盘】【打印文章】【字体:

分享到: 0
Kukoc:给个例子:
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 + " 失败!", 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("信息", "保存图片信息成功!") 

相关文章推荐

将条形码功能纳入到数据库和应用程序的Access的条形码控件Native MS Access Barcode Generator

Native MS Access Barcode Generator是一个VBA模块,可以方便地嵌入到微软Access数据库中,用于在报表上创建条形码图像。一旦被安装到一个数据库中,创建条形码时就不需...

Java生成mdb文件[MS Access文件]

1. 在ClassPath下存一个空的blank.mdb. (也就是在你的项目中包含一个空白的.mdb文件) 2. 将项目中的blank.mdb另存到新的路径. (可能是用户选择要导出mdb文件的保存...
  • ycb1689
  • ycb1689
  • 2012年05月03日 09:57
  • 589

PB中数据库字段中存取图片的实例

最近有些网友问及在数据库的字段来存取图片,下面我将曾经做的一个实例放在下面,希望能给大家有帮助. 建一个表,表结构如下: id numberic 8,img_text varchar 20,pic...

Java生成mdb文件[MS Access文件](转载)

  1. 在ClassPath下存一个空的blank.mdb. (也就是在你的项目中包含一个空白的.mdb文件) 2. 将项目中的blank.mdb另存到新的路径. (可能是用户选择要...

WIN7 64位旗舰版安装OFFICE2003 提示:“错误1919,配置ODBC数据源MS Access Database时发生错误ODEC错误”

WIN7 64位旗舰版安装OFFICE2003 提示:“错误1919,配置ODBC数据源MS Access Database时发生错误ODEC错误” 在64位系统上,32位软件的注册表的信息...
  • Jarily
  • Jarily
  • 2014年04月01日 16:08
  • 9804
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何用pb实现MS ACCESS数据库的图片字段存取
举报原因:
原因补充:

(最多只允许输入30个字)