在网上找了个存图片的函数,但不知道这个函数的参数是什么意思,大家帮忙看看,谢谢了.还有就是这个函数是怎么确定把图片存到数据库那么多记录中的某一条记录中的?
'存储图片信息
Public Function SaveImageToField(ByVal strImageFile As String, fldCol As Field) As Boolean
On Error GoTo ErrHand
Dim objStream As ADODB.Stream
Set objStream = New ADODB.Stream
objStream.type = adTypeBinary
objStream.Open
objStream.LoadFromFile strImageFile
fldCol.Value = objStream.Read
objStream.Close
Set objStream = Nothing
SaveImageToField = True
Exit Function
ErrHand:
MsgBox err.Description, vbInformation, "提示 "
'存储图片信息
Public Function SaveImageToField(ByVal strImageFile As String, fldCol As Field) As Boolean
On Error GoTo ErrHand
Dim objStream As ADODB.Stream
Set objStream = New ADODB.Stream
objStream.type = adTypeBinary
objStream.Open
objStream.LoadFromFile strImageFile
fldCol.Value = objStream.Read
objStream.Close
Set objStream = Nothing
SaveImageToField = True
Exit Function
ErrHand:
MsgBox err.Description, vbInformation, "提示 "
fldCol 存储图像的字段
这个操作,只保存到 recordset 的当前记录中的 那个字段