运行时出现提示：试图执行一个合计函数中不包含特定表达式“tea_name"的查询------问题解决，马上给分！！！！

Question

code:
  Dim conycdata As ADODB.Connection
Dim rsdepeat As ADODB.Recordset
Dim rsteacher As ADODB.Recordset
Dim noddepeat As Node
Dim itmteacher As ListItem
Dim sqlteacher As StringPrivate Sub Form_Load()
        sqlteacher = "select teacher.tea_name,depeat.dep_name from teacher,depeat where teacher.tea_dep=depeat.depeatid group by depeat.dep_name"
        Set conycdata = New Connection
        Set rsdepeat = New Recordset
        Set rsteacher = New Recordset
        conycdata.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51"
        conycdata.Open App.Path & "\ycdata.mdb"
        rsdepeat.Open "select * from depeat", conycdata
        rsteacher.Open sqlteacher, conycdata
        
End Sub

Answer 1

需要对teacher.tea_name进行数据汇总才能进行Group By
sqlteacher = "select Sum(teacher.tea_name),depeat.dep_name from teacher,depeat where teacher.tea_dep=depeat.depeatid group by depeat.dep_name"

Answer 2

按 MoQi_123(老莫的春天) 说的修改后，问题又来了：
出现提示：：
 由于Microsoft jet数据引擎含有一个无效的数据类型字段，导致它不能执行SQL语句字段。。
如何解决？

Answer 3

一般来说，在select中有几个列，则在group by 中也要相对应写上（除sum,count函数的列外)

Answer 4

sqlteacher = "select teacher.tea_name,depeat.dep_name from teacher,depeat where teacher.tea_dep=depeat.depeatid group by depeat.dep_name,teacher.tea_name"

Answer 5

从字段名字上看好象不是进行sum,而是需要显示详细的明细：用DISTINCT,不要用GROUP BY

Answer 6

由于Microsoft jet数据引擎含有一个无效的数据类型字段，导致它不能执行SQL语句字段。。
如何解决？
把provider=Microsoft.Jet.OLEDB.3.51改成provider=Microsoft.Jet.OLEDB.4.0