在VB中如何执行openxml的查询方式

Question

Dim xdoc As MSXML2.DOMDocument
Dim xmlStr As String
Dim cmd As ADODB.CommandSet cmd = New ADODB.Command
set xdoc As MSXML2.DOMDocumentxdoc.validateOnParse = True
xdoc.async = False
If (xdoc.Load("books.xml")) Then
  xmlStr = xdoc.xml
Else
MsgBox xdoc.parseError.reason
End Ifcnn.CursorLocation = adUseClient
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
    
 Set rs4 = cmd.Execute("SELECT  * FROM  OPENXML (@fileNo , '/ROOT/Customer',2)   WITH (CustomerID  varchar(10),   ContactName varchar(20))")
Set xdoc = Nothing

Answer 1

你还要执行sp_xml_preparedocument,sp_xml_removedocument 才行,sp_xml_preparedocument要打开一个XML句柄,这个是主要的.最好在SqlServer中写一个存储过程来执行这些操作,你在VB里调用这个自己写的存储过程