如何把文件以二进制形式读进数据库？

Question

读进数据库并且保存。怎样读出这些然后写入一个新的文件然后保存。

Answer 1

引用 Microsoft ActiveX Data Objects 2.5Private Sub Command1_Click()
    Dim con As New ADODB.Connection     '打开数据库连接
    con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=project;Data Source=localhost"
    Dim rs As New ADODB.Recordset
    rs.Open "picup", con, adOpenDynamic, adLockOptimistic
    Dim stmpic As ADODB.Stream
    Dim strpictemp As String
    Set stmpic = New ADODB.Stream
    stmpic.Type = adTypeBinary    '指定流是二进制类型
    stmpic.Open                     '将数据获取到Stream对象中
    stmpic.LoadFromFile ("G:\besttime.bmp") '将选择的图像加载到打开的StmPic中
    rs.AddNew
    rs.Fields(0).Value = "demo"
    rs.Fields(1).Value = stmpic.Read   '从StmPic对象中读取数据
    rs.Update
    stmpic.Close
    MsgBox "Save OK!", , "OK"
    rs.Close
    con.Close
    Set rs = Nothing
    Set con = Nothing
End SubPrivate Sub Command2_Click()
    Dim con As New ADODB.Connection
    con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=project;Data Source=localhost"
    Dim rs As New ADODB.Recordset
    rs.Open "picup", con, adOpenDynamic, adLockOptimistic
    Dim stmpic As ADODB.Stream
    Set stmpic = New ADODB.Stream
    Dim strpictemp As String
    strpictemp = "c:\temp.tmp"    '临时文件,用来保存读出的图片
    With stmpic
        .Type = adTypeBinary
        .Open
        .Write rs.Fields(1)       '写入数据库中的数据至Stream中
        .SaveToFile strpictemp, adSaveCreateOverWrite  '将Stream中数据写入临时文件中
        .Close
    End With
    Image1.Picture = LoadPicture(strpictemp)  '用Picture控件显示图像
    rs.Close
    con.Close
    Set rs = Nothing
    Set con = NothingEnd Sub你看着写吧,我的是读图片的,你把文件改一下就可以了,接分

Answer 2

看看：
http://search.csdn.net/Expert/topic/274/274100.xml?temp=.5566065