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