如何在VB中将图片存入数据库,并且从数据库读出显示到界面上

来源:百度知道 编辑:UC知道 时间:2024/07/07 01:06:57

数据库中表的字段有一种叫备注型或SQL Server好像有二进制类型的字段的,图片可采用二进制方式存取。
但建议您不要这么做
您可以讲文件的路径存入数据库,比较合适
然后用picturebox加载路径下的图片
要是图片不在本地,您可以使用异步加载的方式,读取远程图片

首先你没有说明是什么数据库
我先以access数据库为例:
数据库:
info表
name段,photo段(设置为ole对象)

Dim Constr As String 'ODBC路径
Dim Filename As String '图片文件名
Const BLOCKSIZE = 4096 '每次读写块的大小
Dim ADOCon As New ADODB.Connection 'ADODB Connection对象
Dim ADORst As New ADODB.Recordset 'ADODB Recordset对象
Dim ADOFld As ADODB.Field 'ADODB Field对象
Public Function SaveFileToDB(ByVal Filename As String, dbField As ADODB.Field, Optional PackageSize As Long = 8192&) As Long
On Error GoTo errHandle
Dim lngActualSize As Long, lngCurrentSize As Long
Dim bTemp() As Byte
Dim hFile As Long
Dim i As Integer
Dim lChunkCount As Long
Dim lChunkRemainder As Long
lngActualSize = FileLen(Filename)
lngCurrentSize = 0