主题：一键定向

值得给个精华!

不可能的,测试过了,后台直接可以定向的.前台看不见的.你要做两个数据源  A和B  A是原数据源  B是一个新的数据源,没有任何东西的.

再发一个内部表定向到外部表的代码:

 

  Dim Builder As New ADOXBuilder("服务器") '要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
For Each dt As DataTable In DataTables
    tbl = Builder.NewTable(dt.Name) 创建表
    For Each dc As DataCol In DataTables(dt.Name).DataCols
        With tbl
            Select Case dc.DataType.Name
                Case  "String"
                    .AddColumn(dc.Name ,ADOXType.String,100)
                Case  "DateTime"
                    .AddColumn(dc.Name ,ADOXType.DateTime)
                Case  "Boolean"
                    .AddColumn(dc.Name ,ADOXType.Boolean)
                Case  "Double"
                    .AddColumn(dc.Name ,ADOXType.Double)
                Case  "Text"
                    .AddColumn(dc.Name ,ADOXType.Text)
                Case  "Integer"
                    .AddColumn(dc.Name ,ADOXType.Integer)
                Case  "Short"
                    .AddColumn(dc.Name ,ADOXType.Short)
                Case  "Byte"
                    .AddColumn(dc.Name ,ADOXType.Byte)
                Case  "Single"
                    .AddColumn(dc.Name ,ADOXType.Single)
                Case  "Decimal"
                    .AddColumn(dc.Name ,ADOXType.Decimal)
            End Select
        End With
    Next
    Builder.AddTable(tbl,True,True) '增加表
Next
Builder.Close()
Syscmd.Project.Open(ProjectFile)

老大,外部表转内部表:

 

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
Dim lst As List(Of String)
lst = Connections("BB").GetTableNames
For Each nm As String In lst
    tbl = Builder.NewTable(nm)
    For Each dc As DataCol In DataTables(nm).DataCols

 

这儿的nm是字符串,不是表,这个地方应该怎么改才行?

哈哈,外部表转入内部的一键定向的代码也做出来了:

 

Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim lst As List(Of String)
lst = Connections("BB").GetTableNames
For Each nm As String In lst
    cmd.CommandText = "SELECT * From {" & nm & " } Where [_Identify] Is Null"
    cmd.C
    dt = cmd.ExecuteReader()
    tbl = Builder.NewTable(nm) '创建表
    For Each dc As DataCol In dt.DataCols
        With tbl
            Select Case dc.DataType.Name
                Case  "String"
                    .AddColumn(dc.Name ,ADOXType.String,100)
                Case  "DateTime"
                    .AddColumn(dc.Name ,ADOXType.DateTime)
                Case  "Boolean"
                    .AddColumn(dc.Name ,ADOXType.Boolean)
                Case  "Double"
                    .AddColumn(dc.Name ,ADOXType.Double)
                Case  "Text"
                    .AddColumn(dc.Name ,ADOXType.Text)
                Case  "Integer"
                    .AddColumn(dc.Name ,ADOXType.Integer)
                Case  "Short"
                    .AddColumn(dc.Name ,ADOXType.Short)
                Case  "Byte"
                    .AddColumn(dc.Name ,ADOXType.Byte)
                Case  "Single"
                    .AddColumn(dc.Name ,ADOXType.Single)
                Case  "Decimal"
                    .AddColumn(dc.Name ,ADOXType.Decimal)
            End Select
        End With
    Next
    Builder.AddTable(tbl,True,True) '增加表
Next
Builder.Close()
Syscmd.Project.Open(ProjectFile)

 

一楼改过了外部到外部的代码.