求一段将图片保存到数据库中的代码
如题

[解决办法]
举个例子(使用access数据库)，数据库文件名test.mdb，里面建个表personinfo，一个数值型字段id，一个ole对象型字段pic；界面放2个按钮，一个imagebox：

VB code

Option ExplicitPrivate glbConn As ADODB.ConnectionPrivate mStream As New ADODB.StreamPrivate adoRs As ADODB.RecordsetPrivate Sub Command2_Click()    '从数据库提取图片    Dim SQL As String    SQL = "select * from personinfo where id=101"    Set adoRs = New ADODB.Recordset    adoRs.Open SQL, glbConn, adOpenKeyset, adLockOptimistic    mStream.Type = adTypeBinary    mStream.Open    mStream.Write adoRs.Fields("pic").Value    mStream.SaveToFile App.Path & "\tmp.jpg", adSaveCreateOverWrite    mStream.Close    Set Image1.Picture = LoadPicture(App.Path & "\tmp.jpg")            adoRs.Update    adoRs.CloseEnd Sub''Private Sub Form_Unload(Cancel As Integer)'    If mStream.State <> adStateClosed Then mStream.Close'    Set mStream = Nothing'End Sub'Option ExplicitPrivate Sub Command1_Click()    '保存图片到数据库    Dim SQL As String    SQL = "select * from personinfo where id=101"    Set adoRs = New ADODB.Recordset    adoRs.Open SQL, glbConn, adOpenKeyset, adLockOptimistic    mStream.Type = adTypeBinary    mStream.Open    mStream.LoadFromFile App.Path & "\test.jpg"    adoRs.Fields("pic").Value = mStream.Read    mStream.Close           adoRs.Update    adoRs.CloseEnd SubPrivate Sub Form_Load()    Set glbConn = New ADODB.Connection    glbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _        "\test.mdb;Persist Security Info=False"    glbConn.CommandTimeout = 30    glbConn.CursorLocation = adUseClient    glbConn.OpenEnd SubPrivate Sub Form_Unload(Cancel As Integer)    If adoRs.State <> adStateClosed Then adoRs.Close    If mStream.State <> adStateClosed Then mStream.Close    If glbConn.State <> adStateClosed Then glbConn.Close    Set mStream = Nothing    Set adoRs = Nothing    Set glbConn = NothingEnd Sub