刚刚把图片写入ACCESS中 搞定、现在在线等 IMAGE 显示ACCESS中的 二进制的图片。。急急急On Error GoTo sir_suspect
Dim search As String
search = InputBox("请输入图片ID")
Set rs = New ADODB.Recordset
rs.Open "Select * from 表1 where 名称 '" & search & "'", cn, 1, 2
Set Image1.DataSource = rs
Image1.DataField = "图片" Exit Sub
sir_suspect:
MsgBox "没有找到相关记录.", vbExclamation
什么地方错了 点击按钮就提示 “没有找到相关记录”access 创建- 图片保存 -表1 - 名称 和图片两列。。
Dim search As String
search = InputBox("请输入图片ID")
Set rs = New ADODB.Recordset
rs.Open "Select * from 表1 where 名称 '" & search & "'", cn, 1, 2
Set Image1.DataSource = rs
Image1.DataField = "图片" Exit Sub
sir_suspect:
MsgBox "没有找到相关记录.", vbExclamation
什么地方错了 点击按钮就提示 “没有找到相关记录”access 创建- 图片保存 -表1 - 名称 和图片两列。。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货