Exporter

Exporter用于导出数据。

属性

方法:

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

示例一

将订单表导出为Access格式:

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

示例二

如果希望打开一个保存文件对话框,导出到用户指定的文件中,可以参考下面的代码:

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter=
"Access文件|*.mdb" '设置筛选器
If
dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim
ex As New Exporter
   
ex.SourceTableName = "订单" '指定导出表
   
ex.filepath = dlg.FileName  '指定目标文件
   
ex.Export() '开始导出
End If

示例三

将订单表导出为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,里面有新生成文本文件的信息,还包括各列的名称、类型、宽度。


本页地址:http://www.foxtable.com/webhelp/topics/0683.htm