用SQL 2000创建用户化XML流

80酷酷网    80kuku.com

  xml|创建

你可能想在程序当中使用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数据岛,你可以创造一些针对性的解决方法。



分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: