Vb数据库中某列求和，就是统计核算

添加一个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("营业收入和")

要注意细节：

rs.Open "select sum(02)from 表2", Con, 1, 1

这里，from与前面必须要空一格！

一般格式是：楼上回答的那样；

rs.Open "select sum(字段名) As AA from 表2", Con, 1, 1

其中：字段名应该用你要统计的具体字段名

这里求列值和的方法我觉得最起码有三种:

1、按照DataGrid列求和

dim Sum as Double

dim I as Integer

dim n as Long

'取得窗体中连接DataGrid 的数据源的记录个数

n=Adodc1.RecordSet.RecordCount

'如求第7列的和

Sum=0

For i=1 to n

Sum=Sum+Val(DataGrid.Coclumns(6).Text)

Next i

'统计结果

Text1.Text=Format(Sum,"#0.00")

2、利用Adorc1数据源建立数据镜像

Dim sn As New ADODB.Recordset

dim Sum as Double

Set sn=Adodc1.Recordset.Clone()

Sum=0

Do While Not sn.Eof

Sum=Sum+sn(“字段名")'求和的字段名称

sn.MoveNext

Loop

'统计结果

Text1.Text=Format(Sum,"#0.00")

3、将查询条件关联到SQL语句中，直接在数据库中求和

Din sn As New ADODB.Recordset

dim mySQL as String

....

conn 为连接的数据源

mySQL="SELECT Sum(字段名) From 表名 Where ("+ 筛选条件+")"

SET sn.Open mySQL,conn,adOpenDynamic, adLockReadOnly

'sn(0) 中就是求和的结果

Text1.Text=Format(sn(0),"#0.00")

---