设置 ADP 的连接
时 间:2009-06-04 00:52:30
作 者:朱亦文 ID:61 城市:岳阳
摘 要:当我们取消和断开了ADP的连接之后,下次启动ADP就应该连接数据库。
正 文:
'************************************************************
'* 设置当前ADP数据库连接 *
'* *
'* 作者: 朱亦文 *
'* 时间: 2009.06.02 *
'* *
'* 函数名: ConnectDB() *
'* 目 的: 设置当前ADP数据库连接 *
'* 返回值: True-成功 *
'* False-失败 *
'************************************************************
Public Function ConnectDB() As Boolean
On Error GoTo err_ConnectDB
Dim dbSVR As String
Dim dbName As String
Dim dbUserID As String
Dim dbPassword As String
dbSVR = "(Local)\SQLExpress" ' SQL Server 实例及连接端口,
' 如:192.168.1.11\SQLExpress,1433
dbName = "jxc" ' 数据库名称
dbUserID = "jxc" ' 登录名
dbPassword = "xYc_a0b7" ' 登录密码
Dim connStr As String
connStr = "Provider=Microsoft.Access.OLEDB.10.0;" ' ADP 提供者
connStr = connStr & "Persist Security Info=False;" ' ADP 连接不保存密码
connStr = connStr & "Provider=SQLOLEDB.1;" ' 数据提供者
connStr = connStr & "Data Source=" & dbSVR & ";" ' 数据源
connStr = connStr & "Initial Catalog=" & dbName & ";" ' 数据库
connStr = connStr & "User ID=" & dbUserID & ";" ' 登录名
connStr = connStr & "Password=" & dbPassword ' 登录密码
CurrentProject.OpenConnection connStr ' 打开 ADP 连接
ConnectDB = True
Exit Function
err_ConnectDB:
ConnectDB = False
Err.Clear
On Error GoTo 0
End Function
'* 设置当前ADP数据库连接 *
'* *
'* 作者: 朱亦文 *
'* 时间: 2009.06.02 *
'* *
'* 函数名: ConnectDB() *
'* 目 的: 设置当前ADP数据库连接 *
'* 返回值: True-成功 *
'* False-失败 *
'************************************************************
Public Function ConnectDB() As Boolean
On Error GoTo err_ConnectDB
Dim dbSVR As String
Dim dbName As String
Dim dbUserID As String
Dim dbPassword As String
dbSVR = "(Local)\SQLExpress" ' SQL Server 实例及连接端口,
' 如:192.168.1.11\SQLExpress,1433
dbName = "jxc" ' 数据库名称
dbUserID = "jxc" ' 登录名
dbPassword = "xYc_a0b7" ' 登录密码
Dim connStr As String
connStr = "Provider=Microsoft.Access.OLEDB.10.0;" ' ADP 提供者
connStr = connStr & "Persist Security Info=False;" ' ADP 连接不保存密码
connStr = connStr & "Provider=SQLOLEDB.1;" ' 数据提供者
connStr = connStr & "Data Source=" & dbSVR & ";" ' 数据源
connStr = connStr & "Initial Catalog=" & dbName & ";" ' 数据库
connStr = connStr & "User ID=" & dbUserID & ";" ' 登录名
connStr = connStr & "Password=" & dbPassword ' 登录密码
CurrentProject.OpenConnection connStr ' 打开 ADP 连接
ConnectDB = True
Exit Function
err_ConnectDB:
ConnectDB = False
Err.Clear
On Error GoTo 0
End Function
我们可以在设计一个自动宏(Autoexec)在ADP打开时自动运行。
操 作 | 参 数 |
---|---|
RunCode | ConnectDB() |
注:我们这里的SQLExpress是采用混合身份验证模式。
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)