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

答案：完整的程序代码如下：
  
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

上一个：怎么用VB做一个关于计算机的管理程序？
下一个：姹傞珮鎵嬬湅鐪嬫垜鐢╒B鍐欑殑绋嬪簭鍝噷閿欎簡 - 宸茶В鍐?- 鎼滄悳闂棶