1、在窗体上建立IMAGE控件,名为IMAGE1。
2、用DATA控件得到数据源表。
Private SubCommand1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "文件bmp*.bmp 文件JPG*.JPG 文件GIF*.GIF"
CommonDialog1.ShowOpen
Dim a As String
a = CommonDialog1.FileTitle 注释:得到不含路径文件名
If a <> "" Then
Image11.Picture = LoadPicture(App.Path & "\bmp\"& a)
注释:\bmp\是我用于存取图片的本系统文件夹下的一个子文件夹。
Data1.Recordset.Edit
Data1.Recordset.Fields("tp") = a 注释:TP是存取图片名称的字段。
Data1.Recordset.Update
End If
End Sub
如果只是表情图片,没必要写入数据库。存到服务器硬盘上就行了。
如果非要存入数据库,可以转换成二进制字节流再写入数据库。
发贴时图片是如何显示的,直接看一下页面的源文件就知道了。
你把它们的名字和路径存到数据库中!再从数据库中读取它的路径和名不可以吗?
已用Access建立好数据库,存放图片的字段采用"OLE对象",现在的问题是如何在程序中将图片存入该字段。
'将图片存入数据库
'首先将文件读入一字节数组
' Dim bit() As Byte
' Open "C:\WINDOWS\安装程序.bmp" For Binary As #1
' ReDim bit(LOF(1)) As Byte
' Get 1,1,bit
' Close 1
'然后将字节数组的内容写入数据库即可
Dim cnn As New ADODB.Connection,rst As New ADODB.Recordset
cnn.Open "Provider=sqlOLEDB.1;Password=test;Persist Security Info=True;User ID=test;Initial Catalog=pubs;Data Source=DB1\sql1"
rst.Open "T1",cnn,adOpenKeyset,adLockOptimistic
rst.AddNew
rst("F1").AppendChunk bit
rst.Update
'将数据库中的图片读出
'首先将数据库中的内容读到一字节数组
Dim bit1() As Byte
bit1 = rst("F1").GetChunk(rst("F1").ActualSize)
'然后将字节数组的内容拼装成文件即可
Open "c:\1.bmp" For Binary As #1
Put 1,bit1
Close 1
' Me.Picture = LoadPicture("c:\1.bmp")
将图片直接存入Access数据库适用于图片较少的情况,因为Access数据库文件不能超过100M,当图片较多时,宜采用只将图片路径存入数据库的方法。
其实有一个好方法:在数据库中存取图片的路径。存取图片不也是在硬盘上么?。。。
取出路径再根据路径找图片。。。
在Access中BMP图像存成OLE对象,请问如何将其打开成(StdPicture
在窗体上建一个IMAGE和DATA控件,将DATA控件的DATABASENAME属性设为数据库名,RECORDSOURE属性设为表名。将IMAGE控件的DATASOURE设为DATA,RECORDSOURE设为
STDPICTURE。
小型数据库我们常用ACCESS。在ACCESS中,备注数据类型可
以存储最多为65,535 个字符,而OLE对象数据类型可以存储最多
1 G 字节的链接或嵌入的对象(例如Microsoft Excel电子表格
、Microsoft Word文档、图形、声音或其他二进制数据)。
因为图片的大小常超出备注数据类型的限制,且用OLE类型更
方便,下面叙述一种在VB程序中处理ACCESS数据库中图片处理的
办法。
在该方法中,我们要利用ACCESS数据库中的OLE数据类型存储
图片,在VB程序中用OLE控件处理图片。
由于OLE对象不能支持ADO和OLEDB,我们要用DAO来连接数据
。
首先,在ACCESS数据库的表中,增加一个OLE对象数据类型的
列,用来存储图片。
其次,在VB程序中,添加一个Data控件,设置必要的属性,
建立数据库连接。当然,可以用代码实现,只是比较麻烦,有挑
战性,但更灵活。
在VB程序中添加一个OLE控件,出现插入对象对话框,选择新
建画笔图片或图像文档、位图图像等等反正能处理图像的OLE类型
。在此,我们选择新建画笔图片。
设置OLE控件的DataSource属性为Data控件,datafield属性
为数据库表的OLE类型列的名字。
就这么简单,我们可以试着运行它。
我们可以右键单击运行中的VB程序的OLE控件,出现编辑和打
开快捷菜单。选择编辑将会在窗口中嵌入画图程序的菜单;选择
打开将调用画图程序来打开图片。这样,我们就可以很方便地编
辑图片了。我们可以双击OLE控件,这样相当于选择编辑快捷菜单
。
以上方法我在VB6+ACCESS 2000中测试通过。其实,只要我们
理解Windows的OLE技术,以上方法是很容易理解的。
那么,如果在不支持OLE类型的大型数据库中,如Oracle、
Microsoft sql Server中,如何来处理图片呢。
在大型数据库中,我们可以用BLOB或CLOB类型来存储图片。
因为图片数据是二进制的,用BLOB类型更好。
我们把图片文件的内容整个当作一个BLOB字段,读入数据库
中。
我们要在客户程序中处理图片时,将数据库中的BLOB字段读
出,写入到一个临时文件中,再调用外部程序打开该临时文件,
处理完后更新数据库,最后删除临时文件。
由于数据库不支持象Real Movie的流式传输,我想,一个临
时文件是免不了的。如果你能力强,可以寻求在内存中处理。 以上是我对数据库中的图片处理的一些看法,希望能对有需 要的网友有些帮助。