ADP 启动分析
时 间:2009-06-04 00:48:57
作 者:朱亦文 ID:61 城市:岳阳
摘 要:ADP 启动
正 文:
检查是否有数据库连接字符,BaseConnectionString。
- 有,试图连接数据库,成功,设置ADP的连接状态,执行ADP的自动宏和启动设置;失败,提示连接数据库,如果取消连接,则ADP保持断开状态。
- 无,执行ADP的自动宏和启动窗体,保持断开状态。
ADP 通常保存数据库连接字符串BaseConnectionString,以备每次启动时自动连接。如果,没有保存密码,每次启动都会提示输入密码。但是如果保存了密码,又带了不安全因素,比如,利用导入功能,可以从这个ADP将数据导入到其它数据库。
为了避免,上述的情况发生,最好的办法就是在ADP退出时不保存BaseConnectionString。当然,运行时的连接也不要保存密码。
为了避免,上述的情况发生,最好的办法就是在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
'* 断开当前数据库连接 *
'* *
'* 作 者: 朱亦文 *
'* 时 间: 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控制登录。
如果ADP启动时要连接数据库,可以在自动宏或者启动窗体中实现。这样就实现了ADP控制登录。
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)