- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7665)
-- 发布时间：2010/7/22 9:29:00
-- 求代码
有谁能写出这两个截图中“确定”按钮的代码。这两个按钮是有关联的，按第一个确定，出现第二个截图，再按第二个截图中的确定。
此主题相关图片如下：连接.gif
此主题相关图片如下：导入.gif
[此贴子已经被作者于2010-7-22 9:31:09编辑过]
-- 发布时间：2010/7/22 10:57:00
--
一个系统，如果经常需要从外面合并数据，是可以理解的。
如果经常需要从外面导入数据，而且是一次导入所有的表，那么绝对是一个糟糕的设计，应该考虑用动态切换数据源。
[此贴子已经被作者于2010-7-22 11:00:07编辑过]
-- 发布时间：2010/7/22 12:04:00
--
经常需要从别的SQL数据库导入指定的若干个数据表.我会从窗口一步步导入指定的表,但其他人就不知道了,所以需要设计操作窗口,别人只要选中指定的数据表,就能导入SQL数据表.
-- 发布时间：2010/7/22 12:05:00
--
因为数据库的表太多,也只需导入若干个表就行了.
-- 发布时间：2010/7/22 12:08:00
--
这是最终的操作窗口
此主题相关图片如下：未命名.bmp
65-- 发布时间：2010/7/22 12:15:00
--
若能从其他数据库获取数据,就能提高狐表和其他软件的信息共享,对推广狐表是有宣传效果的.
-- 发布时间：2010/7/22 12:44:00
--
这样你可以搞定了吧:
1 建立数据源::::::::
Connections.Add("test","Provider=SQLOLEDB;Persist Security Info=*;User ID=sa;Initial Catalog=NorthWind;Data Source=linhe60")
2 得到数据源所有表名:::::;
Dim lst As List(Of String)
lst = Connections("test").GetTableNames
For Each nm As String In lst
Output.Show(nm)
Next
3 在狐表中生成外部表::::::::::
Dim q As new OuterTableBuilder \'或查询表 : new QueryBuilder
q.TableName = "选定的数据源中的表"
q.TableCaption = "自己给表取的名字"
q.Connection Name = "test"
q.SelectString = "Select * From {选定的外部表} Where 条件 "
q.Build
[此贴子已经被作者于2010-7-22 12:47:23编辑过]
-- 发布时间：2010/7/22 12:45:00
--
至于保存到狐表,那你就得从新定向数据表了
-- 发布时间：2010/7/22 12:47:00
--
这个用过,但有的表不能导入,且新生成的表在下次打开狐表没有了.
-- 发布时间：2010/7/22 12:48:00
--
如何真的没有办法,只好如此了.