Question

我正在开发ASP VBScript，需要运行SELECT DISTINCT查询，但我遇到了一些麻烦。

我的代码中有其他查询完全正常，不使用SELECT DISTINCT。

以下是我正在使用的内容：

            Dim sections()
            c = 1
            set conn=Server.CreateObject("ADODB.Connection")
            set rs=Server.CreateObject("ADODB.Recordset")
            conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=******;User ID=Admin;" & _
                    "DATA SOURCE=" & Server.MapPath("modules.mdb")
            rs.open "SELECT DISTINCT section FROM modules WHERE area='First' ORDER BY lvl ASC",conn
            ReDim sections(10)
            do while not rs.EOF
              sections(c) = rs("section")
              c = c + 1
              rs.MoveNext
            loop
            rs.Close
            conn.Close
            set rs = nothing
            set conn = nothing

这给了我这个错误：

error '80004005'

在SQL查询的行上

Answer 1

解决此问题的唯一方法是使用“ GROUP BY”而不是“ DISTINCT”

HTML

错误＆＃39; 80004005＆＃39;只有在使用ASP Classic的SELECT DISTINCT时

1 个答案: