第九章VBA数据库编程重点.ppt

第九章 VBA数据库编程 例9．3 对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求：该文本框中只接受15～30之间的数值数据，提示取消不合法数据。 Private Sub txtAge_BeforeUpdate(Cancel As Integer) If Me!txtAge=””Or IsNull(Me!txtAge)Then ’数据为空时的验证 MsgBox”年龄不能为空!”，VbCritical，”警告” Cancel=True ’取消BeforeUpdate事件 ElseIf IsNumeric(Me!txtAge)=False Then ’非数值数据输入的验证 MsgBox”年龄必须输入数值数据!”，VbCritical，”警告” Cancel=True ’取消BeforeUpdate事件 ElseIf Me!txtAge15 Or Me!txtAge30 Then ’非法范围数据输入的验证 MsgBox”年龄为15～30范围数据!”，Vbcritical，”警告” Cancel=True ’取消BeforeUpdate事件 Else ’数据验证通过 MsgBox”数据验证OK!”，VbInformation，”通告” End If End Sub 1．鼠标操作 例9．6找出引发窗体MouseDown事件的鼠标按钮。 三、数据访问对象(DAO) 利用DAO访问数据库编程 DAO数据库编程 DAO数据库编程 3．利用ADO访问数据库一般过程和步骤 (3)使用记录集 ①定位记录 rs．Move NumRecords[，Start] ’rs为RecordSet对象实例 ②检索记录 rs．Find Criteria[，SkipRows ] [，SearchDirection][，Start] ’rs为RecordSet对象实例其中 ③添加新记录 rs．AddNew[FieldList][，Values] ’rs为RecordSet对象实例 ④更新记录 用SQL语句将要修改的记录字段数据找出来重新赋值 ⑤删除记录 rs．Delete[AffectRecords] ’rs为RecordSet对象实例 (4)关闭连接或记录集 在应用程序结束之前，应该关闭并释放分配给ADO对象(一般为Connection对象和Recordset对象)的资源，操作系统回收这些资源并可以再分配给其他应用程序。 使用的方法为：Close方法。 ’关闭对象 Object．Close ’Object为ADO对象 ’回收资源 Set Object = Nothing ’Object为ADO对象 １、在Connection对象上打开RecordSet ‘创建对象引用 Dim cn As ADODB.Connection ‘创建一连接对象 Dim rs As ADODB.RecordSet ‘创建一记录集对象 cn.open 连接串等参数　　　‘打开一个连接 rs.open查询串等参数　　　‘打开一个记录集 Do While Not rs.EOF ’利用循环遍历整个记录集直至末尾 ……. 　‘安排字段数据的各类操作　rs.MoveNext 　 ‘记录指针移动至下一条 Loop rs.Close 　‘关闭记录集 cn.Close 　　　　‘关闭连接 Set rs =Nothing　‘回收记录集对象变量的内存占有 Set cn =Nothing　‘回收数据库对象变量的内存占有 ……. 返回 五、数据库编程分析 综合分析Access环境下的数据库编程，大致可以划分为以下情况： (1)利用VBA+ADO(或DAO)操作当前数据库。 (2)利用VBA+ADO(或DAO)操作本地数据库 (Access数据库或其他)。 (3)利用VBA+ADO(或DAO)操作远端数据库(Access数据库或其他)。 例9．10试编写子过程分别用DAO和ADO来完成对“教