資料庫中的XML應用例項 (轉)

資料庫中的XML應用例項 (轉)[@more@]

中的應用例項

作者：

我們在該例中介紹如何實現資料庫和XML結合。您將可以看到，該例中實現對一般的關聯式資料庫進行查詢等操作，並將結果輸出到通用的XML。例中還示範結合採用規範XML的格式，用HTTP和進行的通訊和處理。您可以在此基礎上進行許多擴充的開發，特別是/客戶端架構的應用。

　

下面我們來詳細說明該例項及使用方法：

(1)準備工作

開啟控制皮膚，將Northwind.m資料庫新增至您的資料來源()並命名為"nwind"；
process.asp放在伺服器端，第4部分中要用到該處理HTTP請求；
用 6.0開啟test.vbp專案，引用MS XML Version2.0庫。

（2）定義的變數

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim xmlstr As String
Dim xmldoc As MSXML.Document
Dim As MSXML.
Dim xsldoc As MSXML.DOMDocument
Dim message As MSXML.DOMDocument
Dim query As String

（3）初始化
init(),在Form_Load()中

'建立和開啟ADODB與ODBC的資料連線
Set con = New ADODB.Connection
con.ConnectionString = "DSN=nwind;UID=sa;PWD=;"
con.Open

'建立XML 文件(XML Document s)
Set xmldoc = New MSXML.DOMDocument
Set xsldoc = New MSXML.DOMDocument
Set message = New MSXML.DOMDocument

（4）實現查詢和輸出：
在Command1_Click函式中實現

'查詢資料庫
query = " * FROM Customers WHERE CustomerID = '" & Text1.Text & "'"
Set rs = con.Execute(query)

'將查詢的結果到XML檔案
On Error Resume Next
Kill ("recordset.xml")
rs.Save "recordset.xml", adPersistXML
xmldoc.async = False
xmldoc.Load ("recordset.xml")

'對子樹的查詢，實際上是濾除其它Schema定義的部分, 提取出滿足查詢結果的純資料
MsgBox xmldoc.selectSingleNode("//z:row").xml

'載入樣式表(stylesheet)並將XML規格化
xsldoc.async = False
xsldoc.Load ("standard.xsl")
xmldoc.tranormNodeToObject xsldoc, message

'將XML傳送給伺服器進行處理
Set xmlhttp = New MSXML.XMLHTTPRequest
xmlhttp.Open "POST", "", False ‘要根據process.asp的位置指定好第2項引數
xmlhttp.send message

（5）使用應用
按F5執行該程式，在上面的文字框中輸入查詢的顧客的ID, 按下面的”處理顧客資訊”執行查詢並輸出結果。

如果要了解更多，請： 。