Question

VB中把图片存入数据库,并从中取出图片显示出来!急!!

这是网上存入图片的代码:Dim appa As String, appb As String
Dim i As Integer, j As Integer
CommonDialog1.ShowOpen
appa = CommonDialog1.FileName
For i = Len(appa) To 1 Step -1
If Mid(appa, i, 1) <> "\" Then
j = j + 1
Else
strimage = Mid(appa, Len(appa) - j + 1, j)
Exit For
End If
Next i
If appa <> "" Then
appb = CommonDialog1.FileTitle '文件名称
FileCopy appa, App.Path & "\Picture" & strimage
Picture1.Picture = LoadPicture(App.Path & "\Picture\" & strimage)
End If
各位可以为我解释一下这些是什么意思吗?在每句代码后面加上注释即可!
那把图片显示出来又应该怎么编码呢?
非常感谢!

Answer 1

这只是将路径存到数据库而已。
要将图片存到数据库先将图片转换成二进制流。这样就和存取数据的操作是一样的了。将图片取出来你可以将它输出为一个文件或者用一个网页等支持浏览的工具（如JSP）显示。