数据库中的查询问题?

Question

我在access建立一个表paike,我在vb中想要实现求其中一个字段"总学时数"的和.我写的语句如下:
      Private sub form_load()
     ........ set rs =db.OpenRecordset("select 总学时数 from paike where 班级名称 = 计991")
 dim i As Integer
  Do While Not rs.EOF
     i = i + rs("总学时数")  
    rs.MovNext
loop
 text21.text (rs("总学时数"))
end sub在运行的时候是报错"属性的使用无效"错误指在 text21.text (rs("总学时数"))的rs上面.我不知道到底是设备你们地方不对.我"总学时数"这个字段有多项内容.
哪位大虾知道,帮帮我!

Answer 1

text21.text = rs("总学时数").value试试另外，你的循环完全不必要，修改如下：
set rs =db.OpenRecordset("select sum(总学时数) as 学时总和 from paike where 班级名称 = 计991 group by 班级名称")
text21.text=rs!学时总和.value

Answer 2

现在运行报错在text21.text上了.错误类型还是一样.

Answer 3

where 班级名称 = '计991'

Answer 4

set rs =db.OpenRecordset("select 总学时数 from paike where 班级名称 = '计991'")
 dim i As Integer
  Do While Not rs.EOF
     i = i + val(Trim(rs.fields(0)))  
     rs.MovNext
  loop
  rs.close
  text21.text =i
end sub还有另一种方法
dim cn as new adodb.connection
cn.open "连接字符串"
cn.execute "select sum(总学时数) from paike where 班级名称 = '计991'"
cn.close问题解决了，给分哦~~~

Answer 5

还有另一种方法
dim cn as new adodb.connection
cn.open "连接字符串"
cn.execute "select sum(总学时数) from paike where 班级名称 = '计991'"
cn.close是错误的~~~现在就改正~~~~~对不起~~~~想错了~~~真大意~

Answer 6

还有另一种方法
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.open "连接字符串"
rs.open "select sum(总学时数) from paike where 班级名称 = '计991'",cn,3,2
if rs.recordcount >0 then
  text21 = rs.fields(0)
else
  text21 = ""
end if
rs.close
cn.close给分给分

Answer 7

text21.text="" & (rs("总学时数"))