请问：如何在ADP启动时,使用VBA代码判定数据库连接是否有效并重新设定数据库连接

zhuyiwen

请问：如何在ADP启动时,使用VBA代码判定数据库连接是否有效并重新设定数据库连接?


本贴总结答案：

在应用程序结束时，使用 MakeADPConnectionless 清除ADP连接，在程序启动就不会再出现提示连接的对话框，使用 CurrentProject.IsConnected 判定 ADP 是否连接，如果未连接，使用 sCreateConnection 创建新的连接字符串，使用 CurrentProject.OpenConnection 连接。

作者：大熊

Sub MakeADPConnectionless()    Application.CurrentProject.CloseConnection '关闭连接    Application.CurrentProject.OpenConnection '将连接设置为无 End Sub

附：在ADP项目中创建ADP的数据库的默认连接的代码

Public Function sCreateConnection(sSvrName As String, sUID As String, sPWD As String, sDatabase As String) As String '******************************************************************** '该函数在ADP中检查连接，如果没有，它将通过输入参数创建一个连接 ' '输入: '   sSvrName    数据库服务器名 '   sUID        用户名 '   sPWD        口令 '   sDatabase   MSDE数据库名 ' '输出: '   连接状态 ' '********************************************************************     On Error GoTo sCreateConnectionTrap:         If Application.CurrentProject.BaseC Then         '表示 ADP 处于无连接状态         sConnectionString = & _                         "PROVIDER=SQLOLEDB.1; " & _                         "PASSWORD=" & sPWD & ";" & _                         "PERSIST SECURITY INFO=TRUE; USER ID=" & sUID & "; "  & _                         "INITIAL CATALOG=" & sDatabase & ";" & _                         "DATA SOURCE=" & sSvrName         Application.CurrentProject.OpenConnection sConnectionString         sCreateC & sDatabase & " 数据库的连接!"     Else '连接已存在         sCreateC & sDatabase & " 数据库的连接!"     End If         sCreateConnectionExit: Exit Function sCreateConnectionTrap:     sCreateConnection = Err.Description     Resume sCreateConnectionExit End Function

(ADP-相关文章技巧链接)：
Access 在ADP启动时,使用VBA代码判定数据库连接是否有效并重新设定数据库连接

zhuyiwen

我是这样做的：在启动窗口的 Form_Load事件中写如下代码

Private Sub Form_Load()
    Dim bb As Boolean
    bb = ChkConnect()
End Sub

Public Function ChkConnect() As Boolean
    Dim strSQL As String
   
    If Not CurrentProject.IsConnected Then
        MsgBox "请连接数据库！"
        ChkConnect = False
        DoCmd.RunCommand acCmdConnection
    Else
        ChkConnect = True
    End If
End Function

这样出现一系统的数据库连接对话框，总感觉不是太理想，是否有更好的办法？

zhuyiwen

你是说更改
CurrentProject.Connection.ConnectString
对吗？
我试过，这样不行，报错！

[此贴子已经被作者于2002-3-24 16:42:51编辑过]

zhuyiwen

对不起，这是前些日子测试的，现在没代码。
当时，不管是直接修改，还断开以后修改，或者创建新的连接再指定到CurrentProject.Connection 都报错

zhuyiwen

楼上兄弟说得好！确实是太复杂，难得看，所以才发问

zhuyiwen

以下是引用liujunqun在2002-3-27 17:18:03的发言：
我用过字符串指明数据库源和用户名等等连接数据库服务器，没有用DSN，不用配置客户端或ODBC，那样太麻烦。如果报错就调用系统链接窗体重新设置。

是否能将代码贴出来供大家学习？

在ADP中，有一个默认的ADO数据库连接，即：CurrentProject.Connection，也就是说如何改变这个连接。用ADO很容易新建连接，关键是改变默认连接。

[此贴子已经被zhuyiwen于2002-3-28 2:42:13编辑过]

zhuyiwen

这是微软MSDN中，在ADP项目中创建ADP的数据库的默认连接的代码

Public Function sCreateConnection(sSvrName As String, sUID As String, sPWD As String, sDatabase As String) As String
'********************************************************************
'该函数在ADP中检查连接，如果没有，它将通过输入参数创建一个连接
'
'输入:
'   sSvrName    数据库服务器名
'   sUID        用户名
'   sPWD        口令
'   sDatabase   MSDE数据库名
'
'输出:
'   连接状态
'
'********************************************************************

    On Error GoTo sCreateConnectionTrap:
   
    If Application.CurrentProject.BaseC Then
        '表示ADP处于无连接状态
        sC & sPWD _
            & "; PERSIST SECURITY INFO=TRUE; USER ID=" & sUID & "; _
            INITIAL CATALOG=" & sDatabase & "; DATA SOURCE=" & sSvrName
        Application.CurrentProject.OpenConnection sConnectionString
        sCreateC & sDatabase & " 数据库的连接!"
    Else '连接已存在
        sCreateC & sDatabase & " 数据库的连接!"
    End If
   
   
sCreateConnectionExit:
Exit Function

sCreateConnectionTrap:
    sCreateConnection = Err.Description
    Resume sCreateConnectionExit

End Function

zhuyiwen

此贴已圆满解决。