保存在数据库中:
'该函数保存图片。
'参数1=保存的数据表名。参数2=主键,参数3=文件名
Public Function SavePicture(ByVal vTableName As String, ByVal vid As String, ByVal vFileName As String) As Boolean
Dim iStrm As New ADODB.Stream
Dim iRs As New ADODB.Recordset
Dim Con As New ADODB.Connection
'连接数据源
Con.Open "dsn=image"
'读取文件到数据流
With iStrm
.Type = adTypeBinary
.Open
.LoadFromFile vFileName
End With
'存到数据库中
Dim Sqlstring As String
Sqlstring = "select * from " & vTableName & ";"
iRs.Open Sqlstring, Con, adOpenKeyset, adLockOptimistic
With iRs
.AddNew
.Fields("id") = vid
.Fields("photo") = iStrm.Read
.Update
End With
Set iStrm = Nothing
Set iRs = Nothing
Set Con = Nothing