有三个定时任务 都要连同一个DB 其他两个不会错
代码如下
Sub GetPcrpInfo(lastEndTime)
Dim objCon, objCmd, objRs, strSQL
Dim ErrNumber, ErrMsg
Dim key, pcrpStatus, transportOrderFlg
Set objCon = CreateObject("ADODB.Connection")
Set objCmd = CreateObject("ADODB.Command")
Set objRs = CreateObject("ADODB.Recordset")
On Error Resume Next
objCon.ConnectionString = cdbPicRASConStr
objCon.Open
objCmd.CommandType = 1 'adCmdText
objCmd.ActiveConnection = objCon
objCmd.CommandTimeout = 0
ErrNumber = Err.Number
ErrMsg = Err.Description
On Error GoTo 0
If ErrNumber <> 0 Then
Call LogWrite("ERROR", "PicRASに接続失敗" & " [ErrNumber]:" & ErrNumber & " [ErrMsg]:" & ErrMsg )
Set objRs = Nothing
Set objCon = Nothing
Set objCmd = Nothing
Call GotoEND
End If
都是在服务器上执行的 应该不是网络问题