access 第一关键字 第二关键字排序

Question

如图
计算机一级考试Microsoft Office Access 2003操作题，求如图第四题操作，应该不是写什么代码吧

Answer 1

order by 专业 asc , 成绩 desc
就是这样,中间用逗号隔 就可以了.

原来是要在access里面操作呀。
你新建一个查询。在显示表中把成绩表，课程表都添加。然后关闭。
然后在菜单选择 “视图-》sql视图”。因为我不知道成绩表的结构，不知道里面有没有表达课程是否必修的字段所以只能说个大概。
情况1，如果成绩表里有表达课程是否必修的字段，那么在sql视图里输入：
select 学号，姓名，专业，成绩 from 成绩表 where 课程=必修 order by 专业 asc ， 成绩 desc;
情况2，如果成绩表里没有表达课程是否必修的字段，那就得用到课程表里的字段，那就用到联合查询，那么在sql视图里输入：
select 学号，姓名，专业，成绩 from 成绩表 where 课程 in (select 课程名 from 课程表 where 课程性质=必修） order by 专业 asc ， 成绩 desc;

以上只是大概思路，具体得根据成绩表跟课程表的结构及字段修改。 最后保存命名为“必修成绩”就可以了。

Answer 2

<td height="159" align="center" valign="top">
<% Response.Buffer = True %>

<SCRIPT Language="VBScript" RUNAT="Server">
Sub rs_Display()
dim strConn,strSQL,strSpotName
strSpotName = Request.Form("SpotName")
set conn=server.createobject("adodb.connection")
connstr="driver={sql server};server=(local);database=数据库名;uid=sa;pwd=123"
conn.open connstr
strSQL = "SELECT * FROM 成绩"
strSQL = strSQL & " WHERE 必修查询 LIKE '%" & Trim(searchkey) & "%'"
strSQL = strSQL & " order by 专业 asc , 成绩 desc
"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL,conn

With Response
if rs.EOF then
.Write "没有查询到相关的记录！"
else
.Write "<TABLE BORDER=1 CELLSPACE=0 CELLPADDING=5>" &_
"<TR HEIGHT=12><TD WIDTH=20><B> 学号 </B></TD>" &_
"<TD WIDTH=200><B> 姓名</B></TD>" &_
"<TD WIDTH=130><B>专业</B></TD>" &_
"<TD WIDTH=40><B> 成绩 </B></TD></TR>"
end if

do Until rs.EOF
.Write "<TR HEIGHT=12><TD WIDTH=20>" & rs("学号") & "</TD>" &_
"<TD WIDTH=200>" & rs("姓名") & "</TD>" &_
"<TD WIDTH=40>" & rs("专业") & "</TD>" &_
"<TD WIDTH=40>" & rs("成绩") & "</TD></TR>"
rs.MoveNext
loop
.Write "</TABLE>"
End With

rs.Close
conn.Close
end sub

</SCRIPT>

<%
call rs_Display()
%>

</td>