Access补充知识.pptVIP

补充知识;一、输入掩码; #：表示所占的位置可以输也可以不输入内容，但是输入时只能输入数字、空格、+、-。; ：表示所占的位置必须输入内容，所输的内容可以是任意的字符（包括空格、字母、数字等）。;二、数据库编程; 1、定义对应的变量：主要代码如下 Dim db As DAO.Database 定义变量db用来保存要使用的数据库 Dim rs As DAO.Recordset 定义变量rs用来保存要使用的记录集 Dim mc As DAO.Field 定义字段变量用来保存某个字段的所有值 Dim num As DAO.Field 如果要读取多个字段的值则需要定义多个DAO.Field类型的字段变量; 2、打开数据库或连接到数据库。 Set db = CurrentDb() 设置数据库为当前使用的数据库; 4、读取记录集中的字段保存到变量中。 Set mc = rs.Fields(班级名称) 读取字段的所有值保存到字段变量中，并指向第一个值 Set num = rs.Fields(人数) 如果要读取多个字段的值，每个字段都需要这样读; 5、循环读取字段中的每一个值进行汇总、更新、添加、删除的操作。 Do While Not rs.EOF 还没读到最后一条记录 对读取得到的记录进行操作 rs.MoveNext 读取下一条记录 Loop 上述红色的两个地方一般都是必须的。; 举例：读取“班级信息表”中的所有班级名称并提示。具体代码如下： Sub abc() Dim db As DAO.Database Dim rs As DAO.Recordset Dim mc As DAO.Field Set db = CurrentDb() Set rs = db.OpenRecordset(班级信息表) Set mc = rs.Fields(班级名称) Do While Not rs.EOF MsgBox mc rs.MoveNext Loop rs.Clone db.Close End Sub; 如果读取的是数值型字段的值，可以用保存该字段的变量直接与一个数值型变量进行运算。 举例：循环读取“班级信息表”中“人数”字段的值，将所有的人数之和保存到变量sum中。 代码见下一张幻灯片。;Sub abc() Dim db As DAO.Database Dim rs As DAO.Recordset Dim num As DAO.Field Dim sum As Integer Set db = CurrentDb() Set rs = db.OpenRecordset(班级信息表) Set num = rs.Fields(人数) Do While Not rs.EOF sum = sum + num rs.MoveNext Loop MsgBox sum rs.Clone db.Close End Sub; 如果想对当前读取到的记录进行修改，可以使用“字段变量 = 值”的格式进行修改，但在修改前必须要使用rs.Edit表示允许进行修改，修改后必须使用rs.Update进行更新。 举例：对“班级信息表”中“班级名称”以“艺术”开头的班级，将人数增加100。 代码见下一张幻灯片。;Sub abc() Dim db As DAO.Database Dim rs As DAO.Recordset Dim mc As DAO.Field Dim num As DAO.Field Set db = CurrentDb() Set rs = db.OpenRecordset(班级信息表) Set mc = rs.Fields(班级名称) Set num = rs.Fields(人数) Do While Not rs.EOF If mc Like 艺术* Then rs.Edit num = num + 100 rs.Update End