在网上看了很多教程，VBA怎么把图片通过ACCESS数据库的OLE对象传到数据库。结果全是其他语言写的。我今天用VBA 实现一下以下功能：代码前需引用  Microsoft Activex Data Objects x.x 库

1，把图片保存到ACCESS（通过OLE对象）

Sub 保存图片到ACCESS数据库()
'头像那列数据库类型为OLE对象
Dim con As New ADODB.Connection '
Dim command As New ADODB.command

With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = "d:\cs.accdb"
.Open
End With
Dim b() As Byte
Open "d:\b.jpg" For Binary As #1
x = LOF(1)
ReDim i(1 To x)
Get #1, , b
Close #1
command.ActiveConnection = con
command.CommandType = adCmdText
command.CommandText = "insert into 表1(头像) values(@头像)"
command.Parameters.Append command.CreateParameter("@头像", adBinary, , x, b)
command.Execute
con.Close
Set con = Nothing
End Sub

2,把ACCESS数据库中的图片保存到本地硬盘。

Sub 保存图片到本地()

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim b() As Byte
With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = "d:\cs.accdb"
.Open
End With
Set rs = con.Execute("select * from 表1 where id=7")
b = rs.Fields("头像")
Open "d:\头像.jpg" For Binary As #1
Put #1, , b
Close #1
con.Close
Set con = Nothing
End Sub

For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Select Name = Range(ActiveSheet.Shapes(i).TopLeftCell.Address).Of... 'On Error Resume Next '// 发生错误，自动执行下一句，就是忽略错误 Application.ScreenUpdating = False '//关闭屏幕刷新 Application.DisplayAlerts = False '//关闭系统提示 t = Timer '//开始时间 For Eac... 2、窗体中设立3个命令按钮、一个标签、2个Image按钮 二、特征和功能 源代码中有 数据库 、记录集的打开、引用、关闭，有如何调用 文件 打开对话框，如何 获取 文件 名、 数据库 所在目录路径的 文件 操作方法，如何 获取 最大记录数和当前记录指针，如何增加修改 数据库 记录，如何将 图片 存入 数据库 以及从库中读取并显示，如何 实现 数据窗体的不同显示方式以及如何应用，如何在状态栏中显示信息等。 源代码以文本 文件 保存 ，按上述要求建好窗体，将代码复制入 VBA ，双击数据窗体即可使用。在 ACCESS 2003中运行测试通过。 我见过许多代码，在从 ACCESS 数据库 读取图像数据后，往往需要借助一个临时 文件 进行转换才能显示，其实借助API，完全可以直接显示，而不需要临时 文件 ，此外，大家还可以使用 Ole CreatePictureIndirect函数转图像数据转换成标准的IPicture接口，以 实现 VB图像显示的自动性和持续性，具体代码如下： * *************************** 2.读取指定sheet表在 文件 夹中的相应 图片 。在网上查找了很多相关方法，都没有针对 图片 顺序做处理的，只是单纯的提取 图片 ，为了满足我的需求，通过xml 文件 中 图片 的末尾行排序来 获取 图片 顺序，进而可以按序命名并存入 数据库 。这里 图片 只能针对PNG 图片 ，在处理数据时发现其他类型 图片 在解压后的xml 文件 中有关顺序的xml 文件 组成不符合处理需求。（这里涉及到xml 文件 内容提取问题） ...... 大家好，我们继续讲解 VBA 数据库 解决方案，今日讲解第43讲内容：如何向 数据库 中增加 图片 。这讲的内容我们要把 图片 存储入 数据库 中，把 图片 作为数据来处理。这讲的内容非常适合人事管理及一些 图片 必要管理的场合。我们看下面的 数据库 ：现在我们要把备注单元格中作为 图片 管理，也就是说要把和对应员工编号的必要的 图片 放在F列的"备注"字段中，这个时候该如何处理呢？我们先打开我们的 数据库 ：修改备注的字段为 OLE 对象 ，这时... 'Upload File to the specific folderSub UploadImages(s$, c$)'s$ Buttom number'c$ Specify a location to show image'souf$ The local path of the image file'des$ The dest path of the image f... Asp调用存储过程,command.CreateParameter 参数值的类型说明 Asp调用各种存储过程，包括带参数，无参数，输入输出参数，带返回值等。 1，调用没有参数的存储过程 set conn=server.CreateObject(“adodb.connection”) set cmd=server.CreateObject(“adodb.command”) strconn... i am trying to use parameterized queries with ADO. Executing the Command object throws the error:Must declare the variable '@filename'i declare the parameter @filename using CreateParameter/Append:sql...