专家坐堂-求助XML导出问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助XML导出问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19170)

--  作者：jy119
--  发布时间：2012/4/30 1:41:00
--  求助XML导出问题

如何将多个表导出为一个XML文件

[此贴子已经被作者于2012-4-30 11:19:46编辑过]

--  作者：FoxMan
--  发布时间：2012/4/30 8:45:00
--

用Exporter遍歷導出為同一文件即可

Exporter

Exporter用于导出数据。

属性

SourceTableName
字符型，指定导出表的名称。

Filter
字符型，指定导出条件表达式；请参考表达式的运算符和函数和条件表达式。

Fields
字符型，指定导出字段(列)，不同的字段，用逗号隔开，如果不指定，则导出所有字段。
不能包括表达式列，如果导出文件一定要包括某一表达式列，那么请将该列改为普通数据列，并用代码进行计算。

Format
字符型，指定导出格式，包括Access、Access2007、Excel、Excel2007、dBASE、Delimited、Fixed
其中Delimited为符号分割的文本文件，Fixed为固定列宽的文本文件。
默认为Access
除Excel2007外，其余格式的文件均可自动创建，而Excel2007格式的目标文件必须事先已经存在。

PassWord
字符型。如果导出格式是Access，可以用此属性指定目标文件的密码。
如果目标文件是Excel格式，那么不能设置密码，否则无法正常导出。

Header
逻辑型，用于指定导出文本文件的时候，是否包括列名称。

FilePath
字符型，指定目标数据库文件名，含文件路径。
如果导出格式是dBASE或者文本文件，那么只需指定路径。

NewTableName
字符型，指定导出后的表的名称。
如果目标数据文件已经存在同名表，将不能导出。
对于dBASE和文本格式，用文件名代替表名，不含扩展名，如果目标文件已经存在，也不能导出。

方法:

Export
开始导出数据。

请将下面的示例代码复制到命令窗口进行测试。

示例一

将订单表导出为Access格式：

Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.filepath = "c:\\Data\\订单.mdb" \'指定目标文件
ex.Export() \'开始导出

示例二

将订单表导出为Access 2007格式：

Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "c:\\Data\\订单.accdb" \'指定目标文件
ex.Format = "Access2007" \'导出格式为Access 2007
ex.Export() \'开始导出

示例三

将产品PD01的订单导出为Excel格式保存，并只导出指定的列：

Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "c:\\Data\\订单.xls" \'指定目标文件
ex.Format = "Excel" \'导出格式为Excel
ex.Fields = "日期,客户,数量,单价" \'指定导出字段
ex.Filter = "[产品] = \'PD01\'" \'指定导出条件
ex.Export() \'开始导出

示例四

将订单表的数据导出为dbf格式：

Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "c:\\Data\\" \'指定目标文件路径
ex.Format = "dbase" \'导出格式为dBASE
ex.NewTableName = "订单数据" \'指定文件名，注意无须扩展名
ex.Export() \'开始导出

示例五

将订单表的数据导出为以逗号分割的文本文件：

Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "c:\\Data\\" \'指定目标文件路径
ex.Format = "Delimited" \'导出格式为符号分割的文本文件
ex.NewTableName = "订单数据" \'指定文件名，注意无须扩展名
ex.Export() \'开始导出

执行之后，同时还会生成一个配置文件schema.ini，里面有新生成文本文件的信息，还包括各列的名称、类型、宽度。

示例六

将订单表的数据导出为固定列宽的文本文件：

Dim ex as New Exporter
ex.SourceTableName = "订单" \'指定导出表
ex.FilePath = "c:\\Data\\" \'指定目标文件路径
ex.Format = "Fixed" \'导出格式为固定宽度的文本文件
ex.NewTableName = "订单数据2" \'指定文件名，注意无须扩展名
ex.Export() \'开始导出

执行之后，同时还会生成一个配置文件schema.ini，里面有新生成文本文件的信息，还包括各列的名称、类型、宽度。