Office中国论坛/Access中国论坛

标题: 请问：如何在ADP启动时,使用VBA代码判定数据库连接是否有效并重新设定数据库连接 [打印本页]

作者: zhuyiwen 时间: 2002-3-24 07:46
标题: 请问：如何在ADP启动时,使用VBA代码判定数据库连接是否有效并重新设定数据库连接
请问：如何在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

作者: wyh 时间: 2002-3-24 18:25
有个思路，不过要等等，要测试一下，我正在换硬盘
原来的硬盘实在没办法装上SQL SERVER

作者: zhuyiwen 时间: 2002-3-24 20:41
我是这样做的：在启动窗口的 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 时间: 2002-3-24 21:30
将连接字符串代码写进去即可，加入用户名和密码，连接服务器。数据源等

作者: zhuyiwen 时间: 2002-3-25 00:43
你是说更改
CurrentProject.Connection.ConnectString
对吗？
我试过，这样不行，报错！

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

作者: tmtony 时间: 2002-3-25 01:02
出什么错误呢，可否贴上来

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

作者: chenwintek 时间: 2002-3-25 03:53
很有意思，NORTHWINDCS的启动就有，但是太复杂，还没看大懂。

作者: zhuyiwen 时间: 2002-3-25 05:58
楼上兄弟说得好！确实是太复杂，难得看，所以才发问

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

作者: tmtony 时间: 2002-3-28 01:28
各有长短优劣

作者: zhuyiwen 时间: 2002-3-28 10:42

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

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

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

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

作者: 大熊 时间: 2002-4-7 05:00
此例程将从 ADP 删除连接,使其处于无连接状态。
Sub MakeADPConnectionless()

   Application.CurrentProject.CloseConnection '关闭连接
   Application.CurrentProject.OpenConnection '将连接设置为无

End Sub

作者: zhuyiwen 时间: 2002-4-13 19:33
这是微软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

作者: KenjiSato 时间: 2002-8-8 00:52
万一创建连接时服务器出故障、网络连接不上如何提示？

作者: zyz 时间: 2002-8-8 04:28
出了问题,就报错! [em26]

愿上帝保佑你!

最好是念一声＂阿迷坨佛＂.

哈哈哈．．．．．．[em26]

作者: KenjiSato 时间: 2002-8-9 00:49
我的意思是做个友善的界面引导用户再连接或更改连接服务器等

作者: zyz 时间: 2002-8-9 02:57
你不会把代码分开吗？！[em26]

作者: zhuyiwen 时间: 2008-9-2 18:18
此贴已圆满解决。

作者: 唐玉娥 时间: 2009-5-11 23:36
看不明白。不过感觉还是有点意思。慢慢研究一下先啦！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)