Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何获得所有数据源名做为某列的列表项目


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

主题：如何获得所有数据源名做为某列的列表项目
帅哥哟，离线，有人找我吗？
北狐
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1463 威望：0 精华：0 注册：2013/8/7 18:14:00 		如何获得所有数据源名做为某列的列表项目  发帖心情 Post By：2022/3/1 16:40:00 [只看该作者]

For Each cn As Connection In Connections
    Output.Show("名称:" & cn.Name)
  
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
北狐
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1463 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/6 20:55:00 [只看该作者]

内部表名称遍历datatables获取即可：http://www.foxtable.com/webhelp/topics/0365.htm


SourceType整数型，返回数据源的类型，1表示Access，2表示SQL Server，3表示Oracle。
 回到顶部
帅哥哟，离线，有人找我吗？
北狐
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：136 积分：1463 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2022/3/26 18:07:00 [只看该作者]

    老师，获取外部数据源的A表的所有列名
以下代码要如何修改才能用？
Dim lst As List(Of String)
    lst = Connections("" & sjy & "").GetTableNames
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112355 积分：572031 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/3/27 20:09:00 [只看该作者]

如果表格有加载，参考：http://www.foxtable.com/webhelp/topics/1428.htm
如果没有加载，先使用SQLcommand加载一个空表：http://www.foxtable.com/webhelp/topics/0696.htm，然后使用上面同样方法遍历列
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04541 秒, 4 次数据查询