主题：[求助]生成的SQL查询表

 参考

 

http://www.foxtable.com/webhelp/scr/2322.htm

 

如何展示在一张表里面？表A有3列10行，表B有三列5行，最后得到的查询表是怎样的？

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
Dim sql As String = ""
Dim s1,s2 As String
For Each dc As DataCol In dt1.datacols
    If dc.Expression = "" Then
        s1 &= dc.name & ","
        s2 &= "'' as " & dc.name & ","
    End If
Next
For Each dc As DataCol In dt2.datacols
    If dc.Expression = "" Then
        s1 &= "'' as " & dc.name & ","
        s2 &= dc.name & ","
    End If
Next
sql &= "select " & s1.trim(",") & " from {" & dt1.name & "}"
sql &= " union all Select " & s2.trim(",") & " from {" & dt2.name & "}"
output.show(sql)

 回复7楼，最好还是指定表名_列名，不然你引用的时候，有可能列名重复。

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
Dim sql As String = ""
Dim s1,s2 As String
For Each dc As DataCol In dt1.datacols
    If dc.Expression = "" Then
        s1 &= dc.name & " as " & dt1.name & "_" & dc.name & ","
        s2 &= "'' as " & dc.name & ","
    End If
Next
For Each dc As DataCol In dt2.datacols
    If dc.Expression = "" Then
        s1 &= "'' as " & dt2.name & "_"  & dc.name & ","
        s2 &= "[" & dc.name & "],"
    End If
Next
sql &= "select " & s1.trim(",") & " from {" & dt1.name & "}"
sql &= " union all Select " & s2.trim(",") & " from {" & dt2.name & "}"
output.show(sql)

先看懂12楼代码，多个表，就是一个循环而已。

 1、access数据库最大列数是255；

 

 2、请照抄12楼代码；

 

 3、你可以用这种方式新建表，然后填充各个表的数据，参考

 

http://www.foxtable.com/webhelp/scr/0679.htm

 

 

 

sqlserver没有列数限制。

 

新建表，尽量用这种方法 http://www.foxtable.com/webhelp/scr/0679.htm

 

 

sqlserver没有列数限制。

 回复22楼，可以的。