vba数据库编程答案.docVIP

VBA数据库编程技术 实验目的 掌握connection对象 掌握Recordset对象 掌握Command对象 实验题目 9-1 connection对象的具体连接方法： 方法1 Dim conn As ADODB.Connection 定义对象类型 Set conn = New ADODB.Connection 将对象初始化 conn.ConnectionString= Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:/access/vba数据库编程技术/学生成绩管理.mdb 设置连接字符信息 conn.open 连接对象打开 ……………. conn.Close 关闭连接对象 Set conn = Nothing 将连接对象清空 方法2 Dim 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.Close Set conn = Nothing 方法3 Dim conn As ADODB.Connection 定义对象类型 Set conn = New ADODB.Connection 将对象初始化 conn.Open CurrentProject.Connection 打开当前正在连接的数据 ……………. conn.Close Set conn = Nothing 9-2 在9-1的基础上，打开表单学生信息，利用Recordset对象获取来自“学生成绩管理.mdb”中“学生”数据表的记录，并显示第一条记录。 Private Sub Form_Load() Dim conn As ADODB.Connection 定义连接对象类型 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, adLockReadOnly rs.MoveFirst Text0.Value = rs(姓名) Text2.Value = rs(学号) Text4.Value = rs(性别) conn.Close Set conn = Nothing End Sub 9-3 打开表单增加专业，单击增加按钮增加一条关于专业的的新记录：专业编号：p07，专业名称：电子技术，专业负责人：刘容强。 Private Sub Command0_Click() Dim conn As ADODB.Connection 定义连接对象类型 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, adLockOptimistic rs.AddNew rs(专业编号) = P07 rs(专业名称) = 电子技术 rs(专业负责人) = 刘容强 rs.Update MsgBox 已完成新记录的添加, 0 + 32, 提示 conn.Close Set conn = Nothing End Sub 9-5新建一个过程a,将“专业”数据表中专业名称为“公共基础教学”的专业负责人姓名改为“郑智强”。 Public Sub a() Dim conn As ADODB.Connection 定义对象类型 Set conn = New ADODB.Connection 将对象初始化 conn.Open CurrentProject.Connection 打