Foxtable(狐表)用户栏目专家坐堂 → 批量导入外部表


  共有3153人关注过本帖树形打印复制链接

主题:批量导入外部表

帅哥哟,离线,有人找我吗?
Bin
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/1 9:58:00 [只看该作者]

假如你文件名和表名一致

Dim lst As List(Of String)
lst = Connections("xyerp").GetTableNames
For Each nm As String In lst
    Dim mg As New Merger
mg.SourcePath = "C:\" & nm & ".xls"
mg
.Format = "excel" '指定格式
mg.ConnectionName = "xyerp" '指定数据源名称
mg.SourceTableName = nm
 '指定要合并的表
mg.DataTableName = nm
 '指定接收数据的表
mg.Merge() 
'开始合并
Next

 回到顶部
美女呀,离线,留言给我吧!
女娲娘娘
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:80 积分:908 威望:0 精华:0 注册:2014/3/31 9:01:00
  发帖心情 Post By:2014/4/1 10:02:00 [只看该作者]

以下是引用有点甜在2014-4-1 9:29:00的发言:

 没有便捷的方法的,这个功能现在只能自己变通去解决了。

 

 如果是要添加外部数据源的表,可以用这个方法,这个方法

 

http://www.foxtable.com/help/topics/1279.htm

 

这方法不行吧。有点甜有什么好办法啊?


 回到顶部
美女呀,离线,留言给我吧!
女娲娘娘
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:80 积分:908 威望:0 精华:0 注册:2014/3/31 9:01:00
  发帖心情 Post By:2014/4/1 10:11:00 [只看该作者]

以下是引用Bin在2014-4-1 9:58:00的发言:
假如你文件名和表名一致

Dim lst As List(Of String)
lst = Connections("xyerp").GetTableNames
For Each nm As String In lst
    Dim mg As New Merger
mg.SourcePath = "C:\" & nm & ".xls"
mg
.Format = "excel" '指定格式
mg.ConnectionName = "xyerp" '指定数据源名称
mg.SourceTableName = nm
 '指定要合并的表
mg.DataTableName = nm
 '指定接收数据的表
mg.Merge() 
'开始合并
Next

呵呵,现在这些表都没有呢。都是SQL数据库里的表名,现在是要在狐表里建立对应表名,这个意思,我试下啊。

 

[此贴子已经被作者于2014-4-1 10:13:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/1 10:13:00 [只看该作者]

以下是引用女娲娘娘在2014-4-1 10:02:00的发言:

这方法不行吧。有点甜有什么好办法啊?

 

没有好的办法的,如果真要做,就用 OuterTableBuilder

 

但是这些生成的,是临时表,模拟一下还可以。

 

For Each tname As String In Connections("xyerp").GetTableNames
    Dim  q As new  OuterTableBuilder
    q.TableName = tname
    q.TableCaption =  tname
    q.ConnectionName =  "xyerp"
    q.SelectString =  "Select * From {" & tname & "}"
    q.Build
Next

 

如果要批量添加外部数据源的表,现在还是得一个一个去弄,看官方以后有没有升级吧


 回到顶部
美女呀,离线,留言给我吧!
女娲娘娘
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:80 积分:908 威望:0 精华:0 注册:2014/3/31 9:01:00
  发帖心情 Post By:2014/4/1 10:14:00 [只看该作者]

以下是引用有点甜在2014-4-1 10:13:00的发言:

 

没有好的办法的,如果真要做,就用 OuterTableBuilder

 

但是这些生成的,是临时表,模拟一下还可以。

 

For Each tname As String In Connections("xyerp").GetTableNames
    Dim  q As new  OuterTableBuilder
    q.TableName = tname
    q.TableCaption =  tname
    q.ConnectionName =  "xyerp"
    q.SelectString =  "Select * From {" & tname & "}"
    q.Build
Next

 

如果要批量添加外部数据源的表,现在还是得一个一个去弄,看官方以后有没有升级吧

哈哈,有点甜,说的明白啊。谢谢你啊


 回到顶部
总数 15 上一页 1 2