《ACCESS2010数据库应用技术 》课后习题参考答案

End Sub

4.答:VBA代码如下: Private Sub Form_Load() Me.Text1.Value = \ End Sub

Private Sub Command5_Click() Me.Text1.Value = \

m% = InputBox(\请输入欲判断季节的月份的值\注意:只可为1-12之间的整数\ Select Case m Case 2 To 4 ' 春季

Me.Label2.Caption = Trim(Str(m)) & \月份的季节为\ Me.Text1.Value = \春季\ Case 5 To 7 '夏季

Me.Label2.Caption = Trim(Str(m)) & \月份的季节为\ Me.Text1.Value = \夏季\ Case 8 To 10 '秋季

Me.Label2.Caption = Trim(Str(m)) & \月份的季节为\ Me.Text1.Value = \秋季\ Case 11 To 12, 1

Me.Label2.Caption = Trim(Str(m)) & \月份的季节为\ Me.Text1.Value = \冬季\ Case Else '无效的月份

Me.Text1.Value = \输入的是无效的月份\ End Select End Sub

5.答:VBA代码如下:

Private Sub Command1_Click() Dim m As String Me.Text1.Value = \ m = \

For i% = 3 To 99 Step 2 For j% = 2 To i - 1 Lx% = i Mod j If Lx = 0 Then Exit For End If Next

If j > i - 1 Then

m = m + \ End If Next

Me.Text1.Value = m End Sub 6.答:(1)在教学管理数据库中,添加一条记录的过程如下。

11

Sub AddRecord(kc_hao As String, kc_name As String, kc_class As String, kc_score As Integer)

Dim rs As New ADODB.Recordset Dim conn As New ADODB.Connection On Error GoTo GetRS_Error

Set conn = CurrentProject.Connection '打开当前连接 rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic rs.AddNew

rs.Fields(\课程号\ rs.Fields(\课程名\ rs.Fields(\课程类别\ rs.Fields(\学分\ rs.Update

Set rs = Nothing Set conn = Nothing End Sub

(2)查找课程名为“数据结构”的记录,并将其学分更新为3。其代码实现如下: Sub ExecSQL()

Dim conn As New ADODB.Connection

Set conn = CurrentProject.Connection '打开当前连接

strsql = \课程 set 学分=3 where 课程名='数据结构'\ conn.Execute (strsql) Set conn = Nothing End Sub

(3)删除课程号为“Z0004”的记录。其实现方法只需将ExecSQL()过程中的SQL语句改为:strsql = \课程 where 课程号='Z0004'\

第9章

一、选择题 1.D 2.C 3.A 4.C 5.A 6.A

二、填空题

1.导入,导出,共享

2.后端数据库,前端数据库 3.商品信息_2013-06-20.accdb 4.独占

5.数据库文档管理器,分析性能,分析表 三、问答题

1.答:导入数据是将数据复制于数据库中,源数据变化将不影响数据库中的数据。链

12

接数据是将链接至数据库中,源数据变化将影响数据库中的数据,并保持一致。

2.答:数据库的备份有助于保护数据库,以防出现系统故障或误操作而丢失数据。备份数据库时,Access首先会保存并关闭在设计视图中打开的所有对象,然后可以使用指定的名称和位置保存数据库文件的副本。

3.答:在使用数据库文件的过程中,要经常对数据库对象进行创建、修改、删除等操作,这时数据库文件中就可能包含相应的“碎片”,数据库文件可能会迅速增大,影响使用性能,有时也可能被损坏。在Access 2010中,可以使用“压缩和修复数据库”功能来防止或修复这些问题。

4.答:首先“以独占方式打开”数据库文件,然后选择“文件”→“信息”命令,再单击“用密码进行加密”按钮,在弹出的“设置数据库密码”对话框中输入数据库密码。

当不需要密码时,可以对数据库进行解密。以独占方式打开加密的数据库,选择“文件”→“信息”命令,单击“解密数据库”按钮,在“撤消数据库密码”对话框中输入设置的密码,然后单击“确定”按钮。

5.答:使用受信任位置中的数据库有3个步骤:使用信任中心创建受信任位置;将数据库保存或复制到受信任位置;打开并使用数据库。

13

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4