select sum(总价) from 表 我想把他们的和加到text1.text中该什么实现呢?

来源：百度知道 编辑：UC知道 时间：2024/05/17 06:48:11
我有表 （即datagrid）
标号 名字 单价 总价
1 软件 67 556
2 …… 89
4 …… 988
6 …… 987
9 …… 76

select sum(总价) from 表
我想把他们的和加到text1.text中该什么实现呢
可以给我个思路么？

Dim StrConn As String
Dim connsql As New ADODB.Connection
Dim rs As ADODB.Recordset
connsql.Open StrConn
connsql.CursorLocation = adUseClient
rs.Open "select sum(总价) from 表 ", connsql, adOpenDynamic, adLockPessimistic
text1.text=trim(rs(0))
connsql.close
set connsql=nothing

把上面的这段代码直接放到你要用的过程里面 就可以了
其中trim(rs(0))就是求和的结果。其他将查询结果放到一个控件或者给一个变量的方法和这个类似，看着修改一下酒可以了。

Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=G:\编程开发\新建文件夹\Data.mdb;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select sum(yd) from py", db, adOpenStatic, adLockOptimistic

Set grdDataGrid.DataSource = adoPrimaryRS
<