以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么把access文件中的多个表，一次性导入到foxtable的多个表中。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34163)
--  作者：黑色手推车
--  发布时间：2013/6/1 0:10:00
--  [求助]怎么把access文件中的多个表，一次性导入到foxtable的多个表中。

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

 

 

工程概况导入一次，手续办理两次，人员情况三次，怎么解决啊 ~
--  作者：Bin
--  发布时间：2013/6/1 9:34:00
--  
你要导入两次你就执行2次导入代码. 要导入三次就循环3次就行了.
--  作者：狐狸爸爸
--  发布时间：2013/6/1 11:15:00
--  
Dim mg As New Merger
mg.SourcePath = "e:\\项目管理.accdb"
mg.SourceTableName = "工程概况"
mg.DataTableName = "工程概况"
mg.Merge()
For i As Integer = 1 To  2
    mg.SourceTableName = "手续办理"
    mg.DataTableName = "手续办理"
    mg.Merge()
Next
For i As Integer = 1 To 3 Then
    mg.SourceTableName = "人员情况"
    mg.DataTableName = "人员情况"
    mg.Merge()
Next
--  作者：傻马难骑
--  发布时间：2013/6/1 11:23:00
--  
没弄明白这里是什么情况图片点击可在新窗口打开查看
--  作者：黑色手推车
--  发布时间：2013/6/1 12:41:00
--  

谢谢狐爸代码，我的意思是我用上面这个代码导出的数据是1:2:3，我想要的是点击导入按钮，直接从数据库里导入三个数据表的方法~同时应用三个数据表，每份数据表导入一次！！谢谢了`
--  作者：黑色手推车
--  发布时间：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()