'将图片存储为二进制文件,高分求教,为什么又这样的错误?
'将图片存储为二进制文件
Public Sub SubPicToDb(strDB As String, strField As String, strFileName As String)
Dim adoStream As New ADODB.Stream
'strDB:表名,strField:域名,strFileName:图片存储路径
On Error GoTo ErrToDB
Dim pRst As New ADODB.Recordset
'下面这句执行后直接跳到ErrToDB:,说from子句语法错误
'而strDB是我表的名字
pRst.Open strDB, gCon, adOpenForwardOnly, adLockPessimistic, adCmdTable
pRst.AddNew
adoStream.Type = adTypeBinary
adoStream.Open
adoStream.LoadFromFile strFileName
pRst(strField).AppendChunk adoStream.Read
pRst.Update
pRst.Close
adoStream.Close
Set adoStream = Nothing
Set pRst = Nothing
Exit Sub
ErrToDB:
MsgBox Err.Description, vbOKOnly + vbExclamation, "提示"
End Sub