




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、精选优质文档-倾情为你奉上VBA数据库编程技术实验目的1、 掌握connection对象2、 掌握Recordset对象3、 掌握Command对象实验题目9-1 connection对象的具体连接方法:方法1Dim conn As ADODB.Connection '定义对象类型Set conn = New ADODB.Connection '将对象初始化conn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/access/vba数据库编程技术/学生成绩管理.mdb"
2、'设置连接字符信息conn.open '连接对象打开.conn.Close '关闭连接对象Set conn = Nothing '将连接对象清空方法2Dim conn As ADODB.Connection '定义对象类型Set conn = New ADODB.Connection '将对象初始化conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/access/vba数据库编程技术/学生成绩管理.mdb;UID=;PWD=".conn.CloseSet con
3、n = Nothing方法3Dim conn As ADODB.Connection '定义对象类型Set conn = New ADODB.Connection '将对象初始化conn.Open CurrentProject.Connection '打开当前正在连接的数据.conn.CloseSet conn = Nothing9-2 在9-1的基础上,打开表单学生信息,利用Recordset对象获取来自“学生成绩管理.mdb”中“学生”数据表的记录,并显示第一条记录。Private Sub Form_Load()Dim conn As ADODB.Connectio
4、n '定义连接对象类型Dim rs As ADODB.Recordset '定义记录集对象类型Set rs = New ADODB.Recordset '将记录集对象初始化Set conn = New ADODB.Connection '将连接对象初始化conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/access/vba数据库编程技术/学生成绩管理.mdb;"rs.Open "select * from 学生", conn, adOpenKeyset,
5、adLockReadOnlyrs.MoveFirstText0.Value = rs("姓名")Text2.Value = rs("学号")Text4.Value = rs("性别")conn.CloseSet conn = NothingEnd Sub9-3 打开表单增加专业,单击增加按钮增加一条关于专业的的新记录:专业编号:p07,专业名称:电子技术,专业负责人:刘容强。Private Sub Command0_Click()Dim conn As ADODB.Connection '定义连接对象类型Dim rs As A
6、DODB.Recordset '定义记录集对象类型Set rs = New ADODB.Recordset '将记录集对象初始化Set conn = New ADODB.Connection '将连接对象初始化conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/access/vba数据库编程技术/学生成绩管理.mdb;"rs.Open "select * from 专业", conn, adOpenKeyset, adLockOptimisticrs.AddNewr
7、s("专业编号") = "P07"rs("专业名称") = "电子技术"rs("专业负责人") = "刘容强"rs.UpdateMsgBox "已完成新记录的添加", 0 + 32, "提示"conn.CloseSet conn = NothingEnd Sub9-5新建一个过程a,将“专业”数据表中专业名称为“公共基础教学”的专业负责人姓名改为“郑智强”。Public Sub a()Dim conn As ADODB.Connecti
8、on '定义对象类型Set conn = New ADODB.Connection '将对象初始化conn.Open CurrentProject.Connection '打开当前正在连接的数据Dim comm As ADODB.CommandSet comm = New ADODB.Commandcomm.ActiveConnection = conncomm.CommandText = "update 专业 set 专业负责人='郑智强' where 专业名称='公共基础教学'"comm.ExecuteMsgBox
9、 "已完成修改", 0 + 32, "提示"conn.CloseSet conn = NothingSet comm = NothingEnd Sub9-6打开“学生成绩管理.mdb”,设计课程成绩统计窗体,运行界面如图9-5所示,要求实现:1、在组合框combo1中选择一课程编号,则对应的课程名称、学分、任课教师、学时分别显示在对应文本框中2、单击“统计按钮”,则在对应文本框中显示指定课程的所有参考学生人数、课程平均分、60分以上人数和不及格人数。3、若未指定具体课程编号就单击“统计”按钮,则显示提示信息。Option Compare Database
10、Private Sub Combo0_Change()Dim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim sqlstr As Stringsqlstr = "select 课程名称,学时,学分,姓名 from 课程,教师 where 课程.教师编号=教师.教师编号 and 课程编号='" & Combo0 & "'"rs.Open sqlstr, CurrentProject.Connection, 2, 2If Not rs.EOF() ThenText4 =
11、 rs("课程名称")Text6 = rs("学分")Text8 = rs("姓名")Text10 = rs("学时")End Ifrs.CloseSet rs = NothingEnd SubPrivate Sub Command12_Click()Dim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim sqlstr As Stringsqlstr = "select * from 成绩 where 课程编号='" &
12、Combo0 & "'"rs.Open sqlstr, CurrentProject.Connection, 2, 2If Not rs.BOF() Or Not rs.EOF() Thensum = 0n = 0x = 0y = 0Do While Not rs.EOF()sum = sum + rs("成绩")n = n + 1If rs("成绩") >= 60 Then x = x + 1Else y = y + 1End Ifrs.MoveNextLoopaver = sum / nText15.Valu
13、e = nText17.Value = Int(aver * 100 + 0.5) / 100Text19.Value = xText21.Value = yElse MsgBox "课程编号为空,请重新选择", 0 + 16, "提示"End Ifrs.CloseSet rs = NothingEnd Sub9-7 打开“学生成绩管理.mdb”,设计按课程查阅学生成绩窗体,运行界面如图9-7所示,要求实现如下:Public rs As ADODB.RecordsetPrivate Sub Combo0_Change()Dim rs As ADODB.R
14、ecordsetSet rs = New ADODB.RecordsetDim sqlstr As Stringsqlstr = "select 课程名称,学时,学分,姓名 from 课程,教师 where 课程.教师编号=教师.教师编号 and 课程编号='" & Combo0 & "'"rs.Open sqlstr, CurrentProject.Connection, 2, 2If Not rs.EOF() ThenText4 = rs("课程名称")Text6 = rs("学分&quo
15、t;)Text8 = rs("姓名")Text10 = rs("学时")End Ifrs.CloseSet rs = NothingEnd SubPrivate Sub Command12_Click()Set rs = New ADODB.RecordsetDim sqlstr As Stringsqlstr = "select 学生.学号,姓名,专业名称,成绩 from 学生,专业,成绩 where 学生.专业编号=专业.专业编号 " & _"and 成绩.学号=学生.学号 and 成绩.课程编号='&q
16、uot; & Combo0.Value & "'"rs.Open sqlstr, CurrentProject.Connection, 2, 2If Not rs.BOF() Or Not rs.EOF() Then Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩") Command23.Enabled = True Comman
17、d24.Enabled = True Command25.Enabled = True Command26.Enabled = TrueElse MsgBox "课程号为空,请重新指定课程编号", 0 + 16, "提示"End IfEnd SubPrivate Sub Command23_Click() rs.MoveFirst Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Va
18、lue = rs("成绩")End SubPrivate Sub Command24_Click()rs.MovePreviousIf Not rs.BOF() Then Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩")Else rs.MoveNext Text15.Value = rs("学号") Text17.Value = r
19、s("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩") MsgBox "已经是首记录", 0 + 64, "提示"End IfEnd SubPrivate Sub Command25_Click()rs.MoveNextIf Not rs.EOF() Then Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs(&qu
20、ot;专业名称") Text21.Value = rs("成绩")Else rs.MovePrevious Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩") MsgBox "已经是未记录", 0 + 64, "提示"End IfEnd SubPrivate Sub Command26_Click() r
21、s.MoveLast Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩")End SubPrivate Sub Form_Activate()Command23.Enabled = FalseCommand24.Enabled = FalseCommand25.Enabled = FalseCommand26.Enabled = FalseEnd Sub9-8 在例9-7基础
22、上,增加“更新”、“删除”、“新增”和“结束”4个命令按钮,运行界面如下图所示:Public rs As ADODB.RecordsetPrivate Sub Combo0_Change()Dim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim sqlstr As Stringsqlstr = "select 课程名称,学时,学分,姓名 from 课程,教师 where 课程.教师编号=教师.教师编号 and 课程编号='" & Combo0 & "'"rs.Ope
23、n sqlstr, CurrentProject.Connection, 2, 2If Not rs.EOF() ThenText4 = rs("课程名称")Text6 = rs("学分")Text8 = rs("姓名")Text10 = rs("学时")End Ifrs.CloseSet rs = NothingEnd SubPrivate Sub Command12_Click()Set rs = New ADODB.RecordsetDim sqlstr As Stringsqlstr = "sel
24、ect 学生.学号,姓名,专业名称,成绩 from 学生,专业,成绩 where 学生.专业编号=专业.专业编号 " & _"and 成绩.学号=学生.学号 and 成绩.课程编号='" & Combo0.Value & "'"rs.Open sqlstr, CurrentProject.Connection, 2, 2If Not rs.BOF() Or Not rs.EOF() Then Text15.Value = rs("学号") Text17.Value = rs("
25、;姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩") Command23.Enabled = True Command24.Enabled = True Command25.Enabled = True Command26.Enabled = True Command27.Enabled = True Command28.Enabled = True Command29.Enabled = TrueElse MsgBox "课程号为空,请重新指定课程编号", 0 +
26、16, "提示"End IfEnd SubPrivate Sub Command23_Click() rs.MoveFirst Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩")End SubPrivate Sub Command24_Click()rs.MovePreviousIf Not rs.BOF() Then Text15.Value = rs
27、("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩")Else rs.MoveNext Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩") MsgBox "已经是首记录"
28、, 0 + 64, "提示"End IfEnd SubPrivate Sub Command25_Click()rs.MoveNextIf Not rs.EOF() Then Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩")Else rs.MovePrevious Text15.Value = rs("学号") Text17.Val
29、ue = rs("姓名") Text19.Value = rs("专业名称") Text21.Value = rs("成绩") MsgBox "已经是未记录", 0 + 64, "提示"End IfEnd SubPrivate Sub Command26_Click() rs.MoveLast Text15.Value = rs("学号") Text17.Value = rs("姓名") Text19.Value = rs("专业名称"
30、) Text21.Value = rs("成绩")End SubEnd SubPrivate Sub Command27_Click()flag = 0yn = MsgBox("确定更新成绩吗?", 1 + 32, "提问")If yn = 1 Then Set rs = New ADODB.Recordset Dim sqlstr As String sqlstr = "select * from 成绩" rs.Open sqlstr, CurrentProject.Connection, 2, 2 Do Whi
31、le Not rs.EOF() And flag = 0 If rs("学号") = Trim(Text15.Value) And rs("课程编号") = Trim(Combo0.Value) Then rs("成绩") = Text21.Value rs.Update MsgBox "完成成绩更新!", 0 + 64, "提示" flag = 1 Else rs.MoveNext End If Loop If flag = 0 Then MsgBox "学号或课程编号有变化,无法进
32、行成绩更新!", 0 + 16, "提示" End If rs.Close Set rs = NothingEnd IfEnd SubPrivate Sub Command28_Click()flag = 0yn = MsgBox("确定删除本记录吗?", 1 + 32, "提问")If yn = 1 Then Set rs = New ADODB.Recordset Dim sqlstr As String sqlstr = "select * from 成绩" rs.Open sqlstr, Curr
33、entProject.Connection, 2, 2 Do While Not rs.EOF() And flag = 0 If rs("学号") = Trim(Text15.Value) And rs("课程编号") = Trim(Combo0.Value) Then rs.Delete rs.Update MsgBox "已完成删除!", 0 + 64, "提示" Text15.Value = "" Text17.Value = "" Text19.Value = &q
34、uot;" Text21.Value = "" Command23.Enabled = False Command24.Enabled = False Command25.Enabled = False Command26.Enabled = False flag = 1 Else rs.MoveNext End If Loop If flag = 0 Then MsgBox "学号或课程编号有变化,无法进行成绩更新!", 0 + 16, "提示" End If rs.Close Set rs = NothingEnd If
35、End SubPrivate Sub Command29_Click()cmark = 0smark = 0yn = MsgBox("确定新增成绩信息吗?", 1 + 32, "提问")If yn = 1 Then Set rs = New ADODB.Recordset Dim sqlstr As String sqlstr = "select * from 成绩 where 学号='" & Trim(Text15.Value) & "'and 课程编号='" & Combo0.Value & "'" rs.Open sqlstr, CurrentProject.Connection, 2, 2 If Not rs.BOF() And Not rs.EOF() Then MsgBox "成绩表已有记录,无法再新增", 0 + 64, "提示"
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 冷作外包合同范本
- 净化车间合同范本
- 儿童套装采购合同范本
- 修缮祖坟合同范本
- 制作标语购销合同范本
- 聘请设计师合同范本
- 保证合同范本模板
- 代理饮料合同范本
- 划拨土地房屋出售合同范本
- 加工柜体合同范本
- 合肥科技职业学院单招计算机类考试复习题库(含答案)
- 2.1 坚持依宪治国 教案 -2024-2025学年统编版道德与法治八年级下册
- 【语文试卷+答案】2024-2025学年泉州高二上期末质检
- 2018-2022年北京市中考真题数学试题汇编:填空压轴(第16题)
- 《修缮定额讲解》课件
- 大学学生宿舍管理员工作培训
- 浙江2024公务员考试真题及答案
- 初中新课标培训课件
- 2025年吉林省吉林市事业单位招聘入伍高校毕业生54人历年高频重点提升(共500题)附带答案详解
- 公司银行贷款申请书范文
- 机械设计制造及其自动化专业知识
评论
0/150
提交评论