Question

VB中,关于ACCESS数据库中加入图片及在窗体上显示图片

1.建立一个ACCESS数据库,字段:姓名,照片 请问下照片应该用什么类型储存到数据库中 2.在VB中,怎样连接上面建立的数据库,通过字段:姓名查找,然后在窗体中显示出相应的照片. 请问下这个代码应该怎么编写的啊?

Answer 1

用二进制存储。
用get函数获取图片的二进制信息并保存。

用ADODB.Stream对象从数据库读取数据并保存为图片文件。并在image控件加载显示。

追问

不好意思，还是个新手，可以在具体点么，主要是不知道该怎样编代码

追答

Sub ChangePictureData(PictureByteData() As Byte, PicturePath As String)
'使用方法：在调用此过程前，需提前定义好存放二进制数据的byte数组。
 Dim FileLength As Long '定义字节长度
 Dim SourceFile As Long '定义只读文件号
 
 SourceFile = FreeFile()
 Open Trim(PicturePath) For Binary Access Read As SourceFile
 FileLength = LOF(SourceFile)
  
 If FileLength = 0 Then
    Close SourceFile
 Else
    ReDim PictureByteData(FileLength)  '重新定义数据块的大小
    Get SourceFile, , PictureByteData()  '读到内存块中
    Close SourceFile '关闭源文件
 End If
End Sub

Sub ReadPictureData(RS As ADODB.Recordset, ColName As String, PicturePath As String, PictureName As String)
'说明：从数据库读取图片二进制数据、转换成图片文件并存储；返回存储路径
 Dim Stm As ADODB.Stream
 Set Stm = New ADODB.Stream
 Stm.Type = adTypeBinary
 Stm.Open
 Stm.Write RS.Fields(ColName).Value
 Stm.SaveToFile PicturePath & "\" & PictureName & ".jpg", adSaveCreateOverWrite
 Stm.Close
 Set Stm = Nothing

End Sub

 我自己的模块，你要自己改下才方便你自己用。

追问

嗯，这是在Visual Studio环境下的？

追答

不是的，VB6环境的。