当前位置:首页 > 数据库 第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
共分享92篇相关文档