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源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
学习心得
最新文章
- 获取文件修改日期的函数(10.18)
- Access快速开发平台--lis...(10.17)
- Access快速开发平台--普通用...(10.14)
- 【Access源码示例】VBA代码...(10.12)
- Access累乘示例,Access...(10.09)
- 数值8.88,把整数8去掉,转化成...(10.08)
- 用ACCESS开发的销售数据分析软...(10.06)
- 【中秋及国庆优惠】Access培训...(10.05)
- 2024欢度国庆--庆祝国庆华诞7...(10.01)
- 【Access自定义函数】一个繁简...(09.30)