Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access2007

设置 ADP 的连接

时 间: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

我们可以在设计一个自动宏(Autoexec)在ADP打开时自动运行。

操 作 参 数
RunCode ConnectDB()

我们这里的SQLExpress是采用混合身份验证模式。



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助