标题：求代码

有谁能写出这两个截图中“确定”按钮的代码。这两个按钮是有关联的，按第一个确定，出现第二个截图，再按第二个截图中的确定。
此主题相关图片如下：连接.gif


此主题相关图片如下：导入.gif

一个系统，如果经常需要从外面合并数据，是可以理解的。

如果经常需要从外面导入数据，而且是一次导入所有的表，那么绝对是一个糟糕的设计，应该考虑用动态切换数据源。

经常需要从别的SQL数据库导入指定的若干个数据表.我会从窗口一步步导入指定的表,但其他人就不知道了,所以需要设计操作窗口,别人只要选中指定的数据表,就能导入SQL数据表.

因为数据库的表太多,也只需导入若干个表就行了.

这是最终的操作窗口

此主题相关图片如下：未命名.bmp
65

若能从其他数据库获取数据,就能提高狐表和其他软件的信息共享,对推广狐表是有宣传效果的.

  这样你可以搞定了吧:

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

至于保存到狐表,那你就得从新定向数据表了

这个用过,但有的表不能导入,且新生成的表在下次打开狐表没有了.

 

如何真的没有办法,只好如此了.