VB 连接DB(sqlserver)报错(偶尔) 3709

有三个定时任务 都要连同一个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

都是在服务器上执行的 应该不是网络问题

1个回答

报的错是
请求的操作需要OLE DB会话对象,而当前提供程序不支持此对象。

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐