Question

VB里面关于数据库里数据统计的问题。

有一个表MYDB.mdb 其中有三个字段分别是日期 项目 金额。用的是ADODC控件。

例如，如何将某月（2008-12）的所有"转运费"（属于项目）的金额相加。

代码要完整些。

急！！！

Answer 1

可以利用聚集函数sum,我有一段类似的代码你参考一下吧,稍做修改就可以了.
Private Sub Cmd_Find_Click() '【查询】按钮
If Combo1.Text = "" Then
MsgBox "请在列表框中选择项目", , "信息提示"
Combo1.ListIndex = 0
Combo1.SetFocus
Exit Sub
Else
Adodc1.RecordSource = "select sum(金额) as 金额 from tb_xsb where left(日期,7) = '2005-' + '" + Trim(Combo1.Text) + "' "
Adodc1.Refresh
On Error Resume Next
If Adodc1.Recordset.RecordCount > 0 Then
Lbl_Total = Adodc1.Recordset.Fields(0)
Else
Lbl_Total.Caption = 0
End If
Adodc1.RecordSource = "select 书号,书名,sum(金额) as 金额 ,left(日期,7) as 日期 from tb_xsb where left(日期,7) = '2005-' + '" + Trim(Combo1.Text) + "' group by 书号,书名 , left(日期,7)"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Lbl_Count = Adodc1.Recordset.RecordCount
Else
Lbl_Count = 0
End If
Set DataGrid1.DataSource = Adodc1

End If
End Sub

Answer 2

Open dbstring '连接数据库 sql ="select * from db1 where [字段名] = 101" rs.Open sql,Conn '执行SQL '有记录的情况 If Not rs.EOF Then Command1.Caption = "有" End If '断开连接