Question

vb 中如何获取 SUM(*) 返回的记录值(一般的记录可以通过 x=re.Fields("FieldsName")获取)

一般的记录可以通过 x=re.Fields("FieldsName")获取，而 SUM(*),Count(*),AVG(*)...这些如何获取？

Answer 1

可用ADO数据控件通过其属性RecordSource赋于SQL查询语句获取，然后取其属性Recordset(0)值得到。
chaxun1 = "select sum([数量]) as HJ from mdlk_sj where 日期 between '" '" & Text3.Text & "'"
chaxun2 = Text4.Text & "' and '" & Text3.Text & "'"
mdh1 = chaxun1 & chaxun2
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hxrkgl_scb\rkglsjk\hxrkgl.mdb;Persist Security Info=False"
Adodc1.RecordSource = mdh1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount>0 Then
Text1 = Val(Adodc1.Recordset(0)
End If

Answer 2

x=re.Fields(0) 就可以了 获取 COUNT（） AVG(*)... 等

SELECT SUM（BB）AS CC FROM AA

x=re.Fields("CC") 获取和

Answer 3

在sql里起个别名

select sum(field) as aa from table

rs.fields("aa") 就可以了！~