ADO数据与XML数据间的转换的类

2016-01-29 18:40 9 1 收藏

ADO数据与XML数据间的转换的类,ADO数据与XML数据间的转换的类

【 tulaoshi.com - ASP 】

 

当对现有数据库的数据进行分析时,经常需要对某一部分的数据进行分析.此时,使用
1.SQL查询分析器?
 但其往往不直观,查找某个关键字又需要重新执行新的SQL.
2.SQLXML模板?
 但又不一定有权限建立新的虚拟目录,且某些SQL语句SQLXML模板不支持

数据拆离时也有相似问题。
尤其当不同网络,不同环境,需要重新导入数据,进行分析或拆离,困难尤为明显。
能不能有一种方法,可以将数据脱离于数据库进行分析,需要时再导入到数据库中?
XML是个很好的选择!
ADO本身支持数据到XML的转换,只需要对其格式进行解析,成为自己的XML文件通用格式,就可以进行本地分析
而对通用XML格式进行数据库映射,就可完成数据重新导入数据库的工作.

下面是一个ADO数据(表的基本数据)与XML数据间的相互转换的类(ASP实现),初步完成表数据的导入、导出。
通用表间关系映射(通过XSD描述),考虑之中,希望各位赐教指点,不胜感激.

一个调用类的例子:
example.asp

<!--#include file="transformXML.asp"--
<%
Dim aSQL(1,1)
Dim oXMLData

'====== 连接数据库过程 ======
'获得数据库连接对象 oDbConn
'====== 连接数据库过程 ======

aSQL(0,0) = "PubLable"
aSQL(0,1) = "Select * from PubLabel where cLabelName like '%abc%' Order by nLabelID"
aSQL(1,0) = "PubUser"
aSQL(1,1) = "Select * from PubUser where cUserName like '%abc%' Order by nUserID"

set oXMLData = New TransformData

Call Export()
'Call Import()
set oXMLData = nothing

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/)


' // 当对象属性有默认值(default())时,可以不用在赋值

Sub Export()        '   // 导出数据

 oXMLData.aSQlData  = aSQL  
 ' 必须      2维SQL语句数组
 
 oXMLData.bIsSave  = 1   
 ' default(1)    是否保存为XML文件
 
 oXMLData.bIsOutput  = 1   
 ' default(0)    是否显示XML数据
 
 oXMLData.sSaveFileName = "Data.xml"
 ' default(当前时间加随机数) 如果保存XML数据,XML文件名称
 
 oXMLData.sSaveFilePath = ""  
 ' default("")    如果保存XML数据,XML文件路径(相对路径)
 
 oXMLData.sEncoding  = "gb2312" 
 ' default("gb2312")   XML文件编码类型

 oXMLData.Export (oDbConn)    
 ' // 导出数据过程

 IF (oXMLData.nErrCode<0) Then  ' nErrCode(错误代码)为0,运行成功
  Response.Write oXMLData.GetErrExegesis(oXMLData.nErrCode)
  'nErrCode(错误代码),通过方法GetErrExegesis() 获得注释
 End IF

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/)

End Sub

Sub Import()         '   // 导入数据

 oXMLData.sXMLFile  = "Data.xml" ' 必须  数据源XML文件(包含相对路径)

 oXMLData.sVacancyCols = "nLabelID" ' 必须  指定某些字段的值可以不导入(屏蔽字段)
           ' 格式   "nID,dDate"  (以‘,’分隔字段)

 oXMLData.Import (oDbConn)

 IF (oXMLData.nErrCode=0) Then
  Response.Write "数据导入成功!"
 Else
  Response.Write oXMLData.GetErrExegesis(oXMLData.nErrCode)
 End IF
 
End Sub
%

 

类的代码:
TransformData.asp

<%
Class TransformData

'*****************************************************
' Copyright (c) 2003
' 创 建 人 : moonpiazza
' 日    期 : 2003.5.21
' 描    述 : ADO数据与XML数据间的转换(ASP实现)
' 版    本 : 1.0
' 功    能 :   ADO数据(表的基本数据)与XML数据间的相互转换
' 待 改 进 : 表间数据的关联性(通用),数据量大时速度问题
'
' 版 权 : 欢迎改进,翻版不究  :_)
'
'*****************************************************


'*****************************************************
' 公共方法: Export, Import, GetErrExegesis
'*****************************************************

'============================= 公共变量  End ========

来源:https://www.tulaoshi.com/n/20160129/1506811.html

延伸阅读
标签: FLASH flash教程
在AS3里,对XML的控制变得非常方便了,有用过AS2的读者都知道,如果我们用AS2去访问一个节点,做法是xmlObj.firstChild.childNodes[2]如果复杂的XML结构就更麻烦了,所以在AS2时需要把一系统的节点用一个值来先做替身即xmlList= xmlObj.firstChild.childNodes来降底程序的复杂程序。 AS3里使用E4X(ECMAScript for XML)来规范定义组用于处理 ...
标签: Web开发
使用一个简单的 XSL 样式表就可以将 XML 数据转换成 HTML。随着 XML 规范的不断演进,在新的版本中满足每个人的需要似乎已经成为必要;不幸的是,进行简单的转换一直都困扰着规范。 假设我有一个表示一个页面内容的 XML 数据,现在我想将其内容转换成布局。下面是我想要转换的 XML: ?xml version='1.0'? ?x...
标签: ASP
  Chris Lovett Microsoft Corporation 2000 年 3 月 目录 1、跨平台数据格式 2、XML 和字符编码 3、字符集和 MSXML DOM 4、用 MSXML 创建新的 XML 文档 5、结论 6、有关详细信息 -------------------------------------------------------------------------------- 摘要:本文介绍了字符编码的工作原理,特别是在 XML 和 MSXML ...
标签: 电脑应用
企业在重新选择二维CAD设计软件时,已经存在了大量设计图纸和数据,如何有效的继承这些研发核心数据,顺利移植到新的设计平台上来,成为企业关心的重要问题,因此二维CAD软件的兼容性成为企业在进行选型比较时普遍重视的一个关键问题。 为了满足跨语言、跨平台的数据转换、处理的要求,CAXA电子图板2009支持Unicode编码进行...
标签: Web开发
一,必须弄清楚最终需要的是什么 我们通过ASP或其他动态编程语言,最终需要的是XML格式的数据,这点和XML数据所在的文件载体无关,它可以是实实在在的XML文件,比如:http://www.dw8.cn/common/dw8.xml 。也可以为asp文档,比如:http://www.cnbruce.com/blog/rss2.asp 他们都是XML数据的体现,为了实现XML数据的动态,所以需要使用到动态编...

经验教程

579

收藏

20
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部