Question

vb6.0 +ACCESS数据库怎么求和

比如数据库的 是

时间 金额
9 10
10 10
10 10

VB6.0上的控件是文本框，TEXE，怎么样通过据库连接或者控件连接，搜索10月份的时间，在10月份的金额加起，绑定到文本框里显示10月份总金额
需要 有代码

Answer 1

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\smk.mdb;Persist Security Info=False"
Adodc1.RecordSource = "SELECT xsjlda.时间, Sum(xsjlda.金额) AS 金额之总计 FROM xsjlda GROUP BY xsjlda.时间 HAVING (((xsjlda.时间)=#12/22/2012#))"
Adodc1.Refresh '刷新数据
Text1.Text = Adodc1.Recordset.Fields(" 金额之总")

（smk是数据库，xsjlda是数据表名称，数据表时间项看你用的是什么格式，是日期格式就用上面一样的 (((xsjlda.时间)=#12/22/2012#)) 如果是文本格式 用(((xsjlda.时间) Like '" & 10 & "'))