运行时错误‘-2147217871（80040e31)'超时已过期（请大哥大姐进来看看）

Public Function morezixing(sql() As String, ByVal intNum As Integer) As Boolean
'On Error GoTo errhandle
    Dim strShow As String
    Dim cn As Connection
    Dim i As Integer
    Set cn = New Connection
    cn.Open m_strConnect
    cn.BeginTrans
    For i = 0 To intNum
        cn.Execute sql(i)
    Next
    cn.CommitTrans

    cn.Close
    Set cn = Nothing
    morezixing = True
    Exit Function
'
'errhandle:
    cn.RollbackTrans
    morezixing = False
    cn.Close
    Set cn = Nothing
End Function

4 个解决方案

#1

可能你的网络连接不好
ping -t 192.168.0.1(改成你的服务器ip)

#2

cn.Open m_strConnect
应该是这一句的连接有问题
你这个m_strConnect 里面的内容是什么,发出来看下

#3

你用的是什么数据库呀?SQL
是本地还是异地数据库
把CommandTimeout设大点试试

#4

数据库连接有问题，检查一下连接字符串，用ADODC控件去生成连接字符串咯。。。

#1