Foxtable(狐表)用户栏目专家坐堂 → 如何读取外部数据源中表的名称?


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

主题:如何读取外部数据源中表的名称?

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


加好友 发短信
等级:婴狐 帖子:48 积分:429 威望:0 精华:0 注册:2014/1/18 17:22:00
如何读取外部数据源中表的名称?  发帖心情 Post By:2014/2/5 14:58:00 [只看该作者]

狐表中ADO及ADOX引用的方法及属性里面没有关于数据表的名称及内容的读取,请问如何在不打开数据源的情况下取得数据表的名称及内容。

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


加好友 发短信
等级:婴狐 帖子:48 积分:429 威望:0 精华:0 注册:2014/1/18 17:22:00
  发帖心情 Post By:2014/2/5 15:02:00 [只看该作者]

已经知道数据源的路径及文件名,请教代码如何写?

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1960 积分:15560 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2014/2/5 15:08:00 [只看该作者]

你看下帮助中的2.16节

2.16 网络与数据源


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


加好友 发短信
等级:婴狐 帖子:48 积分:429 威望:0 精华:0 注册:2014/1/18 17:22:00
  发帖心情 Post By:2014/2/5 15:15:00 [只看该作者]

谢谢,我先看看,学习啦。

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


加好友 发短信
等级:婴狐 帖子:48 积分:429 威望:0 精华:0 注册:2014/1/18 17:22:00
  发帖心情 Post By:2014/2/5 17:59:00 [只看该作者]

好像不行啊,那个是使用指南,我说的是代码。

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


加好友 发短信
等级:婴狐 帖子:48 积分:429 威望:0 精华:0 注册:2014/1/18 17:22:00
  发帖心情 Post By:2014/2/5 18:21:00 [只看该作者]

找到了,编程基础中的Connection,不过只能获得外部数据源表的名字,如何取得数据还得查阅。

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


加好友 发短信
等级:婴狐 帖子:48 积分:429 威望:0 精华:0 注册:2014/1/18 17:22:00
  发帖心情 Post By:2014/2/5 23:53:00 [只看该作者]

还是无法连接到数据源,照着例子做的,咋回事A

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


加好友 发短信
等级:婴狐 帖子:48 积分:429 威望:0 精华:0 注册:2014/1/18 17:22:00
  发帖心情 Post By:2014/2/6 14:26:00 [只看该作者]

无法读入excel文件的ODBC外部数据源,不支持。
做一个导入excel表的菜单,利用打开文件对话框获取了文件目录及名称,还需要获取文件中表的名称,无法实现。就像使用功能中导入时打开了一个excel文件,下拉框中自动列出了所有表的名称、列的名称。

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


加好友 发短信
等级:婴狐 帖子:48 积分:429 威望:0 精华:0 注册:2014/1/18 17:22:00
  发帖心情 Post By:2014/2/6 16:11:00 [只看该作者]

Dim Book As New XLS.Book("C:\Users\lenovo\Desktop\基础数据收集模板.xls")

Dim str As String = ""
Dim str1 As String
Dim Sheet As XLS.Sheet
For Each sheet In book.Sheets
str = str & "|" & sheet.name
Next
str1 = str.SubString(1)
Output.Show(str1)


输出结果:职员|职员 (2),可以作为下拉框项目值赋值了。

这里只有利用book、sheet对象来解决了,高手看看有没有更好的解决办法,当然这个只能针对excel文件。


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


加好友 发短信
等级:三尾狐 帖子:760 积分:4714 威望:0 精华:0 注册:2011/12/17 18:37:00
  发帖心情 Post By:2014/2/6 17:12:00 [只看该作者]

示例

列出外部数据源nwnd中的所有表名:

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each
nm As String In lst
Output.Show(nm)

Next


 回到顶部
总数 12 1 2 下一页