云题海 - 专业文章范例文档资料分享平台

当前位置:首页 > 数据库 第9章 模块与VBA程序设计 - 习题

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

  • 62 次阅读
  • 3 次下载
  • 2025/7/5 4:21:06

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

  • 收藏
  • 违规举报
  • 版权认领
下载文档10.00 元 加入VIP免费下载
推荐下载
本文作者:...

共分享92篇相关文档

文档简介:

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 Se

× 游客快捷下载通道(下载后可以自由复制和排版)
单篇付费下载
限时特价:10 元/份 原价:20元
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219
Copyright © 云题海 All Rights Reserved. 苏ICP备16052595号-3 网站地图 客服QQ:370150219 邮箱:370150219@qq.com