主题：SQL语句请教

Dim lst As List(Of String)
lst = Connections("123").GetTableNames
For Each nm As String In lst
    Dim q As new outertablebuilder
    q.Tablename=nm
    q.c
    q.Selectstring="select * from [" & nm & "]"  '把SQL导入狐表的代码如何写
    q.build
Next

Connection
一般用户可以忽略本节内容，因为很少需要通过代码来管理数据源的。
Connection表示数据源。
通过Connections集合，可以获得指定名称的数据源。
示例
Dim cn As Connection = Connections("test")
Connection的属性有：
Name：        字符型，数据源的名称
SelectString：字符型，返回连接字符串
示例
列出所有的数据源及其连接字符串：
For Each cn As Connection In Connections
    Output.Show("名称:" & cn.Name)
    Output.Show("链接字符串:" & cn.ConnectionString)
Next
Connection的方法有：
GetTableNames：返回一个字符串集合，包括此数据源所有的表名。
示例：
列出外部数据源nwnd中的所有表名：
Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
    Output.Show(nm)
Next

 

有了上面的功能，你就可以：

Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
    导入nm表
Next

 

贺老师,这段代码我已看过,但不能导入没有主键的表.

导入nm表
这个代码如何写?

帮助中导入表都不是SQL格式的.

 

  导入nm表
怎么写这个代码?

Syscmd.Project.Import()

括号里能写代码就好了.

等待答案

目的不是导出SQL数据源的所有表为Excel吗?
 
Dim lst As List(Of String)
lst = Connections("nwnd").GetTableNames
For Each nm As String In lst
     Tables("窗口1_Table1").Fill("Select * From " & nm,False)
     Dim ex as New Exporter
     ex.SourceTableName = nm
     ex.FilePath = "c:\Data\订单.xls" 
     ex.Format = "Excel" 
     ex.Export()
Next

大概就是这样，你自己琢磨一下吧。

依我看,

Provider=SQLOLEDB;Password=1;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=服务器

再加个命令就可以导入数据的.