VB多类图片数据库存取技巧
1、在窗体上建立IMAGE控件，名为IMAGE1。
2、用DATA控件得到数据源表。
3、建立“更改图片”按钮COMMAND1，其代码为:
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=DB1SQL1"
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。
VB程序中数据库的图片处理的解决方法
小型数据库我们常用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的流式传输，我想，一个临
时文件是免不了的。如果你能力强，可以寻求在内存中处理。 以上是我对数据库中的图片处理的一些看法，希望能对有需 要的网友有些帮助。 （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
