使用VBScript將記錄集轉換爲XML

我的SQL查詢返回一個實際上是XML的列結果。當我點擊記錄集時，它會打開一個results.xml。使用VBScript將記錄集轉換爲XML

這是輸出XML我抓進result_string使用

result_string = objRecordSet.Fields(colname).Value

<TEST_SUITE SUITE_ID="122675741" PART_NUMBER="MTSTE-26248-00" REVISION="A"  SUITE_TYPE="PRODUCTION" SUITE_NAME="HOT-LOW" SUITE_STOP_ON_FAIL="TRUE" TARGET_DURATION="0" SEQUENCE="1" UPDATED="2016-12-15T00:21:46.510"> 
    <SUITE_DESCRIPTION>"HOT-LOW"</SUITE_DESCRIPTION> 
    <TESTS> 
    <TEST TEST_ID="122663528" TEST_NAME="Set Suite Environment Variables" PART_NUMBER="MTTST-65899-00" REVISION="A" MODULE="TEST Set Environment Variables.vi" MODULE_LIBRARY="BIG-IP_TESTS" TEST_STOP_ON_FAIL="TRUE" TEST_TYPE="BEGIN_SESSION"> 
     <PARAMETERS> 
     <PARAMETER PARAMETER_ID="122663469" PARAMETER_NAME="TOS" PARAMETER_VALUE="build_2.0.1.1647.0_centos6_x86_64" /> 
     <PARAMETER PARAMETER_ID="82137" PARAMETER_NAME="chain" PARAMETER_VALUE="TRUE" /> 
     </PARAMETERS> 
     <MEASUREMENTS> 
     <MEASUREMENT MEASUREMENT_ID="70784" MEASUREMENT_NAME="TOS" UNITS="" UPPER_LIMIT="" LOWER_LIMIT="" COMPARISON="LOG" INPUT_SCALE_FACTOR="" OUTPUT_SCALE_FACTOR="" /> 
     <MEASUREMENT MEASUREMENT_ID="81537" MEASUREMENT_NAME="chain" UNITS="" UPPER_LIMIT="" LOWER_LIMIT="" COMPARISON="LOG" INPUT_SCALE_FACTOR="" OUTPUT_SCALE_FACTOR="" /> 
     </MEASUREMENTS> 
    </TEST> 
    </TESTS> 
</TEST_SUITE>

從這個

我需要一個爲test_id。我如何存儲XML到這個result_string並獲得Test_ID。或者有沒有簡單的方法來獲得Test_ID？

我做了這樣的事情，但不知道這是否正確，並且我在線路objCommand.Execute ,, adExecuteStream上收到錯誤。

Dim strm 
Set strm = CreateObject("ADODB.Stream") 

strm.Open 

Set objCommand.ActiveConnection = objConnection 
objCommand.CommandText = script_testID 
objCommand.Properties("Output Stream")= strm 
objCommand.Properties("Output Encoding") = "UTF-8" 
objCommand.Properties("XML Root") = "Root" 'this can be anything you want 

objCommand.CommandType = 4 
objCommand.Execute ,, adExecuteStream 
strm.Position = 0 
text = strm.ReadText 
Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
xmlDoc.Async = "false" 

xmlDoc.LoadXML(strm.ReadText) 
strm.Close : Set strm = Nothing 
Set objCommand = Nothing

來源

2017-10-12 user2329418

其實問題是關於XML解析，並且不與SQL和相關的記錄，所以SQL標籤是無關緊要的。 – omegastripes

Try'test_id = Split（Split（result_string，「TEST_ID =」「」，2）（1），「」「」，2）（0）' – omegastripes

哇，謝謝@omegastripes。非常感謝您的及時幫助。 – user2329418

你已經解析XML數據，這樣就可以方便地提取這樣的值：

... 
xmlDoc.LoadXML(strm.ReadText) 

test_id = xmlDoc.SelectSingleNode("//TEST/@TEST_ID").Value 
...

我會建議使用Msxml2.DOMDocument，而不是過時的Microsoft.XMLDOM，雖然和我還建議在處理數據之前檢查解析錯誤：

... 
Set xmlDoc = CreateObject("Msxml2.DOMDocument.6.0") 
xmlDoc.Async = False 
xmlDoc.LoadXML strm.ReadText 

If xmlDoc.ParseError <> 0 Then 
    WScript.Echo xmlDoc.ParseError.Reason 
    WScript.Quit 1 
End If 

test_id = xmlDoc.SelectSingleNode("//TEST/@TEST_ID").Value 
...

請注意， XPath expression（//TEST/@TEST_ID）區分大小寫。

來源

2017-10-12 21:01:43

仍然在objCommand.Execute ,,執行錯誤，adExecuteStream 語法錯誤或訪問衝突 – user2329418

您是否定義了'adExecuteStream'？ VBScript不知道這個常量。否則，嘗試使用數值：'objCommand.Execute ,, 1024'。如果這沒有幫助，請用確切的錯誤消息更新您的問題。 –

@Angar Wiechers我嘗試過1024，但是我得到了同樣的錯誤。以及如何定義adExecuteStream 這是確切的錯誤：語法錯誤或訪問衝突行（74）：「objCommand.Execute ,, adExecuteStream」。 – user2329418

test_id = Split(Split(result_string, "TEST_ID=""", 2)(1), """", 2)(0)

來源

2017-10-13 14:09:00 omegastripes

使用VBScript將記錄集轉換爲XML

回答

相關問題