社区
VBA
帖子详情
ACCESS中保存的OLE图片显示在FORM中
farrio
2005-02-25 05:03:10
如题。现在有一个图片以OLE形式保存在ACCESS中间,如何能够通过程序把这个图片读取出来并且在FORM里面显示出来。比如PictureBox。
...全文
106
3
打赏
收藏
ACCESS中保存的OLE图片显示在FORM中
如题。现在有一个图片以OLE形式保存在ACCESS中间,如何能够通过程序把这个图片读取出来并且在FORM里面显示出来。比如PictureBox。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shiyunlong
2005-03-11
打赏
举报
回复
mark
junki
2005-02-25
打赏
举报
回复
试一试吧。。
myhgyp
2005-02-25
打赏
举报
回复
OnLine老大的示例:
使用流对象保存和显示图片
打开vb6,新建工程。
添加两个按钮,一个image控件
注意:Access中的photo字段类型为OLE对象.
SqlServer中的photo字段类型为Image
.
'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
‘2.5版本以下不支持Stream对象
Dim iConcstr As String
Dim iConc As ADODB.Connection
'保存文件到数据库中
Sub s_SaveFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
Dim iConcstr As String
'读取文件到内容
Set iStm = New ADODB.Stream
With iStm
.Type = adTypeBinary '二进制模式
.Open
.LoadFromFile App.Path + "\test.jpg"
End With
'打开保存文件的表
Set iRe = New ADODB.Recordset
With iRe
.Open "select * from img", iConc, 1, 3
.AddNew '新增一条记录
.Fields("photo") = iStm.Read
.Update
End With
'完成后关闭对象
iRe.Close
iStm.Close
End Sub
Sub s_ReadFile()
Dim iStm As ADODB.Stream
Dim iRe As ADODB.Recordset
'打开表
Set iRe = New ADODB.Recordset
‘得到最新添加的纪录
iRe.Open "select top 1 * from img order by id desc", iConc, adOpenKeyset, adLockReadOnly
'保存到文件
Set iStm = New ADODB.Stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary
.Open
.Write iRe("photo")
‘这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
.SaveToFile App.Path & "\test1.jpg"
End With
Image1.Picture = LoadPicture(App.Path & "\test1.jpg")
'关闭对象
iRe.Close
iStm.Close
End Sub
Private Sub Command1_Click()
Call s_ReadFile
End Sub
Private Sub Command2_Click()
Call s_SaveFile
End Sub
Private Sub Form_Load()
'数据库连接字符串
iConcstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
";Data Source=F:\csdn_vb\database\保存图片\access图片\img.mdb"
‘下面的语句是连接sqlserver数据库的.
‘iConcstr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
‘ "User ID=sa;Password=;Initial Catalog=test;Data Source=yang"
Set iConc = New ADODB.Connection
iConc.Open iConcstr
End Sub
Private Sub Form_Unload(Cancel As Integer)
iConc.Close
Set iConc = Nothing
End Sub
VB+
Access
实例:使用ADO连接
Access
数据库
VB+
Access
实例:使用ADO连接
Access
数据库。Private Sub
Form
_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.
OLE
DB.4.0;Data Source=" & App.Path & ...
VB NetData_Server 远程访问
ACCESS
控件及示例
1. 在
Form
_Load事件
中
加入: NetDataServer1.Start "Provider=Microsoft.Jet.
OLE
DB.4.0;Data Source=DATA.mdb;", "8080"(8080为端口号,可以随意修改成您需要的) 2. 在
Form
_Unload事件
中
加入: NetDataServer1....
轻松掌握C++数据库编程
随着数据库技术的广泛应用,在企业开发
中
,几乎90%的项目涉及数据库编程,数据库编程技术主要 使用ODBC API、ADO、ADO.NET、
OLE
DB等方法,要想成为一名编程大牛,那么使用C++进行数据库编程必须熟练掌握。...
asp.net
中
如何批量导出
access
某表内容到word文档
需要将表
中
每一条记录
中
的某些内容导出在一个word文档
中
,并将这些文档
保存
在指定文件夹目录下 二、界面,简单设计如下: 三、添加office相关引用 添加后可在解决方案资源管理器
中
看到: 四、添加
form
1
中
的引用...
Valiant Program
Begin VB.
Form
access
Caption = "
Form
1" ClientHeight = 3195 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "
Form
1" ScaleHeight = 3195 ScaleWidth = 4680 StartUpPosition = 3 '...
VBA
2,462
社区成员
10,807
社区内容
发帖
与我相关
我的任务
VBA
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
复制链接
扫一扫
分享
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章