vba中执行SQL Group的怪问题
各位大虾
我在vba里有如下代码
Dim strSql As String
Dim reCordEntity As New ADODB.Recordset
strSql = "select [COMMITEM2],[COMMITEM16],[COMMITEM17],[COMMITEM18],[COMMITEM7],[COMMITEM9],"
strSql = strSql & "sum([COMMITEM26]) as COMMITEM26, sum([COMMITEM50]) as COMMITEM50"
。。。
strSql = strSql & " from [commMtlHearMatlDataTable$]"
strSql = strSql & " group by [COMMITEM2], [COMMITEM16],[COMMITEM17],[COMMITEM18],[COMMITEM7],[COMMITEM9]"
If conn.State = adStateOpen Then
reCordEntity.Open strSql, conn, adOpenKeyset, adLockOptimistic
Do Until reCordEntity.EOF
Call groupsheetmaker(reCordEntity)
reCordEntity.MoveNext
Loop
reCordEntity.Close
End If
碰到一个奇怪的问题:
commMtlHearMatlDataTable 这个sheet里上面6个集计列,任何一列是全空,集计就不成功
哪位大虾有高招?
我在vba里有如下代码
Dim strSql As String
Dim reCordEntity As New ADODB.Recordset
strSql = "select [COMMITEM2],[COMMITEM16],[COMMITEM17],[COMMITEM18],[COMMITEM7],[COMMITEM9],"
strSql = strSql & "sum([COMMITEM26]) as COMMITEM26, sum([COMMITEM50]) as COMMITEM50"
。。。
strSql = strSql & " from [commMtlHearMatlDataTable$]"
strSql = strSql & " group by [COMMITEM2], [COMMITEM16],[COMMITEM17],[COMMITEM18],[COMMITEM7],[COMMITEM9]"
If conn.State = adStateOpen Then
reCordEntity.Open strSql, conn, adOpenKeyset, adLockOptimistic
Do Until reCordEntity.EOF
Call groupsheetmaker(reCordEntity)
reCordEntity.MoveNext
Loop
reCordEntity.Close
End If
碰到一个奇怪的问题:
commMtlHearMatlDataTable 这个sheet里上面6个集计列,任何一列是全空,集计就不成功
哪位大虾有高招?
...全文
相关推荐
EXCEL 常用SQL语句解释+VBA 完全手册
SQL在Excel中的应用主要体现在数据连接和查询上。SQL语句通常包括SELECT、FROM、WHERE、GROUP BY、ORDER BY等关键字。
经典Excel_VBA_SQL语句
### 经典Excel_VBA_SQL语句:提升SQL技能与VBA编程能力#### A、根据本工作簿的1个表查询求和写法范本**知识点:**1.
Excel_VBA+ADO+SQL入门教程看见星光.docx
二、在 VBA 中执行 SQL 语句在 VBA 中,使用 ADO 连接数据库,执行 SQL 语句可以通过以下步骤:1. 连接数据库:使用 ADO 连接数据库,需要提供数据库的连接字符串、用户名和密码。
Excel_VBA+ADO+SQL入门教程_-_汇总.pdf
如何在 VBA 中执行 SQL 语句在 VBA 中,我们可以使用 ADO(ActiveX Data Objects)对象来执行 SQL 语句。
Excel_VBA_SQL语言教程
在学习本教程时,要注意VBA和SQL的紧密结合,在Excel中通过VBA操作ADO对象来执行SQL语句,将能够处理大量数据并执行复杂的数据库操作。


Office开发/ VBA
