数据库中的XML应用实例

王朝html/css/js·作者佚名  2006-12-17
宽屏版  字体: |||超大  

数据库中的XML应用实例

数据库中的XML应用实例 数据库中的XML应用实例

作者:

下面我们来详细说明该实例及使用方法:

(1)准备工作

打开控制面板,将Northwind.mdb数据库添加至您的用户数据源(DNS)并命名为"nwind";

process.asp放在服务器端,第4部分中要用到该文件处理HTTP请求;

用Visual Basic 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.DOMDocument

Dim xmlhttp As MSXML.XMLHTTPRequest

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 Objects)

Set xmldoc = New MSXML.DOMDocument

Set xsldoc = New MSXML.DOMDocument

Set message = New MSXML.DOMDocument

(4)实现查询和输出:

在Command1_Click函数中实现

'查询数据库

query = "Select * 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.transformNodeToObject xsldoc, message

'将XML发送给服务器进行处理

Set xmlhttp = New MSXML.XMLHTTPRequest

xmlhttp.Open "POST", "http://icds/process.asp", False ‘要根据process.asp的位置指定好第2项参数

xmlhttp.send message

(5)使用应用程序

按F5执行该程序,在上面的文本框中输入查询的顾客的ID, 按下面的”处理顾客信息”执行查询并输出结果。

如果要了解更多,请下载源代码:Database.zip 。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
© 2005- 王朝网络 版权所有