VB中怎么对数据库中的数据求和

定义好数据库的相关连接和数据类型定义后.

Select Sum(每日收入) From 收入 Where 月份 = '" &4 &"'"

得到该记录集合的第一个字段即是你要要的数据.

添加一个Adodc控件，命名Adodc2

Adodc2.ConnectionString = "provider=microsoft.jet.oledb.4.0data source=" &App.Path &"\vb_data.mdb"

Adodc2.RecordSource = "select sum(营业收入) as 营业收入和 from zhangdan"

Adodc2.Refresh

Label6.Caption = Adodc2.Recordset.Fields("营业收入和")

---