【200分】access数据库.mdb查看长二进制图片

见如下部分代码，我已试过可以提取昌桥文件，也可自己编辑一下，实现循环取图等等！

提供一下excel文件下载网址，自己研究下吧！

Sub GetPic()

Dim adoCnn

Dim adoRs

Dim strSql As 耐纳猛String, strDataSource As String  '<==打开数据库用的字符串变量

Dim strImgFile As String '<==图像文件名字

Dim lngImgSize As Long  '<==数据库里的图像字节长度

Dim binImg() As Byte  '<==用来取图像的二进制文件

Set adoCnn = CreateObject("adodb.connection")

Set adoRs = CreateObject("adodb.recordset")

strDataSource = "DRIVER={Microsoft Access Driver (*.mdb)}DBQ=" & ThisWorkbook.Path & "\取出相片.mdb"

adoCnn.Open strDataSource

strSql = "Select * from 数据"

adoRs.Open strSql, adoCnn

'以上 ADO一般茄猜 *** 作 自已研究

strImgFile = ThisWorkbook.Path & "\temp.jpg" '临时图像文件起名为TEMP，喜欢什么随意

'应该注意的是，你这个数据，其实是JPG，应该起什么后缀，请试过以后再说

adoRs.MoveFirst   '<===从第一行记录开始，要全部遍历，请做MOVENEXT到EOF的循环

'下面只演示取第一个记录的图像

直接将图片存储到数据库 和 存路径的方法，我都在百度以下地址中回答过了，你直接去下列模手地址查看哦（这里就不必重复叙述了）：

1、直接存储禅码孝到数据库的方法：贺稿http://zhidao.baidu.com/question/226548457.html

2、保存路径到数据库的方法：http://zhidao.baidu.com/question/227597794.html

还有问题就继续问吧。

你想问的是 online 吗？ 你用se80进去，选择program，选迅型择screen后到screen painter里看看。不知道你说的是不是这个 。

如果说到表姿昌裤格之类呢，建议你自己做一个ALV 的一个共同的函数或者form。 这样呢，你以后可以在做报表的时候很省时间。只要用语句传些 相应的参数就 可以了。

ALV 的例子可以在 slis 的package 下，如果是4.6B以下 就是development class 下。

到迹简网上搜一下会有很多的例子的。 ：）

---