ADP连接请教朱大哥

yodong

sqlconn = "SQLOLEDB.1ASSWORD=" & password1 & "ERSIST SECURITY INFO=FALSE;USER ID=" & sa1 & ";INITIAL CATALOG=" & data1 & ";DATA SOURCE=" & source1 & ";Network Library=dbmssocn"

Public Function sCreateConnection(ByVal udlFileName As String) As Boolean
On Error GoTo sCreateConnectionTrap:
    Dim sConnectionString As String
        sConnectionString = "rovider=" & udlFileName
        Application.CurrentProject.OpenConnection sConnectionString
       Application.CurrentProject.Connection.ConnectionTimeout = 300'设置超时.
        sCreateConnection = True
sCreateConnectionExit:
    Exit Function
sCreateConnectionTrap:
    sCreateConnection = False
    MsgBox Err.Description, vbInformation, sysstr
    Resume sCreateConnectionExit
End Function
=======================
为什么这句通不过Application.CurrentProject.Connection.ConnectionTimeout = 300'设置超时.

zhuyiwen

因为 CurrentProject.Connection 是只读对象

你要在sConnectionString中设置TimeOut

1. sqlconn = "SQLOLEDB.1;PASSWORD=" & password1 & ";PERSIST SECURITY INFO=FALSE;USER ID=" & sa1 & ";INITIAL CATALOG=" & data1 & ";DATA SOURCE=" & source1 & ";Network Library=dbmssocn" & ";Connect Timeout=500"

复制代码

yodong

哦.这样.我试试.谢谢朱大哥.