'工程->引用->Microsoft ActiveX Data Objects 2.0 Library （后面为版本号）
'dlg 为CommonDialog控件
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
'保存图片
Private Sub cmdSave_Click()
On Error GoTo Errhandle
Dim s() As Byte
dlg.ShowOpen
Open dlg.FileName For Binary Access Read As #1
s = InputB(LOF(1), #1)
Close #1
rs.Open "select * from vbtest", cn, adOpenDynamic, adLockPessimistic
rs.AddNew
rs!Photo = s
rs.Update
rs.Close
Exit Sub
Errhandle:
MsgBox Err.Description
Resume Next
End Sub
'从数据库中读取图片，显示在PictureBox控件中
Private Sub cmdOpen_Click()
On Error GoTo Errhandle
Dim s() As Byte
rs.Open "select * from vbtest", cn, adOpenDynamic, adLockOptimistic
Open "d:\~image.tmp" For Binary Access Write As #1
s = rs!Photo
Put #1, , s
Close #1
Picture1.Picture = LoadPicture("d:\~image.tmp")
Kill "d:\~image.tmp"
rs.MoveNext
rs.Close
Exit Sub
Errhandle:
MsgBox Err.Description
Resume Next
End Sub