ADP連接請(qǐng)教朱大哥

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'設(shè)置超時(shí).
        sCreateConnection = True
sCreateConnectionExit:
    Exit Function
sCreateConnectionTrap:
    sCreateConnection = False
    MsgBox Err.Description, vbInformation, sysstr
    Resume sCreateConnectionExit
End Function
=======================
為什么這句通不過(guò)Application.CurrentProject.Connection.ConnectionTimeout = 300'設(shè)置超時(shí).

zhuyiwen

因?yàn)?CurrentProject.Connection 是只讀對(duì)象

你要在sConnectionString中設(shè)置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"

復(fù)制代碼

yodong

哦.這樣.我試試.謝謝朱大哥.