[求助]怎么把access文件中的多个表，一次性导入到foxtable的多个表中。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么把access文件中的多个表，一次性导入到foxtable的多个表中。

共有5943人关注过本帖树形打印复制链接主题：[求助]怎么把access文件中的多个表，一次性导入到foxtable的多个表中。

黑色手推车

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

等级：婴狐帖子：17 积分：244 威望：0 精华：0 注册：2013/1/21 21:25:00

[求助]怎么把access文件中的多个表，一次性导入到foxtable的多个表中。 发帖心情

Post By：2013/6/1 0:10:00 [显示全部帖子]

Dim mg As New Merger
mg.SourcePath = "e:\项目管理.accdb"
mg.SourceTableName = "工程概况"
mg.DataTableName = "工程概况"
mg.Merge()

mg.SourceTableName = "手续办理"
mg.DataTableName = "手续办理"
mg.Merge()

mg.SourceTableName = "人员情况"
mg.DataTableName = "人员情况"
mg.Merge()

工程概况导入一次，手续办理两次，人员情况三次，怎么解决啊 ~

黑色手推车

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

等级：婴狐帖子：17 积分：244 威望：0 精华：0 注册：2013/1/21 21:25:00

Post By：2013/6/1 12:41:00 [显示全部帖子]

谢谢狐爸代码，我的意思是我用上面这个代码导出的数据是1:2:3，我想要的是点击导入按钮，直接从数据库里导入三个数据表的方法~同时应用三个数据表，每份数据表导入一次！！谢谢了`

黑色手推车

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

等级：婴狐帖子：17 积分：244 威望：0 精华：0 注册：2013/1/21 21:25:00

Post By：2013/6/1 13:26:00 [显示全部帖子]

改好了，谢谢各位老师，有没有什么更简洁的代码？

Dim mg1 As New Merger
mg1.SourcePath = "e:\项目管理.accdb"
mg1.SourceTableName = "工程概况"
mg1.DataTableName = "工程概况"
mg1.Merge()

Dim mg2 As New Merger
mg2.SourcePath = "e:\项目管理.accdb"
   mg2.SourceTableName = "手续办理"
   mg2.DataTableName = "手续办理"
   mg2.Merge()

Dim mg3 As New Merger
mg3.SourcePath = "e:\项目管理.accdb"
   mg3.SourceTableName = "人员情况"
   mg3.DataTableName = "人员情况"
   mg3.Merge()

主题：[求助]怎么把access文件中的多个表，一次性导入到foxtable的多个表中。