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

ADP 启动分析

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

时　间: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源码网店

【打印此文】【关闭窗口】