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() '开始导出

示例二

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

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