以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何获得所有数据源名做为某列的列表项目  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175340)
--  作者：北狐
--  发布时间：2022/3/1 16:40:00
--  如何获得所有数据源名做为某列的列表项目
For Each cn As Connection In Connections
    Output.Show("名称:" & cn.Name)
  
Next
--  作者：有点蓝
--  发布时间：2022/3/1 16:42:00
--  
dim s as string
For Each cn As Connection In Connections
    s = s & "|" & cn.Name
  
Next
s = s.trim("|")
Tables("xx").Cols("xx列").Combolist = s
--  作者：北狐
--  发布时间：2022/3/6 14:45:00
--  
以下是获取内部数据源的所有表名
Dim cwrb As New SQLCommand   \'获取表名
Dim rb As DataTable
cwrb.CommandText = "查 table_name AS 表名 from information_schema.Columns"
rb = cwrb.ExecuteReader()
Dim s As String= "" & rb.GetComboListString("表名").Replace("|","|") & " "

但报错如下
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.1.30.2
错误所在事件：
详细错误信息：
找不到文件 \'D:\\凭证生成\\information_schema.mdb\'。

请问老师，要如何识别外部数据源是否为ACCess，和获取内部数据源和外部数据源是ACCess时的所有表名和字段？
[此贴子已经被作者于2022/3/6 15:09:43编辑过]
--  作者：有点蓝
--  发布时间：2022/3/6 20:55:00
--  
内部表名称遍历datatables获取即可：http://www.foxtable.com/webhelp/topics/0365.htm


SourceType整数型，返回数据源的类型，1表示Access，2表示SQL Server，3表示Oracle。
--  作者：北狐
--  发布时间：2022/3/26 18:07:00
--  
    老师，获取外部数据源的A表的所有列名
以下代码要如何修改才能用？
Dim lst As List(Of String)
    lst = Connections("" & sjy & "").GetTableNames
--  作者：有点蓝
--  发布时间：2022/3/27 20:09:00
--  
如果表格有加载，参考：http://www.foxtable.com/webhelp/topics/1428.htm
如果没有加载，先使用SQLcommand加载一个空表：http://www.foxtable.com/webhelp/topics/0696.htm，然后使用上面同样方法遍历列