不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

VB下怎么用ADO将Oracle的表导出XML文件？

楼主moany（长枪大戟）2005-09-22 15:23:48 在 VB / 数据库(包含打印，安装，报表) 提问

想将表的内容导入生成一个XML文件，不知怎么解决，大家指点，谢谢！问题点数：20、回复次数：20Top

1 楼supergreenbean（超级绿豆(MSMVP - VB) - 升级归来~）回复于 2005-09-22 15:29:21 得分 10

rst.Save "c:\xx.xml",adPersistXMLTop

2 楼moany（长枪大戟）回复于 2005-09-22 15:37:00 得分 0

绿豆兄的也太简练了，能否给出详细点的源码？Top

3 楼supergreenbean（超级绿豆(MSMVP - VB) - 升级归来~）回复于 2005-09-22 15:55:14 得分 0

呵呵,在这save前面不就是连接啊,打开记录集什么的吧,这个跟用什么数据库没啥关系Top

4 楼moany（长枪大戟）回复于 2005-09-22 15:59:43 得分 0

刚开始用Oracle啊，原来一直在SQL Server下挣扎，用SQL Server很好实现的，Oracle一点不动啊，能不能说的详细一点啊？rst是什么类型？Top

5 楼moany（长枪大戟）回复于 2005-09-22 16:06:49 得分 0

实现了！谢谢绿豆兄，原来这么简单！Top

6 楼supergreenbean（超级绿豆(MSMVP - VB) - 升级归来~）回复于 2005-09-22 16:07:23 得分 0

^_^ hoho~~~Top

7 楼moany（长枪大戟）回复于 2005-09-22 16:09:02 得分 0

绿豆兄，这好象太全了吧？我要是只想要数据呢？另外，怎么从XML文件往数据库里导啊？Top

8 楼w3k（网络3K）回复于 2005-09-22 16:37:21 得分 0

好久没来了，顶先Top

9 楼moany（长枪大戟）回复于 2005-09-22 16:43:28 得分 0

这么一存，连字段类型都包括了，我的意思是只要数据。Top

10 楼supergreenbean（超级绿豆(MSMVP - VB) - 升级归来~）回复于 2005-09-22 17:22:30 得分 0

阿门,那就没有试过了,建议好好研究一下文档先Top

11 楼moany（长枪大戟）回复于 2005-09-23 08:01:18 得分 0

谢谢绿豆兄！谢谢w3k！Top

12 楼vansoft（Vansoft Workroom）回复于 2005-09-23 10:08:30 得分 0

用XML庫來開發XML文檔啊。Top

13 楼moany（长枪大戟）回复于 2005-09-23 13:15:27 得分 0

用XML庫來開發XML文檔啊。

----------------------------------
不懂，顶先:)Top

14 楼myhgyp（也许是这样的，信不信由你）回复于 2005-09-23 13:20:55 得分 10

rs.open "d:\2.xml", ,adOpenDynamic, adLockOptimistic, adCmdFile '不用数据库连接
If Not (rs.BOF And rs.EOF) Then
rs.movefirst
do while not rs.eof
AppConn.execute("insert into ...")
rs.movenext
loop
end ifTop

15 楼moany（长枪大戟）回复于 2005-09-23 13:38:09 得分 0

to:myhgyp(也许是这样的，信不信由你)
rs.open "d:\2.xml", ,adOpenDynamic, adLockOptimistic, adCmdFile '不用数据库连接
这一句对我帮助很大，我原来不知道ADODB.Recordset可以打开文件的，可是下面的就看不懂了，执行insert into的时候数据从那里来呢？Top

16 楼myhgyp（也许是这样的，信不信由你）回复于 2005-09-23 15:29:31 得分 0

只是把读出的记录循环写入数据库呀，其中Appconn为数据库连接对象Top

17 楼moany（长枪大戟）回复于 2005-09-23 16:28:49 得分 0

我就是不知道insert into后面怎么写，表是不同的，每个表一个文件，一共有30多个表。Top

18 楼myhgyp（也许是这样的，信不信由你）回复于 2005-09-23 17:04:26 得分 0

你要往哪张表写总知道吧
insert into 表名(字段名1,字段名2) values(Rs!字段名1，Rs!字段名1)Top

19 楼moany（长枪大戟）回复于 2005-09-25 09:55:49 得分 0

我有几十个表啊，我想写一个通用的函数，所以不能这样依靠具体的字段。Top

20 楼moany（长枪大戟）回复于 2005-09-26 10:29:00 得分 0

自己顶一下，没人出手就结贴了。Top