-
' 将图片保存到数据库中
Const TEMPIMAGEFILE = "TempImage"
Dim cnnImage As New ADODB.Connection ' 数据库对象
Dim rsImage As New ADODB.Recordset ' 记录集对象
Dim strSql As String
Dim Chunk() As Byte ' 保存图像数据
Dim AppPath As String ' 工程路径
Dim lImageLengh As Long ' 图像数据长度
' 将图像文件保存到数据库中
Private Sub SaveImageToDatabase(sFilename As String)
'** 以二进制方式打开文件
Open sFilename For Binary Access Read As #1
lImageLengh = LOF(1) ' 获得文件大小
'** 将文件内容存入字节数组
ReDim Chunk(lImageLengh)
Get #1, , Chunk()
Close #1
'** 新添加一个记录
rsImage.AddNew
rsImage.Fields("Image").AppendChunk Chunk()
rsImage.Update
'** 如果是向空库中加入第一条记录, 则没有此语句程序会出错。
If rsImage.RecordCount = 1 Then
rsImage.MoveFirst
Call ShowPic
End If
End Sub
' 显示数据库中的图片
Private Sub ShowPic()
Dim picPicture As StdPicture
'** 确定图像字段大小, 定义一个用来保存它的数组
lImageLengh = rsImage.Fields("Image").ActualSize
ReDim Chunk(lImageLengh - 1)
'** 将图像字段信息存入数组
Chunk() = rsImage.Fields("Image").GetChunk(lImageLengh)
'** 将数组写入临时文件
Open AppPath & TEMPIMAGEFILE For Binary Access Write As #1
Put #1, , Chunk()
Close #1
'** 显示图像
Set picPicture = LoadPicture(AppPath & TEMPIMAGEFILE)
PictureToCenter picPicture, picBox
End Sub
将图片保存到数据库中
最新推荐文章于 2022-10-15 14:20:44 发布