请问：如何在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代码判定数据库连接是否有效并重新设定数据库连接

wyh

有个思路，不过要等等，要测试一下，我正在换硬盘
原来的硬盘实在没办法装上SQL SERVER

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

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

tmtony

将连接字符串代码写进去即可，加入用户名和密码，连接服务器。数据源等

zhuyiwen

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

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

tmtony

出什么错误呢， 可否贴上来

zhuyiwen

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

chenwintek

很有意思，NORTHWINDCS的启动就有，但是太复杂，还没看大懂。

zhuyiwen

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

liujunqun

我用过字符串指明数据库源和用户名等等连接数据库服务器，没有用DSN，不用配置客户端或ODBC，那样太麻烦。如果报错就调用系统链接窗体重新设置。