数据库中的XML应用实例
来源： 编辑：duliying 更新日期：2008-8-23 8:41:58 浏览：183 次
我们在该例中介绍如何实现数据库和XML结合。您将可以看到，该例中实现对一般的关系数据库进行查询等操作，并将结果输出到通用的XML。例中还示范结合采用XSL规范XML的格式，用HTTP和ASP进行网络的通信和处理。您可以在此基础上进行许多扩充的开发，特别是服务器/客户端架构的Web应用。
下面我们来详细说明该实例及使用方法：
(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定义的部分, 提取
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定义的部分, 提取
最新资源
资源推荐
资源排行
|
- 石家庄广维网络有限公司 版权所有 Copyright © 2005 All Rights Reserved
- 中国人才库所有招聘及个人信息、作品，未经公司书面授权不得转载，违者将承担法律责任！
冀 ICP备05000398号 优秀人才展示交流平台! |
|