当我们取消和断开了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
我们可以在设计一个自动宏（Autoexec）在ADP打开时自动运行。
| 操 作 |
参 数 |
| RunCode |
ConnectDB() |
注：
我们这里的SQLExpress是采用混合身份验证模式。
