Importer

Importer用于导入数据。

属性

• SourcePath
  指定要导入的数据文件，含路径。
  如果要导入的是dBASE或者Text文件，则只需指定路径。
   
• SourceTableName
  指定要导入的表的名称。
  如果要导入的是dBase或者Text文件，用文件名表示，无须扩展名。
   
• Format
  指定导入格式，包括Access、Access2007、Excel、Excel2007、dBASE、Delimited、Fixed等格式
  其中Delimited为符号分割的文本文件，Fixed为固定列宽的文本文件。
  默认为Access。
  导入文本文件的时候，最好配合有schema.ini文件，以便于指定列的类型和宽度。
   
• PassWord
  指定要导入的Access文件的密码。
   
• Filter
  指定导入条件。
   
• Fields
  指定要导入的字段(列)，不同的字段，用逗号给开，如果不指定，则导入所有字段。
   
• NewTableName
  指定导入后的表名。
   
• NewTableCaption
  指定导入后的表标题。
   
• Header
  逻辑型，如果导入的是文本文件，用此属性指定第一行是否是列名称。

方法

• Import
  开始导入数据。

示例一

导入Access文件：

Dim ip as New Importer
ip.SourcePath = "c:\Data\销售管理.mdb" '指定数据文件
ip.SourceTableName = "订单" '指定要导入的表
ip.NewTableName ="订单" '导入后的表名
ip.Import()

示例二

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

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "订单" '指定要导入的表
    ip.NewTableName ="订单" '导入后的表名
    ip.Import()
End If

示列三

导入Excel文件：

Dim ip as New Importer
ip.SourcePath = "c:\Data\销售管理.xls" '指定数据文件
ip.SourceTableName = "订单" '指定要导入的表
ip.NewTableName ="订单" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()

一些Excel文件，可能需要在表名后面加上“$”，才能正常导入，例如：

Dim ip as New Importer
ip.SourcePath = "c:\Data\销售管理.xls" '指定数据文件
ip.SourceTableName = "订单$" '指定要导入的表
ip.NewTableName ="订单" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()

示例四

导入DBF文件：

Dim ip as New Importer
ip.SourcePath = "c:\Data\" '指定目录
ip.SourceTableName = "订单" '指定要导入的文件“订单.DBF”
ip.NewTableName ="订单" '导入后的表名
ip.Format = "dbase" '指定导入格式
ip.Import()

示例五

导入文本文件：

Dim ip as New Importer
ip.SourcePath = "c:\Data\" '指定目录
ip.SourceTableName = "订单" '指定要导入的文件“订单.txt”
ip.NewTableName ="订单" '导入后的表名
ip.Format = "Delimited" '指定导入格式
ip.Import()