请大家给我段代码(难倒CSDN就没有高手了吗)

Question

要求:
   1、用通用对话框选择一个文件,并可以保存到二进制字段的Access数据库
   2、把Access中二进制字段的文件重新保存到硬盘中..               
                 千言万语都不能表达我对大家的谢意 

Answer 1

Private Sub Command3_Click()
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"
conn.Execute "create table a (b longbinary)"
End SubPrivate Sub Command4_Click()
    Dim b As New ADODB.Recordset
    Dim c As New ADODB.Stream
    c.Mode = adModeReadWrite
    c.Type = adTypeBinary
    c.Open
    c.LoadFromFile "c:\1.bmp"
    b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False", adOpenDynamic, adLockOptimistic
    b.AddNew
    
    b.Fields.Item(0).Value = c.Read()
    b.Update
    b.Close
    
    Set b = New ADODB.Recordset
    b.Open "select * from a", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False", adOpenKeyset, adLockOptimistic
    b.MoveLast
    c.Write (b.Fields.Item(0).Value)
    c.SaveToFile "c:\aa.bmp", adSaveCreateOverWrite
    Picture1.Picture = LoadPicture("c:\aa.bmp")
End Sub