例如"
数据库 表为 ABC
ABC中有 Q W E R T Y 这几个项
我要实现
Q W E R T Y 中所有数据 的总和
怎么做
'求数据库中字段总和的函数
'参数一:数据库中的表明
'参数二:字段名
'参数三:ADODB.Connection连接(已经连接数据库)
Function SumTotalField(TBName,FieldName,Con)
Dim rsSum
Set rsSum=Con.Execute("select Sum("&FieldName&") From "&TBName)
SumTotalField=rsSum.Fields(0).Value
rsSum.Close
Set rsSum=Nothing
End Function
'用法:求表ABC中字段Q的总和(省略数据库连接对象ADODB.Connection的连接代码)
Dim SumQ
SumQ=SumTotalField("ABC","Q",con)
Response.Write SumQ