vba数据库编程答案

...wd......wd......wd...VBA数据库编程技术实验目的掌握connection对象掌握Recordset对象掌握Command对象实验题目9-1connection对象的具体连接方法：方法1DimconnAsADODB.Connection'定义对象类型Setconn=NewADODB.Connection'将对象初始化conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:/access/vba数据库编程技术/学生成绩管理.mdb"'设置连接字符信息conn.open'连接对象翻开…………….conn.Close'关闭连接对象Setconn=Nothing'将连接对象清空方法2DimconnAsADODB.Connection'定义对象类型Setconn=NewADODB.Connection'将对象初始化conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:/access/vba数据库编程技术/学生成绩管理.mdb;UID=;PWD="…………….conn.CloseSetconn=Nothing方法3DimconnAsADODB.Connection'定义对象类型Setconn=NewADODB.Connection'将对象初始化conn.OpenCurrentProject.Connection'翻开当前正在连接的数据…………….conn.CloseSetconn=Nothing9-2在9-1的根基上，翻开表单学生信息，利用Recordset对象获取来自“学生成绩管理.mdb〞中“学生〞数据表的记录，并显示第一条记录。PrivateSubForm_Load()DimconnAsADODB.Connection'定义连接对象类型DimrsAsADODB.Recordset'定义记录集对象类型Setrs=NewADODB.Recordset'将记录集对象初始化Setconn=NewADODB.Connection'将连接对象初始化conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:/access/vba数据库编程技术/学生成绩管理.mdb;"rs.Open"select*from学生",conn,adOpenKeyset,adLockReadOnlyrs.MoveFirstText0.Value=rs("姓名")Text2.Value=rs("学号")Text4.Value=rs("性别")conn.CloseSetconn=NothingEndSub9-3翻开表单增加专业，单击增加按钮增加一条关于专业的的新记录：专业编号：p07，专业名称：电子技术，专业负责人：刘容强。PrivateSubCommand0_Click()DimconnAsADODB.Connection'定义连接对象类型DimrsAsADODB.Recordset'定义记录集对象类型Setrs=NewADODB.Recordset'将记录集对象初始化Setconn=NewADODB.Connection'将连接对象初始化conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:/access/vba数据库编程技术/学生成绩管理.mdb;"rs.Open"select*from专业",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("专业编号")="P07"rs("专业名称")="电子技术"rs("专业负责人")="刘容强"rs.UpdateMsgBox"已完成新记录的添加",0+32,"提示"conn.CloseSetconn=NothingEndSub9-5新建一个过程a,将“专业〞数据表中专业名称为“公共根基教学〞的专业负责人姓名改为“郑智强〞。PublicSuba()DimconnAsADODB.Connection'定义对象类型Setconn=NewADODB.Connection'将对象初始化conn.OpenCurrentProject.Connection'翻开当前正在连接的数据DimcommAsADODB.CommandSetcomm=NewADODB.Commandcomm.ActiveConnection=conncomm.CommandText="update专业set专业负责人='郑智强'where专业名称='公共根基教学'"comm.ExecuteMsgBox"已完成修改",0+32,"提示"conn.CloseSetconn=NothingSetcomm=NothingEndSub9-6翻开“学生成绩管理.mdb〞，设计课程成绩统计窗体，运行界面如图9-5所示，要求实现：1、在组合框combo1中选择一课程编号，则对应的课程名称、学分、任课教师、学时分别显示在对应文本框中2、单击“统计按钮〞，则在对应文本框中显示指定课程的所有参考学生人数、课程平均分、60分以上人数和不及格人数。3、假设未指定具体课程编号就单击“统计〞按钮，则显示提示信息。OptionCompareDatabasePrivateSubCombo0_Change()DimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetDimsqlstrAsStringsqlstr="select课程名称,学时,学分,姓名from课程,教师where课程.教师编号=教师.教师编号and课程编号='"&Combo0&"'"rs.Opensqlstr,CurrentProject.Connection,2,2IfNotrs.EOF()ThenText4=rs("课程名称")Text6=rs("学分")Text8=rs("姓名")Text10=rs("学时")EndIfrs.CloseSetrs=NothingEndSubPrivateSubCommand12_Click()DimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetDimsqlstrAsStringsqlstr="select*from成绩where课程编号='"&Combo0&"'"rs.Opensqlstr,CurrentProject.Connection,2,2IfNotrs.BOF()OrNotrs.EOF()Thensum=0n=0x=0y=0DoWhileNotrs.EOF()sum=sum+rs("成绩")n=n+1Ifrs("成绩")>=60Thenx=x+1Elsey=y+1EndIfrs.MoveNextLoopaver=sum/nText15.Value=nText17.Value=Int(aver*100+0.5)/100Text19.Value=xText21.Value=yElseMsgBox"课程编号为空，请重新选择",0+16,"提示"EndIfrs.CloseSetrs=NothingEndSub翻开“学生成绩管理.mdb〞，设计按课程查阅学生成绩窗体，运行界面如图9-7所示，要求实现如下：PublicrsAsADODB.RecordsetPrivateSubCombo0_Change()DimrsAsADODB.RecordsetSetrs=NewADODB.RecordsetDimsqlstrAsStringsqlstr="select课程名称,学时,学分,姓名from课程,教师where课程.教师编号=教师.教师编号and课程编号='"&Combo0&"'"rs.Opensqlstr,CurrentProject.Connection,2,2IfNotrs.EOF()ThenText4=rs("课程名称")Text6=rs("学分")Text8=rs("姓名")Text10=rs("学时")EndIfrs.CloseSetrs=NothingEndSubPrivateSubCommand12_Click()Setrs=NewADODB.RecordsetDimsqlstrAsStringsqlstr="select学生.学号,姓名,专业名称,成绩from学生,专业,成绩where学生.专业编号=专业.专业编号"&_"and成绩.学号=学生.学号and成绩.课程编号='"&Combo0.Value&"'"rs.Opensqlstr,CurrentProject.Connection,2,2IfNotrs.BOF()OrNotrs.EOF()ThenText15.Value=rs("学号")Text17.Value=rs("姓名")Text19.Value=rs("专业名称")Text21.Value=rs("成绩")Command23.Enabled=TrueCommand24.Enabled=TrueCommand25.Enabled=TrueCommand26.Enabled=TrueElseMsgBox"课程号为空,请重新指定课程编号",0+16,"提示"EndIfEndSubPrivateSubCommand23_Click()rs.MoveFirstText15.Value=rs("学号")Text17.Value=rs("姓名")Text19.Value=rs("专业名称")Text21.Value=rs("成绩")EndSubPrivateSubCommand24_Click()rs.MovePreviousIfNotrs.BOF()ThenText15.Value=rs("学号")Text17.Value=rs("姓名")Text19.Value=rs("专业名称")Text21.Value=rs("成绩")Elsers.MoveNextText15.Value=rs("学号")Text17.Value=rs("姓名")Text19.Value=rs("专业名称")Text21.Value=rs("成绩")MsgBox"已经是首记录",0+64,"提示"EndIfEndSubPrivateSubCommand25_Click()rs.MoveNextIfNotrs.EOF()ThenText15.Value=rs("学号")Text17.Value=rs("姓名")Text19.Value=rs("专业名称")Text21.Value=rs("成绩")Elsers.MovePreviousText15.Value=rs("学号")Text17.Value=rs("姓名")Text19.Value=rs("专业名称")Text21.Value=rs("成绩")MsgBox"已经是未记录",0+64,"提示"EndIfEndSubPrivateSubCommand26_Click()rs.MoveLastText15.V