你可能想在程序當中使用xml,但是僅僅用一個簡單的查詢是不能從Microsoft SQL Server 2000中獲取其信息的。
讓我們假設你想將一個HTML 表格連接到一個XML數據島,但是你十分確定要將若干表格套入母表中十分復雜。母表中的每一個表格一定是XML數據結構中父節點下的一組節點。電話號碼目錄就是一個很好的例子。
<TABLE dataSrc="#xmlPhoneData">
<TR>
<TD>
<SPAN dataFld="fname"></SPAN>
<SPAN dataFld="lname"></SPAN>
</TD>
</TR>
<TR>
<TD>
<TABLE dataSrc="#xmlPhoneData" dataFld="phone">
<TR>
<TD><SPAN dataFld="phone_type"></SPAN>:</TD>
<TD><SPAN dataFld="phone_no"></SPAN></TD>
</TR>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<TABLE dataSrc="#xmlPhoneData" dataFld="other_info">
<TR>
<TD><SPAN dataFld="info_type"></SPAN>:</TD>
<TD><SPAN dataFld="info_data">/SPAN></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
TABLE代表一系列信息,包括目錄中某個人的名字、所有的電話號碼和那個人的其他信息(譬如說,地址等)。
這個XML的模型如下:
<root>
<data>
<lname/>
<fname/>
<phone>
<phone_type/>
<phone_no/>
</phone>
<other_info>
<info_type/>
<info_data/>
</other_info>
</data>
</root>
盡管創建這個XML模型不是不可能的,我們仍然在本文中使用這個簡單的例子。
首先,我們將提供一些背景知識使其更全面。數據來源于三個方面:包含員工的名(fname)和姓(lname)的職工表;包含員工電話類型(phone_type)和電話號碼(phone_no)的電話表;包含員工其他信息(如地址等)的其他信息表(other_info)。
如果你想將信息從這些表中抓取到一個記錄集中,SQL查詢可以如下:
SELECT employee.lname, employee.fname, phone.phone_type, phone.phone_no,
other_info.info_type, other_info.info_data FROM employee LEFT JOIN phone ON
phone.employee_id = employee.employee_id LEFT JOIN other_info ON
other_info.employee_id = employee.employee_id
當你需要SQL 2000中有XML的時候,你通常可以在查詢字符串的末尾輸入一個FOR XML AUTO, ELEMENTS語句,你就可以得到想要的XML字符串。但是,多個節點會有一點小問題。單個節點很容易,但當你引用多個表格時,你可能不會花整天時間去嘗試獲得想要的XML輸出。
另一個方法就是關閉行計算和數據輸出。你可以通過將一個指針移入母表數據,用一個指令來操作記錄,然后從帶有FOR XML AUTO、ELEMENTS語句的其他表格選擇相關記錄以分流XML輸出來實現。
這個功能最好保存到一個存儲程序,因為指針比較慢,而一個存儲程序被事先編輯好。下面就是完成這項任務的存儲程序(Transact SQL)。
DECLARE @employee_id int
DECLARE @fname varchar(50)
DECLARE @lname varchar(50)
DECLARE phone_cursor CURSOR FOR SELECT employee_id, fname, lname FROM employees
ORDER BY lname, fname
SET NOCOUNT ON
OPEN phone_cursor
FETCH NEXT FROM phone_cursor INTO @employee_id, @fname, @lname
WHILE @@FETCH_STATUS = 0
BEGIN
SELECT '<data><fname>' + @fname + '</fname><lname>' + @lname +
'</lname>'
SELECT phone_type, phone_no FROM phone WHERE employee_id =
@employee_id FOR XML AUTO, ELEMENTS
SELECT info_type, info_data FROM other_info WHERE employee_id =
@employee_id FOR XML AUTO, ELEMENTS
SELECT '</data>'
FETCH NEXT FROM phone_cursor INTO @employee_id, @fname, @lname
END
CLOSE phone_cursor
DEALLOCATE phone_cursor
SET NOCOUNT OFF
GO
這幾句SQL創建了一個用以存儲員工數據和重復執行的指針。為了解除每一個SELECT語句后的行計算輸出功能,NOCOUNT被設置為ON。當指針中的每條記錄在被操作的時候,構成了一個包含著XML輸出的名和姓節點字符串。電話信息和其他信息也都創建了XML。
然后,父節點關閉。在成功地完成了指針操作以后,關閉指針并對其再分配。這就得到了一個符合目標XML模型的XML字符串。
為了有效的使用這個XML輸出字符串,輸出必須存儲在一個ADO流對象中。利用流對象中的ReadText方法可以訪問數據:
<XML id="xmlPhoneData" name="xmlPhoneData">
<%
Dim adoConn, adoCmd
Dim adoStream
Set adoConn = Server.CreateObject("ADODB.Connection")
Set adoCmd = Server.CreateObject("ADODB.Command")
adoConn.ConnectionString = "Some Connection String To MS SQL 2K"
adoConn.Open
Set adoCmd.ActiveConnection = adoConn
Set adoStream = Server.CreateObject("ADODB.Stream")
adoCmd.CommandType = 4 'adCmdStoredPRoc
adoCmd.CommandText = "get_test_phone"
adoStream.Open
adoCmd.Properties("Output Stream") = adoStream
adoCmd.Execute ,,1024 'adExecuteStream
Response.Write adoStream.ReadText(-1)
adoStream.Close
Set adoStream = Nothing
adoConn.Close
Set adoCmd = Nothing
Set adoConn = Nothing
%>
</XML>
以上代碼創建了一個ADO到SQL 2000的連接,執行了一個存儲程序。結果被儲存在ADO流對象(adoStream)中。其數據寫入Response緩沖器,流對象被關閉,然后是一些“清倉”操作。
這個范例提供了一個創建用戶化XML方案的一般方法。通過將HTML表格連接到XML數據島,你可以創造一些針對性的解決方法。
新聞熱點
疑難解答