技巧

热门文章

最新文章

联系方式

Access交流网(免费Access交流）

QQ：18449932 

网  址：www.access-cn.com

DAO/链接表/ADO/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控制登录
发布人:朱亦文-网络  
分享到：
点击次数：  更新时间：2009-06-04 14:07:40  【打印此页】  【关闭】
上一条：Access窗体闪屏可能出现的几个问题及解决方法  下一条：设置 ADP 的连接


相关文章

热门文章

热门产品