Xml做数据库导入导出媒介,VB6 + SQL Server 数据库。求教！

[哈士奇打嘴仗]

Xml做数据库导入导出媒介,VB6 + SQL Server 数据库。求教！

在信息管理系统初次安装时，数据库是空的。我想在程序中为系统添加一些必要的基本数据。但是在编程的过程中常常要修改 数据表结构，这对数据的初始化带来不小的麻烦。（数据库创建和初始化在 “系统管理”子系统中完成，而某个子系统数据表结构的修改都要牵扯到“系统管理”子系统源程序的修改），不使用Access,Text，于是想到了这年头风靡全球的 XML。

主体思想是：
用VB 写一个导出工具，读出SQL Server 库中的表结构，到一个XMl文件中。
再把所有的数据按照自己的格式写到另一个 Xml中。
在“系统管理”系统中只要按照XMl的格式定义就能把数据导入到数据库中。

请教如何实现，又要注意那些问题。
只要对解决问题，有益处的回复都给分，不够再加。
我的联系方式： email:[e-mail]

[_1_]

http://www.jinesc.com/bbs/oldbbs/disp.asp?idd=13400&room=101

主　　题：xml to adodb.recordset:
作　　者：wjying
军　　衔：上等兵
功 勋 值：30
所属论坛：灌水之地
问题点数：10
回复次数：1
人气点数：26
发表时间：2002-2-20 16:12:07

recordset可以输出为xml格式字符串
Dim oStream As ADODB.Stream
Set oStream = New ADODB.Stream

oRecordset.Save oStream, adPersistXML

Dim sXML As String
sXML = oStream.ReadText

oStream.Close
Set oStream = Nothing
具体可以看http://support.microsoft.com/default.aspx?scid=kb;EN-US;q252767
但怎么把xml再转成recordset呢
及上面的sxml变成recordset


--------------------------------------------------------------------------------
葡萄



--------------------------------------------------------------------------------

★wjying★ 上等兵 | 回复时间：2002-2-20 -17:00:26
我已经找到了答案，
dim newrs as recordset
dim s2 as ADODB.Stream
Set s2 = New ADODB.Stream
s2.Open
s2.WriteText (sXML)
s2.Position = 0
newrs.Open s2
但觉得有点浪费，stream的writetext复制了一次sXML，有什么更好的办法吗？

--------------------------------------------------------------------------------
葡萄

[哈士奇打嘴仗]

还有呢？

[qijacky]

读可以用
dim adoRS as new adodb.recordset

with adoRS
.source=XML文件
.open
end with
就可以啦.