SQL语句实现动态累加，求助各位大神解答

lian0753

sql语句不知道怎么实现一个表格动态实现另一个汇总表格累加，各位大神看下写的语句有什么错误，试了几个语句都实现不了




Sub DoSql()
   
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim Sql As String
    Dim i, j
   
   
   
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
    Sql = "UPDATE [计件表$] set 数量=sum(数量) where [添加表$].姓名=[计件表$].姓名" '数量累加,按姓名统计
   
    j = Range("a1000").End(xlUp).Row
For i = 2 To j

n = Cells(i, 4)
m = Cells(i, 1)
    Sql = "UPDATE [计件表$] SET 数量=  数量 +" & n & "  where 姓名= '" & m & "'" '数量累加,按姓名统计
   
    'Sql = "UPDATE [计件表$] SET 工资=  工资 + 200 where 姓名='看见星光'"
    'Sql = "update [计件表$] set 性别= '男', 工龄= 8 where 姓名= '仓井'"
   
  Next
   
   
    rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
   
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
   
End Sub

ly

1. Sql = "UPDATE [计件表$] SET [计件表$].数量 = DSum('[数量]','[添加表$]',""姓名='"" & [计件表$].[姓名] & ""'"")+[计件表$].[数量]"

复制代码

lian0753

ly 发表于 2023-11-15 07:30

谢谢大佬，非常感谢，一步解决我的难题。想几天前各种语句试了好几天就是不行

lian0753

ly 发表于 2023-11-15 07:30

添加了数据后实现不了更新，那句语句不知道为啥增加数据后失效了，麻烦大神看下有什么错误，谢谢

ly

lian0753 发表于 2023-11-15 14:24
添加了数据后实现不了更新，那句语句不知道为啥增加数据后失效了，麻烦大神看下有什么错误，谢谢

把空值转换为数值0即可。

lian0753

ly 发表于 2023-11-15 20:35
把空值转换为数值0即可。

感谢大哥，这个空值不支持sql？我就说为啥一下字行一下子又不行