Importer

Importer用于导入数据。

属性

方法

示例一

导入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()


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