超时问题！急！急！急！急！急！急！急！急！

[yangjian0219]

代码如下：

Option Explicit
Private conn As Connection

Private Sub Command1_Click()
If IsDate(Text1.Text) = False Then
MsgBox ("你输入的不是日期")
Exit Sub
End If
If IsDate(Text2.Text) = False Then
MsgBox ("你输入的不是日期")
Exit Sub
End If
Dim Command1 As Command
Dim param As ADODB.Parameter
Set Command1 = New Command
Command1.ActiveConnection = conn
Command1.CommandText = "selposdata"
Command1.CommandType = adCmdStoredProc
Set param = Command1.CreateParameter("@begindate", adDate, adParamInput, 8, Format(Text1.Text, "yyyy-mm-dd"))
Command1.Parameters.Append param
Set param = Command1.CreateParameter("@enddate", adDate, adParamInput, 8, Format(Text2.Text, "yyyy-mm-dd"))
Command1.Parameters.Append param
Command1.Execute
End Sub

Private Sub Form_Load()
Set conn = New Connection
conn.Open "Provider=SQLOLEDB;Data Source=GNETDATA\GNETDATA;Initial Catalog=SettleDB;User Id=sa;Password=;"

End Sub

Private Sub Form_Unload(Cancel As Integer)
conn.Close
Set conn = Nothing
End Sub

运行显示：超时已过期，请问如何解决？

[txlicenhe]

cnn.connectionTimeOut = 30 -- 设置30秒超时

[pengdali]

ADO的：

NonnectionTimeout 连接时间长一点；
CommandTimeout 执行时间长一点！

[yangjian0219]

可是我把两个参数都设置为了30还是超时

[sdhdy]

SQL Servers企业管理器->服务器右键-->属性-->连接-->查询超时设定-->改为0