题目
建立“student.mdb”数据库,利用表向导生成“学生”表,选择学生ID、名字、地址和主修字段。
(2)添加以下信息到“学生”表中,行高设置为13。
(3)隐藏“学生”表的学生ID列,设置所有字段列列宽为最佳匹配。“学生”表如图所示。
第1题
在考生文件夹下“student.mdb”数据库中有student、课程和成绩三张表。
(1)以student表为数据源,创建查询“查询1”,查询>=20岁的男学生信息。结果显示学号、姓名、性别和年龄字段。查询结果如图所示。
(2)以student表为数据源,创建更新查询“查询2”,将每个学生的年龄增加一岁
第2题
在考生文件夹中有“student.mdb”数据库和“课程.xls”表。
(1)将“课程.xls”表导入student数据库,第一行包含列标题,设置课程ID为键,将导入表命名为“课程”。
“课程”表如图所示。
(3)设置“课程”表到选课表的关系为一对多,实施参照完整性。
第3题
(2)设置“student”表单元格效果为“凹陷”。
(3)将“student”表的关键字取消。“student”表如图所示。
第4题
在“student.mdb”数据库中有一张“学生”表。
(1) 将“学生”表中所有姓“王”的学生全部改为姓“黄”;
(2) 取消“学生”表中学生ID列的隐藏,按照出生日期升序排序,将数据表字体设置为12号,加粗。
(3) 在原有筛选的基础上添加参数筛选,筛选学生ID列,参数提示为“请输入学生 ID”,将筛选另存为查询“学号筛选”。“学生”表如图所示。
单击工具栏中的筛选按钮显示如图。
第5题
在考生文件夹下“student.mdb”数据库中有student、选课表和课程表。
(1)以student、选课表和课程表为数据源,创建参数查询“按ID查询成绩”,实现输入学生的ID显示学生成绩,参数提示为“请输入学生ID',结果显示学生姓名、课程名称和成绩字段。查询结果如图所示。
(2)以student、选课表和课程表为数据源,创建生成表查询成绩表,查询每个学生选
课的成绩,结果显示学生姓名、课程名称和成绩字段?生成成绩表如图所示。
第6题
(2)将“选课.xls”以“选课”为表名导入student数据库,第一行包含列标题,设置选课ID为主键。“课程”表显示情况如图所示。
(3)将学生信息表按照“学号”字段降序排列,设置单元格格式为“凸起”。学生信息表结果如图所示。
第10题
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在对应栏内[说明]
设有一张学生成绩表scores存放在Access数据库Student中,其中包括学生编号、姓名以及各科目考试成绩。下面的应用程序利用ADO Data和DataGrid控件实现了对成绩数据的基本管理,其操作包括:
(1)添加新记录:单击“添加”按钮,光标将指向最后一条数据记录,在其后编辑好新的数据记录后,再单击“更新”按钮,该数据即被加入成绩表;
(2)删除记录:单击“删除”按钮将删除当前所指记录,其后的数据记录依次上移;
(3)更新记录:直接编辑某条已有记录,再单击“更新”按钮将更新成绩表;
(4)记录排序:选中单列字段后,单击“排序”按钮,记录集将按该字段升序排列。
程序的运行界面为:
在开发过程中,数据库连接对象使用了名为Adodc1的ADO Data控件,数据显示区域使用了名 DataGnd1的DataGrid控件,界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate、 CmdRefresh、CmdSort和CmdExit。
[Visual Basic代码]
Dim conn, database, table As String
Private Sub Form_Load()
database ="E:\Student.mdb" ’设置要访问的数据库
conn ="Provider=Microsoft.Jet.OLEDB.4.0;Data Souse=" & database
Adodc1.ConnectionString=conn ’设置连接字符串
table = "scores"
Adode1. (1)= table ’设置所要访问的数据表
Set DataGrid1. (2)= Adodc1
End Sub
Private Sub CmdAdd_Click() ’“添加”按钮的单击事件响应过程
Adodc1.Recordset. (3)
End Sub
Private Sub CmdDel_Click() ’“删除”按钮的单击事件响应过程
Adodc1.Recordset.Delete
Adodc1.Reeordset.MoveNext
End Sub
Private Sub CmdUpdate_Click() ’“更新”按钮的单击事件响应过程
Adode1.Reeordset.UpdateBatch adAffectAll
End Sub
Private Sub CmdRefresh_Cliek() ’“刷新”按钮的单击事件响应过程
Adodc1.Refresh
End Sub
Private Sub CmdSort_Cliek() ’“排序”按钮的单击事件响应过程
If DataGrid1.SelStartCol < 0 Or DataGridl. SelStartCol (4) DataGrid1. SelEndCol Then
MsgBox “请选择某一字段(列)!”
Exit Sub
End If
Adodc1. RecordSource = "SELECT * FROM" & table & "order by" & _
DataGrid1. Columns((5)).DataField
Adodc1.Refresh
End Sub
Private Sub CmdExit_Click() ’“退出”按钮的单击事件响应过程
End
End Sub
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!