Question

VB 将数据库里的某列数的总和

问题如下：

如何将收索到的表的数据单价那一列的总和显示在text文本框中。
简单说就是把单价那列1.5-2-2.5-0 的总和显示在一个文本框里。
我用的是access数据库，并且已经连好了。
只有20分，跪求了。

Answer 1

不知道你现在显示在界面上的数据是"查询"的结果还是整个数据库的记录?

要显示"单价"的合计,用 SQL语句就可以了.如:
假定数据表名:商品信息,字段名:单价
Dim rs As ADO.Recordset
Dim mySQL As String
'如果没有查询条件
mySQL="Select Sum(单价) From 商品信息"
'如果有查询条件
mySQL="Select Sum(单价) From 商品信息 WHERE ("+查询条件+")"

'adoConn 是数据库的连接
rs.Open mySQL,adoConn,adOpenDynamic, adLockOptimistic

'要显示的文本框为 Text1
Text1=rs(0)

追问

出现：用户类型未定义。
代码放在是窗体的加载事件还是单击按钮的事件? 能在具体一点说吗？
是需要显示在界面上的数据"查询"的结果！必要的话留下你的邮箱我发给你帮我改下可以吗？
本人刚学习VB不久，还不是很了解。

追答

最好在"查询"按扭里面增加.
发邮箱:748913908@qq.com,可以帮你改一下.

Answer 2

Dim DJH As Single
Do While Not RS.EOF
DJH= DJH + RS!单价
RS.MoveNext
Loop
RS.Close
Text1.Text=DJH
这样就可以了。

Answer 3

Private Sub Command6_Click() '总和的触发事件
Dim i As Integer
Dim m As Integer
For i = 0 To res.RecordCount - 1   '0到查询结果的条数的循环
    m = m + res.Fields(2)          '求总和 
    res.MoveNext
Next
Text2.Text = m                     '显示在文本框中
End Sub

Answer 4

如果数据显示是datagrid控件，可以从显示控件中计算；也可以从表中计算。