载入图片问题

Question

Sub save_picture(ByVal Mypicture As String)  'Mypicture 为图片文件的路径
Dim cnn As New ADODB.Connection
Dim rst1 As Recordset
  Dim bit() As Byte   Set rst1 = adoconnect3("db2.mdb", "表1", "*", "")  'rst1是你的记录集
    If Mypicture = "" Then
        '    然后将字节数组的内容写入数据库即可
            rst1.Fields("Picture") = ""
            rst1.UpdateBatch
       Else
            Open Mypicture For Binary As #1
            ReDim bit(LOF(1)) As Byte
            Get 1, 1, bit
            Close 1
         '    然后将字节数组的内容写入数据库即可
         rst1.AddNew
         rst1.Fields("Picture").AppendChunk bit
         rst1.UpdateBatch
       End If
    End Sub