您的位置：　首页 > 技术文章 > Access2007

设置 ADP 的连接

来源:原创 点击数:11408 　 | 收藏 | 复制

时　间:2009-06-04 00:52:30
作　者:朱亦文 ID：61 城市：岳阳
摘　要:当我们取消和断开了ADP的连接之后，下次启动ADP就应该连接数据库。
正　文:

当我们取消和断开了ADP的连接之后，下次启动ADP就应该连接数据库。

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

'* 设置当前ADP数据库连接                                    *

'*                                                          *

'* 作者: 朱亦文                                             *

'* 时间: 2009.06.02                                         *

'*                                                          *

'* 函数名: ConnectDB()                                      *

'* 目  的: 设置当前ADP数据库连接                            *

'* 返回值: True-成功                                        *

'*         False-失败                                       *

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

Public Function ConnectDB() As Boolean

On Error GoTo err_ConnectDB

    Dim dbSVR       As String

    Dim dbName      As String

    Dim dbUserID    As String

    Dim dbPassword  As String

    dbSVR = "(Local)\SQLExpress"    ' SQL Server 实例及连接端口，

                                    ' 如：192.168.1.11\SQLExpress,1433

    dbName = "jxc"                  ' 数据库名称

    dbUserID = "jxc"                ' 登录名

    dbPassword = "xYc_a0b7"         ' 登录密码

    Dim connStr As String

    connStr = "Provider=Microsoft.Access.OLEDB.10.0;"       ' ADP 提供者

    connStr = connStr & "Persist Security Info=False;"      ' ADP 连接不保存密码

    connStr = connStr & "Provider=SQLOLEDB.1;"              ' 数据提供者

    connStr = connStr & "Data Source=" & dbSVR & ";"        ' 数据源

    connStr = connStr & "Initial Catalog=" & dbName & ";"   ' 数据库

    connStr = connStr & "User ID=" & dbUserID & ";"         ' 登录名

    connStr = connStr & "Password=" & dbPassword            ' 登录密码

    CurrentProject.OpenConnection connStr                   ' 打开 ADP 连接

    ConnectDB = True

    Exit Function

err_ConnectDB:

    ConnectDB = False

    Err.Clear

    On Error GoTo 0

End Function