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

ADP 启动分析

时 间:2009-06-04 00:48:57
作 者:朱亦文   ID:61  城市:岳阳
摘 要:ADP 启动
正 文:

ADP 启动
检查是否有数据库连接字符,BaseConnectionString。
  • 有,试图连接数据库,成功,设置ADP的连接状态,执行ADP的自动宏和启动设置;失败,提示连接数据库,如果取消连接,则ADP保持断开状态。

  • 无,执行ADP的自动宏和启动窗体,保持断开状态。

ADP 通常保存数据库连接字符串BaseConnectionString,以备每次启动时自动连接。如果,没有保存密码,每次启动都会提示输入密码。但是如果保存了密码,又带了不安全因素,比如,利用导入功能,可以从这个ADP将数据导入到其它数据库。
为了避免,上述的情况发生,最好的办法就是在ADP退出时不保存BaseConnectionString。当然,运行时的连接也不要保存密码。

'************************************************************
'* 断开当前数据库连接                                       *
'*                                                          *
'* 作  者: 朱亦文                                           *
'* 时  间: 2009.06.02                                       *
'*                                                          *
'* 函数名: DisconnectDB()                                   *
'* 目  的: 断开当前数据库连接                               *
'* 返回值: True-成功                                        *
'*         False-失败                                       *
'************************************************************
Public Function DisconnectDB() As Boolean
On Error GoTo err_DisconnectDB
    With CurrentProject
        .CloseConnection                ' 断开连接
        .OpenConnection "Provider=;"    ' 清空连接
    End With
   
    DisconnectDB = True
    Exit Function
   
err_DisconnectDB:
    DisconnectDB = False
    Err.Clear
    On Error GoTo 0
End Function

在退出ADP之前,直接运行这个函数,或者通过一个宏RunCode调用这个函数,可以关闭ADP的数据库连接以及清空ADP的BaseConnectionString。那么下一次这个ADP启动时就会是断开数据库连接的,当然也没有提示数据库连接的对话框,以及密码提示,而直接执行ADP中的自动宏或者启动窗体。

如果ADP启动时要连接数据库,可以在自动宏或者启动窗体中实现。这样就实现了ADP控制登录。


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

常见问答:

技术分类:

相关资源:

专栏作家

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