<<< 返回 access911.net 编程静态资料库索引页

作者：  摘自：  录入：cg1  时间：2003-4-12  浏览人次：522

专题地址：http://access911.net/index.asp?u1=a&u2=74FAB61E11DC 如果需要更详细的评论或说明，请点击该地址。

简述：

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.BaseConnectionString = "" Then
        '表示ADP处于无连接状态
     .....................
...........