使用asp实现的数据库中存取文件的代码

发布时间：2023-09-12 14:33:14 所属栏目：Asp教程来源：

导读：*************************************************************************

'**

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

'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及

*************************************************************************

'**

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

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!