vba数据库编程答案

《vba数据库编程答案》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VBA数据库编程技术实验目的1、掌握connection对象2、掌握Recordset对象3、掌握Command对象实验题目9-1connection对象的具体连接方法：方法1DimconnAsADODB.Connection'定义对象类型Setconn=NewADODB.Connection'将对象初始化conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:/access/vba数据库编程技术/学生成绩管理.mdb"'设置连接字符信息conn.open'连接对象打开…………….conn.

2、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.Connec

3、tion'将对象初始化conn.OpenCurrentProject.Connection'打开当前正在连接的数据…………….conn.CloseSetconn=Nothing9-2在9-1的基础上，打开表单学生信息，利用Recordset对象获取来自“学生成绩管理.mdb”中“学生”数据表的记录，并显示第一条记录。PrivateSubForm_Load()DimconnAsADODB.Connection'定义连接对象类型DimrsAsADODB.Recordset'定义记录集对象类型Setrs=NewADODB.Recordset'将记录集对象初始化Setconn=N

4、ewADODB.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打开表单增加专业，单击增加按

5、钮增加一条关于专业的的新记录：专业编号：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数据库编程技术/学生成绩管理.m

6、db;"rs.Open"select*from专业",conn,adOpenKeyset,adLockOptimisticrs.AddNewrs("专业编号")="P07"rs("专业名称")="电子技术"rs("专业负责人")="刘容强"rs.UpdateMsgBox"已完成新记录的添加",0+32,"提示"conn.CloseSetconn=NothingEndSub9-5新建一个过程a,将“专业”数据表中专业名称为“公共基础教学”的专业负责人姓名改为“郑智强”。PublicSuba()DimconnAsADODB.Connection'定义对象类型Setconn=N

7、ewADODB.Connection'将对象初始化conn.OpenCurrentProject.Connection'打开当前正在连接的数据DimcommAsADODB.CommandSetcomm=NewADODB.Commandcomm.ActiveConnection=conncomm.CommandText="update专业set专业负责人='郑智强'where专业名称='公共基础教学'"comm.ExecuteMsgBox"已完成修改",0+32,"提示"conn.CloseSetconn=NothingSetc