Office中国论坛/Access中国论坛

标题: 如何解决ADP超时的问题? [打印本页]

作者: yodong 时间: 2010-11-19 10:32
标题: 如何解决ADP超时的问题?
如何解决ADP超时的问题?

作者: tmtony 时间: 2010-11-19 11:14
将超时 timeout 时间设置长一点
但如果网络不行或用户多数据量大的话,还是可能出现这种情况. 最好是大量数据计算使用存储过程.只返回结果

作者: yodong 时间: 2010-11-20 00:16
[ 本帖最后由 yodong 于 2010-11-20 00:17 编辑 ]

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

Dim sConnectionString As String

sConnectionString = "Provider=" & sqlconn
Application.CurrentProject.OpenConnection sConnectionString
是这样设置吗?

作者: zhuyiwen 时间: 2010-11-20 13:52

tmtony 发表于 2010-11-19 11:14
将超时 timeout 时间设置长一点
但如果网络不行或用户多数据量大的话,还是可能出现这种情况. 最好是大量数 ...

使用存储过程也可能会超时，呵呵。我就碰到过这个问题。呵呵。不过不是在ADP中。

作者: yodong 时间: 2010-11-20 23:59
怎么解决?

作者: zhuyiwen 时间: 2010-11-21 19:03
cmd.CommandTimeout = 0

作者: yodong 时间: 2010-12-1 16:35
[attach]44257[/attach]
在ADP中如何用VBA代码设置"连接超时设定这个值.请教?

作者: yodong 时间: 2010-12-1 16:57
我的ADP在每次打开的时候是用下面的代码连接到数据库的.
sqlconn = "SQLOLEDB.1ASSWORD=" & password1 & "ERSIST SECURITY INFO=FALSE;USER ID=" & sa1 & ";INITIAL CATALOG=" & data1 & ";DATA SOURCE=" & source1 & ";Connect Timeout=0;Network Library=dbmssocn"
Dim sConnectionString As String
sConnectionString = "Provider=" & sqlconn
Application.CurrentProject.OpenConnection sConnectionString
==============================================
完后,我在里面执行存诸过程方法是:
Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
cn.Execute "xs_pro月结删除明细帐 " & nd & "," & m
因为数据比较多,总是超时.如何解决?请教大家.

作者: yodong 时间: 2010-12-1 19:03
'解决超时
Public Function selext(ByVal TmpSQLstmt As String)
On Error GoTo aa
Dim cmd As New ADODB.Command
Dim Cnn As New ADODB.Connection
cmd.CommandTimeout = 0
Set Cnn = CurrentProject.Connection
Set cmd.ActiveConnection = Cnn
'cmd.CommandType = adCmdStoredProc
cmd.CommandText = TmpSQLstmt
'MsgBox "Timeout on Connection: " & Cnn.CommandTimeout
'MsgBox "Timeout on Command: " & cmd.CommandTimeout 'Debug.Print
cmd.Execute
Set cmd = Nothing
Cnn.Close
Set Cnn = Nothing
'================
bb:
Exit Function
aa:
MsgBox Err.Description, vbInformation, sysstr
Resume bb
End Function
'================
暂时这样解决.到现在为止还没有出现提示.
朋友们还有其它的方法吗?

作者: zhuyiwen 时间: 2010-12-1 21:09
呵呵，厉害

作者: yodong 时间: 2010-12-2 19:39
呵呵!主要还是朱大哥给了提示:cmd.CommandTimeout = 0
所以还是要谢谢朱大哥.
也不知道这样是不是解决的方法.暂时是不提示超时了.不过,以前也是偶尔提示.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)