修改“查询表”不成功，请老师帮助

20090930

在 Excel 我想将"1班"改为"2班"，但不成功，请老师修改代码。

Public Sub 修改查询各科成绩总计()
    Dim mydata As String, mytable As String, SQL As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim i As Integer
    mydata = ThisWorkbook.Path & "\数据库.mdb"
    mytable = "查询各科成绩总计"      '指定查询表
       ''建立与数据库的连接
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
    End With
SQL = " SELECT 数据表1.班别, 数据表1.姓名, Sum(数据表1.语文) AS 语文 " _
& " FROM 数据表1" _
& " GROUP BY 数据表1.班别, 数据表1.姓名" _
& " HAVING (((数据表1.班别)=""1班""));"
    Set rs = cnn.Execute(SQL)
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub

roych

不是使用update语句的么？

jack5d

試試改為: HAVING (((数据表1.班别)='1班'));