VB如何将数据库里多条数字记录相加

来源：百度知道 编辑：UC知道 时间：2024/05/30 02:35:04
我用的是ACCESS数据库
如我有3条记录：1.张三，3000
2.李四，2000
3.张三，2500
怎么将同样叫张三的人的数字相加并在VB中显示总和出来？
能弄个程序发给我参考的我给100分！QQ：124868756，详聊

完整的程序代码如下：

Rem 先在菜单“工程”中“引用” MicroSoft ActiveX Data Object x.x Library（用最新版本）
Rem 加个文本框Text1，用于输入姓名，把“表1”换成你的access表名
Rem 字段2是姓名所在的字段名称，字段3是数值所在的字段名称

Private Sub Command1_Click()
Dim sConnString As String, SqlQuery As String, who As String
Dim adoConn As ADODB.Connection
Dim adoRS As ADODB.Recordset

sConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\db1.mdb" '换成你的数据库文件名称
who = Trim(Text1.Text)

Set adoConn = New ADODB.Connection
adoConn.Open sConnString
Set adoRS = New ADODB.Recordset
SqlQuery = "select sum(字段3) as 字段3的和 from 表1 where 字段2='" & who & "'"
Set adoRS = adoConn.Execute(SqlQuery)
Print adoRS("字段3的和").Value
End Sub

用一ADODC连接数据库,
如果只要张三的和则:
adodc1.RecordSource="select 字段1，sum(字段2) as 字段2的和 from tablename where 字段1='张三'"
如果需要将所有人按姓名进行求和则:
adodc1.RecordS