数据库 第9章 模块与VBA程序设计 - 习题

End Sub

8．利用ADO对象，对“教学管理”数据库的“课程”表完成以下操作： （1）添加一条记录：“Z0004”，“数据结构”，“必修”，1。

（2）查找课程名为“数据结构”的记录，并将其学分更新为3。 （3）删除课程号为“Z0004”的记录。 答：（1）在教学管理数据库中，添加一条记录的过程如下。

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'\

5