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
'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
ping -t 192.168.0.1(改成你的服务器ip)
应该是这一句的连接有问题
你这个m_strConnect 里面的内容是什么,发出来看下
是本地还是异地数据库
把CommandTimeout设大点试试