题32（a） 题32（b） 表题32（c）表
用Transact－SQL语句完成下列各题：
（1）已知“成绩”表中主键为“课程号”和“学号”，长度均为3，“分数”字段为整型，不允许为空，“学期”字段长度为8，试创建“成绩”表。
（2）把“成绩”表中的“学期”字段删除。
（3）查询所有不姓“张”的学生姓名。
（4）查询课程号为“C02”的平均成绩。
33.窗体form1中有一“查询”按钮Command1的click事件代码如下：
Dim en As rdoEnvironment
Dim cn As rdoConnection
Dim rs As rdoResultset
Dim qy As New rdoQuery
Dim sql As String
Dim sConnectstring As String
sConnectstring = "uid=sa;pwd=10.1.17.6; "_
& "database=srp;server=10.1.17.6; "_
& "driver={sql server};dsn=’ ’;"
Set en = rdoEnvironments(0)
en.CursorDriver = rdUseOdbc
conn$ = sConnectstring
Set cn = en.OpenConnection(dsName:="", _
Prompt:=rdDriverNoPrompt, Connect:=conn$)
qy.sql = "select * from 学生 where 姓名 like ? "
Set qy.ActiveConnection = cn
qy.rdoParameters(0) = Trim(Text1.Text)
Set rs = qy.OpenResultset()
阅读以上代码，回答以下问题：
（1）访问的数据库的用户名及密码是什么？数据库名是什么？
（2）假设“学生”表的记录如题32（a）表所示，且Text1的Text值为“%张%”，该事件执行一次后，rs(1)的值是多少？
34.现有以下程序段：
Dim mydb As Database
Dim mytable As TableDef
Dim idxh As Index
Set mydb = （1） ("d:＼db1.mdb")
Set mytable = （2）
With mytable
Set idxh = （3）
With idxh
（4） .CreateField("学号")
End With
（5）
End With
以上程序利用DAO为ACCESS数据库“d:＼db1.mdb”中“学生”表 “学号”字段建立索引。请完成（1）~（5）中相应的语句。
35.编程实现自定义函数getInfo：利用ADO Command对象根据传入的字符串型参数xm，返回“d:＼db1.mdb”中“学生”表“姓名”字段含有该参数值的记录集。如调用getInfo(“浙”)，则返回姓名中含有“浙”所有学生记录。
