【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一般操作 自已研究