ADP连接设置连接超时时间出错

yodong

Public Function sCreateConnection(ByVal udlFileName As String) As Boolean
On Error GoTo sCreateConnectionTrap:
    Dim sConnectionString As String
        sConnectionString = "Provider=" & udlFileName
        Application.CurrentProject.OpenConnection sConnectionString
        CurrentProject.Connection.ConnectionTimeout = 30 '连接超时时间

        sCreateConnection = True
sCreateConnectionExit:
    Exit Function
sCreateConnectionTrap:
'连接失败则返回false
    sCreateConnection = False
    MsgBox Err.Description, vbInformation, sysstr
    Resume sCreateConnectionExit
End Function
'================
为什么运行到这行:
        CurrentProject.Connection.ConnectionTimeout = 30 '连接超时时间
提示:失败呢?奇怪.

zhuyiwen

ConnectionTimeout 的设置要 ADO 连接打开之前，一旦连接打开之后，这个属性就是只读属性。因此，你的代码会出错。

正确的做法应该是在你的udl文件中就设置好ConnectionTimeout。

yodong

哦,!谢谢,我试试