VB里,想计算SQL表里一列的指定行的字段值的和,咋滴搞,谢谢大侠们

还有,查询到一列的记录集,咋能不显示重复的字段值
2025-12-05 23:46:51
推荐回答(3个)
回答1:

sql 查询的时候用sum()聚合函数就能求和,
比如:
select 料号,sum(入库数量) as 总入库数量 from 入库记录表 group by 料号
查询的结果就是每个料号以及它们的入库数量之和;

select distinct 料号 from....查到的料号就不会重复,

以上只是简单举例,希望你能成功!

回答2:

如果你一定要VB搞,给你部分代码
Private conn0 As New ADODB.Connection
Private ConnString As String
Private SQL As String
Private rs0 As New ADODB.Recordset
Private Sub Command1_Click()

Dim i As String
Dim pc As String
SQL = "Select * From 表名"

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" + App.Path & "\QQ.mdb" + ";Persist Security Info=False" + ";" & _
"Jet OLEDB:Database Password=False"

If conn0.State <> 1 Then
conn0.Open (ConnString)
End If

rs0.Open SQL, conn0, adOpenKeyset, adLockPessimistic
ReDim ac(rs0.RecordCount) As String

Do While Not rs0.EOF
If rs0.Fields("字段") <> pc Then
ac(i) = rs0.Fields("字段")
pc = rs0.Fields("字段")
i = i + 1
rs0.MoveNext
end if
Loop

Set rs0 = Nothing
Set conn0 = Nothing

回答3:

干嘛在VB里面搞,完全可以用SQL语句实现。
1、用SQL求和,select sum(需要的列)名 from 表

2、用SQL查询出不重复的字段,select distinct 列名 from 表