VB/VBA中实现数据库中的文件存取

' VB/VBA中实现数据库中的文件存取

' 示例数据库为ACCESS数据库,用SQL数据库的话,只需要改连接字符串
'
' *************************************************************************
' **
' ** 使用 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
    
     ' ACCESS数据库的连接字符串
    iConcStr  =   " Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False "   &  _
         " ;Data Source=F:My Documents客户资料1.mdb "
    
     ' SQL数据库的连接字符串
    iConcStr  =   " Provider=SQLOLEDB.1;Persist Security Info=True; "   &  _
         " User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名 "
     ' 读取文件到内容
     Set  iStm  =   New  ADODB.Stream
     With  iStm
        .Type  =  adTypeBinary     ' 二进制模式,如果是用text/ntext字段保存纯文本数据,则改用 adTypeText
        .Open
        .LoadFromFile  " c: est.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=/xzc$Inetpubzjzjzj.mdb "
    
     ' 打开表
     Set  iRe  =   New  ADODB.Recordset
    iRe.Open  " tb_img " , iConc, adOpenKeyset, adLockReadOnly
    iRe.Filter  =   " id=64 "

     if  iRe( " img " ).ActualSize > 0   Then

         ' 保存到文件
         Set  iStm  =   New  ADODB.Stream
         With  iStm
            .Mode  =  adModeReadWrite
            .Type  =  adTypeBinary  ' 二进制模式,如果是用text/ntext字段保存纯文本数据,则改用 adTypeText
            .Open
            .Write iRe( " img " )
            .SaveToFile  " c: est.doc "
         End   With
    
         ' 关闭对象
        iStm.Close
     End   If

    iRe.Close
End Sub