求导入合并数据代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求导入合并数据代码

共有23615人关注过本帖树形打印复制链接主题：求导入合并数据代码

exonjee

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

求导入合并数据代码 发帖心情

Post By：2009/6/5 13:01:00 [只看该作者]

1、删除当前表的所有行代码如何写
2、Merger合并文件时不能正确导入数据上，编写代码如下：附原始文件

Dim dlg As New OpenFileDialog '定一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls;*.csv" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   FileSys.CopyFile(dlg.filename, "C:\kk.txt",True)
   Dim mg As New Merger
   mg.SourcePath = "c:\" '指定数据文件所在目录
   mg.Format = "Delimited" '指定格式
   mg.SourceTableName = "kk" '指定要合并的文本文件,无需扩展名
   mg.DataTableName = "data" '指定接收数据的表
   mg.Merge() '开始合并
end if

[此贴子已经被作者于2009-6-5 13:45:55编辑过]

狐哥

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：719 积分：5181 威望：0 精华：1 注册：2008/9/24 10:41:00

Post By：2009/6/5 13:18:00 [只看该作者]

1.DataTables("表").DataRows.Clear()
2.没试过

exonjee

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

Post By：2009/6/5 13:34:00 [只看该作者]

请用附件进行测试原始文件(1楼附件)，导入数据为空白，谢谢!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:项目a.table

原始CSV文件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:aaa.rar

[此贴子已经被作者于2009-6-8 10:32:28编辑过]

yangming

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/5 13:47:00 [只看该作者]

一楼没有附件?你要合并的到底是TXT文件还是EXCEL文件?

[此贴子已经被作者于2009-6-5 14:02:04编辑过]

exonjee

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：352 积分：3192 威望：0 精华：0 注册：2008/9/1 9:38:00

Post By：2009/6/5 14:03:00 [只看该作者]

要导入的原始文件

[此贴子已经被作者于2009-6-8 12:50:34编辑过]

yangming

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/6/5 16:30:00 [只看该作者]

Dim mg As New Merger
mg.SourcePath = "c:\AAA.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "AAA$" '指定要合并的表
mg.DataTableName = "data" '指定接收数据的表
mg.Merge() '开始合并

林中侠

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

德凯软件工作室
等级：幼狐帖子：166 积分：1435 威望：0 精华：0 注册：2008/9/4 14:26:00

Post By：2009/6/5 16:42:00 [只看该作者]

以下是引用yangming在2009-6-5 16:30:00的发言：
Dim mg As New Merger
mg.SourcePath = "c:\AAA.xls"
mg.Format = "excel" '指定格式
mg.SourceTableName = "AAA$" '指定要合并的表
mg.DataTableName = "data" '指定接收数据的表
mg.Merge() '开始合并

能加上个由用户指定打开路径的代码，然后选择要合并的文件，这个代码只能放在固定的地方。