VB 调用 存储过程 sp_xml_preparedocument 为什么老失败

Question

Dim xdoc As MSXML2.DOMDocument
Set xdoc = New MSXML2.DOMDocument
Dim xmlStr As String
xdoc.validateOnParse = True
xdoc.async = FalseIf (xdoc.Load("D:\work\MeetingSignInFinge\excels\books.xml")) ThenxmlStr = xdoc.xml
MsgBox xmlStr
Else
MsgBox xdoc.parseError.reason
End If
Dim cmd As adodb.Command
Set cmd = New adodb.Command
cmd.ActiveConnection = cnn
cmd.CommandText = "sp_xml_preparedocument" '存储过程的名称
cmd.CommandType = adCmdStoredProc '执行方式为存储过程
'返回值参数
Set param = cmd.CreateParameter("RetVal", adInteger, adParamReturnValue, 4)
cmd.Parameters.Append param        '输出参数Set param = cmd.CreateParameter("fileNo", adInteger, adParamOutput)
    cmd.Parameters.Append param
'输入参数
  Set param = cmd.CreateParameter("xmldoc", adVarChar, adParamInput, 8000, straaa)
    cmd.Parameters.Append param
        
cmd.ExecuteIf cmd.Parameters("RetVal").Value = 1 Then
    MsgBox "成功"
Else
   MsgBox "失败"
End IfSet xdoc = Nothing

Answer 1

sp_xml_preparedocument是系统的存储过程。

Answer 2

If cmd.Parameters("RetVal").Value = 0 Then
    MsgBox "成功"
Else
   MsgBox "cmd.Parameters.Refresh"
End Ifsorry 是我判断错了。

Answer 3

但是，执行完后我如何用openxml来进行操作呢？？？