数据库学习:在数据库中存取文件

下一页 1 2 

　　   '*************************************************
  '**
  '** 使用 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

原文转自：http://www.ltesting.net