Question

vb SQL语句查询结果求和问题，着急

SQL数据表X中的数据如下有批次：
编码 数量 批次
A 100 A1
B 50 B1
B 100 B2
……
现在想查询汇总出B的总和 b=150 写入到数据表y中（y表无批次）
求汇总写入的方法？？

如何累加 a（k）的数量，写入数据表y？？
结果像这样
型号 数量
A 100

B 150
C 300
……
我只会查询 不会累加写入
SQL = "SELECT * FROM x where 数量 <> 0 "
Set rs = Selectsql(SQL)
If Not rs.EOF Then
ReDim a(rs.RecordCount)
For k = 1 To rs.RecordCount
a(k) = rs.Fields("型号").Value & "" & "---" & rs.Fields("数量").Value & ""
rs.MoveNext
Print a(k)
Next k
不是直接写入到y，应该用更新 update语句 ，y中有编码

Answer 1

只更新表y中的b，那麼
update y set 数量=(select sum(数量) from x where 编码='B') where 型号='B'

根据x全部更新y，则
update y set y.数量=x.s
from y ,(select 编码,sum(数量) as s from x group by 编码) as x
where y.型号=x.编码

Answer 2

insert into y
select 编码, sum(数量) from x group by 编码

执行这个SQL就可以了

追问

select 编码, sum(数量) from x group by 编码

这个我有查询条件 怎么加上？？ where 分类=

Answer 3

s=0
For k = 1 To rs.RecordCount
a(k) = rs.Fields("型号").Value & "" & "---" & rs.Fields("数量").Value & ""
s=s+rs.Fields("数量").Value
rs.MoveNext
Print a(k)
Next k
debug.print s
sql="update y set 数量=" & s
cn.Excute sql

Answer 4

select 编码，sum（数量） into 表b（型号，数量） from 表x group by 编码