设置 ADP 的连接
时间:2009-06-04 14:05 来源:网络 作者:朱亦文 阅读:次
当我们取消和断开了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是采用混合身份验证模式。
(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·用DAO或ADO正确访问Access 2000
- ·Access开发网络共享版技巧(多人同时操
- ·access中ADO与DAO格式的区别和写法【总
- ·access执行操作查询的几种方法对比
- ·Access中CurrentDb().Execute 和DoCmd.
- ·[源创技巧]在ACCESS中使用代码来自动创
- ·更新访问权限 (Jet) 数据库中的 40 多
- ·【实例】ADO代码计算余额法
- ·DAO实现的子窗体记录分页显示
- ·分别使用DAO和ADO连接外部数据库和Sql
- ·怎样判断一个表是否存在于数据库中? (D
- ·处理加了密码的MDB文件
- ·谈ADO访问不同数据库的差别
- ·DAO基础(4)
- ·DAO基础(3)
- ·DAO基础(2)
最新内容
推荐内容