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

[jianghuxing]

Dim xdoc As MSXML2.DOMDocument
Set xdoc = New MSXML2.DOMDocument
Dim xmlStr As String
xdoc.validateOnParse = True
xdoc.async = False

If (xdoc.Load("D:\work\MeetingSignInFinge\excels\books.xml")) Then

xmlStr = 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.Execute

If cmd.Parameters("RetVal").Value = 1 Then
MsgBox "成功"
Else
MsgBox "失败"
End If





Set xdoc = Nothing

[jianghuxing]

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

[aiur2000]

sp怎么写的呢

[jianghuxing]

sp_xml_preparedocument是系统的存储过程。

[yangao]

也没说怎么失败啊

[jianghuxing]

没有，那个失败是我打的，

[jianghuxing]

If cmd.Parameters("RetVal").Value = 0 Then
MsgBox "成功"
Else
MsgBox "cmd.Parameters.Refresh"
End If

sorry 是我判断错了。