以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教：如何提取项目中所有外部数据源做列表项目？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5915)
--  作者：yangming
--  发布时间：2010/1/31 14:19:00
--  请教：如何提取项目中所有外部数据源做列表项目？

请教：如何提取项目中所有外部数据源做列表项目？

 
--  作者：czy
--  发布时间：2010/1/31 14:22:00
--  
是外部数据表？还是所有外部数据源链接中的所有表？还是指定外部数据源中的所有表？
--  作者：yangming
--  发布时间：2010/1/31 14:36:00
--  
以下是引用czy在2010-1-31 14:22:00的发言：
是外部数据表？还是所有外部数据源链接中的所有表？还是指定外部数据源中的所有表？

外部数据源名称，比如，一个项目中有三个外部数据源，我想提取这三个外部数据源名称做列表项目，供用户选择
--  作者：czy
--  发布时间：2010/1/31 15:56:00
--  
这个应该很简单的。

Dim datas As String
For Each data As String in GetTableNamesFromConnection("A")
    datas = datas & "|" & data
Next
For Each data1 As String in GetTableNamesFromConnection("B")
    datas = datas & "|" & data1
Next
Output.show(datas)
--  作者：yangming
--  发布时间：2010/1/31 16:31:00
--  
以下是引用czy在2010-1-31 15:56:00的发言：
这个应该很简单的。

Dim datas As String
For Each data As String in GetTableNamesFromConnection("A")
    datas = datas & "|" & data
Next
For Each data1 As String in GetTableNamesFromConnection("B")
    datas = datas & "|" & data1
Next
Output.show(datas)

谢谢，我要的是数据源名称，而不是要各数据源中所有表的名称，呵呵，比如有三个数据源，ABC，那么列表项目就应该是：
A
B
C

[此贴子已经被作者于2010-1-31 16:31:34编辑过]
--  作者：mr725
--  发布时间：2010/1/31 18:46:00
--  
数据源名称反正都是一个个命名的，就这样解决吧：：
用任何表的一列专门存放数据源名称，需要是调用～ 
--  作者：程兴刚
--  发布时间：2010/1/31 18:53:00
--  
这个要求可以否决：
1、因为固定的外部数据源只有设计者提前预定，可以将固定增加的外部数据源写入项目信息；
     比如，每增加一个外部数据源以后，命令窗口执行：
          SaveConfigValue("数据源列表",GetConfigValue("数据源列表","") & "|" & "新数据源名称")
2、当动态增减外部数据源的同时，向这个项目信息写入或删除项目信息
    2.1、动态删除外部数据源后立即执行：
        (GetConfigValue("数据源列表","") & "|*").Replace("数据源3" & "|","").Replace("*","")
           （这里假定删除“数据源3”）
    2.2、动态增加外部数据源的时候执行：
         if GetConfigValue("数据源列表","").Contains("新数据源名称") = true
             MessageBox.Show("该数据源名称已经存在，请更名后再添加！", "警告", MessageBoxButtons.ok, MessageBoxIcon.Information)
         else
             SaveConfigValue("数据源列表",GetConfigValue("数据源列表","") & "|" & "新数据源名称“)
              \'您的动态添加外部数据源的代码
               .............
         end if

      通过上述处理，任意时候调用数据源列表：GetConfigValue("数据源列表","") 
      （没经过测试，理论上可行）
       

--  作者：yangming
--  发布时间：2010/1/31 19:00:00
--  

二位说的有理，我也是想着要做一个表来存放
--  作者：czy
--  发布时间：2010/1/31 19:19:00
--  
动态取所有数据源应该也没有问题吧。
--  作者：yangming
--  发布时间：2010/1/31 21:01:00
--  
以下是引用czy在2010-1-31 19:19:00的发言：
动态取所有数据源应该也没有问题吧。

如何做？