Question

VB对ACCESS数据其中一列求和??....

Dim Conn As New adodb.Connection
Dim rs As New adodb.Recordset

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\0913mdb\db2.mdb"
rs.Open "select sum(02)from 表2", Con, 1, 1
Text13.Text = rs(0)
rs.Close

Set rs = Nothing
Conn.Close
Set Conn = Nothing

已经有了一个db1.mdb 用的也是conn这个....这个提示不行.TKS..本人小白一个
Private Sub Command6_Click()
Dim Con As New adodb.Connection
Dim rs As New adodb.Recordset

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\VB\0913mdb\db2.mdb"
rs.Open "select sum(02)from 表2", Con, 1, 1
Text13.Text = rs(0)
rs.Close

Set rs = Nothing
Con.Close
Set Con = Nothing

End Sub
改成这样,可以求和..可是结果并不正确...

Answer 1

要注意细节：
rs.Open "select sum(02)from 表2", Con, 1, 1

这里，from与前面必须要空一格！
一般格式是：楼上回答的那样；
rs.Open "select sum(字段名) As AA from 表2", Con, 1, 1
其中：字段名应该用你要统计的具体字段名

追问

TKS...字段名用02不行,求出来的结果不对,字段名随便改了个中文就可以,这个有要求?

rs.Open "select sum(字段名) As AA from 表2", Con, 1, 1

上面的As AA有什么特殊的含义(看到的很少加这个..?)
还有Con,1,1也经常看到有写成Con,1,3(这个有不同?)

追答

1，关于AA，是一个返回的临时字段，可以类似访问数据表字段一样去访问它，比如：
　msgbox rs.fields("AA")
2，关于Con,1,1后者Con,1,3，这些数字其实是Rs.Open方法的参数常量，限于篇幅，你可以就这个主题百度里搜索一下，有很多介绍的文章；或者你链接下面这个；
http://blog.csdn.net/tanwei1002/article/details/5182317

Answer 2

你那个列名就是02吗？
sum（列名） as 总和 试试