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

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

共有4485人关注过本帖树形打印复制链接主题：批量导入外部表

女娲娘娘

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

加好友

发短信

等级：幼狐帖子：80 积分：908 威望：0 精华：0 注册：2014/3/31 9:01:00

批量导入外部表 发帖心情

Post By：2014/4/1 9:08:00 [显示全部帖子]

请教各位狐友，现在要在已有的系统上进行开发操作，表名有一大堆了，如何批量导入外部表名，现在的办法看来是不行，只能设置好外部数据源后一个表一个表往里边面加。有什么简单的办法和代码能实现呢？？希望狐爸能考虑加个批量导入表名的功能。

女娲娘娘

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

加好友

发短信

等级：幼狐帖子：80 积分：908 威望：0 精华：0 注册：2014/3/31 9:01:00

Post By：2014/4/1 9:19:00 [显示全部帖子]

Dim lst As List(Of String)

lst = Connections("xyerp").GetTableNames

For Each nm As String In lst

Output.Show(nm)

BIN的方法好像不对。我在帮助里找到这个办法了。列出表中，下一步没想好，请给补充一下、

[此贴子已经被作者于2014-4-1 9:23:19编辑过]

女娲娘娘

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

加好友

发短信

等级：幼狐帖子：80 积分：908 威望：0 精华：0 注册：2014/3/31 9:01:00

Post By：2014/4/1 9:25:00 [显示全部帖子]

嗯。现在有个这问题，外部数据表的导入是考虑全部数据的，或者是分开设置，就说没有这个功能么。能不能考虑将来给加一下。有利我等。

女娲娘娘

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

加好友

发短信

等级：幼狐帖子：80 积分：908 威望：0 精华：0 注册：2014/3/31 9:01:00

Post By：2014/4/1 9:53:00 [显示全部帖子]

http://www.foxtable.com/UploadFile/2014-4/2014419552564696.png

BIN版看下

此主题相关图片如下：功能要求.png

[此贴子已经被作者于2014-4-1 9:55:53编辑过]

女娲娘娘

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

女娲娘娘

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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() '开始合并

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

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

女娲娘娘

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

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

下一主题 >> << 上一主题

主题：批量导入外部表