- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 导入文本文件的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33722)
-- 发布时间：2013/5/23 11:51:00
-- 导入文本文件的问题
我要把文本文件导入到一个叫“贷款分户账"的表中，以下代码为什么报错，请老师指点：Dim dlg As New OpenFileDialog
dlg.Filter = "全部文件|*.*"
dlg.MultiSelect = False \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
Dim ip As New Importer
ip.SourcePath = dlg.FileName
ip.SourceTableName =dlg.FileName\'指定要导入的文件
ip.newTableName ="贷款分户账" \'导入后的表名
ip.Format = "Delimited" \'指定导入格式
ip.Import()
End If
dlg.Filter = "全部文件|*.*"
dlg.MultiSelect = False \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
Dim ip As New Importer
ip.SourcePath = dlg.FileName
ip.SourceTableName =dlg.FileName\'指定要导入的文件
ip.newTableName ="贷款分户账" \'导入后的表名
ip.Format = "Delimited" \'指定导入格式
ip.Import()
End If
-- 发布时间：2013/5/23 12:00:00
--
一个问题不要发2次，你要求不是导入而是合并
Dim mg As New Merger
mg.SourcePath = "c:\\data\\" \'指定数据文件所在目录
mg.Format = "Delimited" \'指定格式
mg.SourceTableName = "订单" \'指定要合并的文件，无需扩展名
mg.DataTableName = "订单" \'指定接收数据的表
mg.Merge() \'开始合并
合并文本文件的时候，最好配合有schema.ini文件。
-- 发布时间：2013/5/23 12:07:00
--
上十万条记录，合并的效率如何？
-- 发布时间：2013/5/23 12:10:00
--
合并肯定比不上导入，但你要的这个就是要合并才行的。
-- 发布时间：2013/5/23 12:13:00
--
那我导入成一个新表，这段代码也不执行啊
-- 发布时间：2013/5/23 14:35:00
--
真心求助，谁帮我看看这段代码！为什么执行后报这个错
-- 发布时间：2013/5/23 14:46:00
--
你的图片看不了
此主题相关图片如下：20089115332853484.gif
-- 发布时间：2013/5/23 14:50:00
--
真心求助，谁帮我看看这段代码！为什么执行后报这个错
此主题相关图片如下：qq图片.jpg
-- 发布时间：2013/5/23 15:09:00
--
ip.SourcePath = dlg.FileName
ip.SourceTableName =dlg.FileName\'
把蓝色的改成具体的就可以了