SQLselect错误:太多的行延续

我有代码,只会让我select22列,然后出现“太多的行延续”,如果我尝试添加另一个。

我有大约100列添加这个公式,并需要复制另外100个不需要“检查”。

strSQL = "SELECT a.[A], " _ & "(SELECT Max([Serial]) FROM [Data$] b WHERE b.[A]=aA) As Serial, " _ & "(SELECT Max([B]) FROM [Data$] b WHERE b.[A]=aA) As B, " _ & "(SELECT Max([C]) FROM [Data$] b WHERE b.[A]=aA) As C, " _ & "(SELECT Max([D]) FROM [Data$] b WHERE b.[A]=aA ) As D, " _ & "(SELECT Max([E]) FROM [Data$] b WHERE b.[A]=aA ) As E, " _ & "(SELECT Max([F]) FROM [Data$] b WHERE b.[A]=aA ) As F, " _ & "(SELECT Max([G]) FROM [Data$] b WHERE b.[A]=aA ) As G, " _ & "(SELECT Max([H]) FROM [Data$] b WHERE b.[A]=aA ) As H, " _ & "(SELECT Max([I]) FROM [Data$] b WHERE b.[A]=aA ) As I, " _ & "(SELECT Max([J]) FROM [Data$] b WHERE b.[A]=aA ) As J, " _ & "(SELECT Max([K]) FROM [Data$] b WHERE b.[A]=aA ) As K, " _ & "(SELECT Max([L]) FROM [Data$] b WHERE b.[A]=aA ) As L, " _ & "(SELECT Max([M]) FROM [Data$] b WHERE b.[A]=aA ) As M, " _ & "(SELECT Max([N]) FROM [Data$] b WHERE b.[A]=aA ) As N, " _ & "(SELECT Max([O]) FROM [Data$] b WHERE b.[A]=aA ) As O, " _ & "(SELECT Max([P]) FROM [Data$] b WHERE b.[A]=aA ) As P, " _ & "(SELECT Max([Q]) FROM [Data$] b WHERE b.[A]=aA ) As Q, " _ & "(SELECT Max([R]) FROM [Data$] b WHERE b.[A]=aA ) As R, " _ & "(SELECT Max([S]) FROM [Data$] b WHERE b.[A]=aA ) As S, " _ & "(SELECT Max([T]) FROM [Data$] b WHERE b.[A]=aA ) As T, " _ & "(SELECT Max([U]) FROM [Data$] b WHERE b.[A]=aA ) As U, " _ & "(SELECT Max([V]) FROM [Data$] b WHERE b.[A]=aA ) As V " _ & "FROM [Data$] a " _ & "GROUP BY a.[A]" 

那么,让它less一些线,每一行更长一点…

 strSQL = "SELECT a.[A], " _ & "(SELECT Max([Serial]) FROM [Data$] b WHERE b.[A]=aA) As Serial, " _ & "(SELECT Max([B]) FROM [Data$] b WHERE b.[A]=aA) As B, (SELECT Max([C]) FROM [Data$] b WHERE b.[A]=aA) As C, (SELECT Max([D]) FROM [Data$] b WHERE b.[A]=aA ) As D, " _ & "(SELECT Max([E]) FROM [Data$] b WHERE b.[A]=aA ) As E, (SELECT Max([F]) FROM [Data$] b WHERE b.[A]=aA ) As F, (SELECT Max([G]) FROM [Data$] b WHERE b.[A]=aA ) As G, " _ & "(SELECT Max([H]) FROM [Data$] b WHERE b.[A]=aA ) As H, (SELECT Max([I]) FROM [Data$] b WHERE b.[A]=aA ) As I, (SELECT Max([J]) FROM [Data$] b WHERE b.[A]=aA ) As J, " _ & "(SELECT Max([K]) FROM [Data$] b WHERE b.[A]=aA ) As K, (SELECT Max([L]) FROM [Data$] b WHERE b.[A]=aA ) As L, (SELECT Max([M]) FROM [Data$] b WHERE b.[A]=aA ) As M, " _ & "(SELECT Max([N]) FROM [Data$] b WHERE b.[A]=aA ) As N, (SELECT Max([O]) FROM [Data$] b WHERE b.[A]=aA ) As O, (SELECT Max([P]) FROM [Data$] b WHERE b.[A]=aA ) As P, " _ & "(SELECT Max([Q]) FROM [Data$] b WHERE b.[A]=aA ) As Q, (SELECT Max([R]) FROM [Data$] b WHERE b.[A]=aA ) As R, (SELECT Max([S]) FROM [Data$] b WHERE b.[A]=aA ) As S, " _ & "(SELECT Max([T]) FROM [Data$] b WHERE b.[A]=aA ) As T, (SELECT Max([U]) FROM [Data$] b WHERE b.[A]=aA ) As U, (SELECT Max([V]) FROM [Data$] b WHERE b.[A]=aA ) As V " _ & "FROM [Data$] a " _ & "GROUP BY a.[A]" 

或者发表声明

 strSql = "bla bla" strSql = strSql & "bla bla 2" strSql = strSql & "bla bla 3" strSql = strSql & "bla bla 4" ... strSql = strSql & "bla bla n" 

这将保持它的可读性,而不是跨越许多文本列。