以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何读取外部数据源中表的名称?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45594)

--  作者:mingjing
--  发布时间:2014/2/5 14:58:00
--  如何读取外部数据源中表的名称?
狐表中ADO及ADOX引用的方法及属性里面没有关于数据表的名称及内容的读取,请问如何在不打开数据源的情况下取得数据表的名称及内容。
--  作者:mingjing
--  发布时间:2014/2/5 15:02:00
--  
已经知道数据源的路径及文件名,请教代码如何写?
--  作者:新福星
--  发布时间:2014/2/5 15:08:00
--  
你看下帮助中的2.16节

2.16 网络与数据源


--  作者:mingjing
--  发布时间:2014/2/5 15:15:00
--  
谢谢,我先看看,学习啦。
--  作者:mingjing
--  发布时间:2014/2/5 17:59:00
--  
好像不行啊,那个是使用指南,我说的是代码。
--  作者:mingjing
--  发布时间:2014/2/5 18:21:00
--  
找到了,编程基础中的Connection,不过只能获得外部数据源表的名字,如何取得数据还得查阅。
--  作者:mingjing
--  发布时间:2014/2/5 23:53:00
--  
还是无法连接到数据源,照着例子做的,咋回事A
--  作者:mingjing
--  发布时间:2014/2/6 14:26:00
--  
无法读入excel文件的ODBC外部数据源,不支持。
做一个导入excel表的菜单,利用打开文件对话框获取了文件目录及名称,还需要获取文件中表的名称,无法实现。就像使用功能中导入时打开了一个excel文件,下拉框中自动列出了所有表的名称、列的名称。

--  作者:mingjing
--  发布时间: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
--  发布时间: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