数据库中存取文件

'*************************************************************************

'**

'** 使用 ADODB.Stream 保存/读取文件到数据库

'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本

'**

'** ----- 数据库连接字符串模板 ---------------------------------------

'** ACCESS数据库

'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _

'**     ";Data Source=数据库名"

'**

'** SQL数据库

'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _

'**     "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"

'**

'*************************************************************************

'

'保存文件到数据库中

Sub s_SaveFile()

    Dim iStm As ADODB.Stream

    Dim iRe As ADODB.Recordset

    Dim iConcStr As String

    '数据库连接字符串

    iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _

        ";Data Source=F:/My Documents/客户资料1.mdb"

    '读取文件到内容

    Set iStm = New ADODB.Stream

    With iStm

        .Type = adTypeBinary    '二进制模式

        .Open

        .LoadFromFile "c:/test.doc"

    End With

    '打开保存文件的表

    Set iRe = New ADODB.Recordset

    With iRe

        .Open "表", iConc, adOpenKeyset, adLockOptimistic

        .AddNew         '新增一条记录

        .Fields("保存文件内容的字段") = iStm.Read

        .Update

    End With

    '完成后关闭对象

    iRe.Close

    iStm.Close

End Sub

'从数据库中读取数据,保存成文件

Sub s_ReadFile()

    Dim iStm As ADODB.Stream

    Dim iRe As ADODB.Recordset

    Dim iConc As String

    '数据库连接字符串

    iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _

        ";Data Source=//xz/c$/Inetpub/zj/zj/zj.mdb"

    '打开表

    Set iRe = New ADODB.Recordset

    iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly

    iRe.Filter = "id=64"

    '保存到文件

    Set iStm = New ADODB.Stream

    With iStm

        .Mode = adModeReadWrite

        .Type = adTypeBinary

        .Open

        .Write iRe("img")

        .SaveToFile "c:/test.doc"

    End With

    '关闭对象

    iRe.Close

    iStm.Close

End Sub