全国2级ACCESS教程第9章VBA数据库编程.ppt

第9章 VBA数据库编程;9.1.1 VBA常见操作; 3、消息框 格式：msgbox(提示文字,按钮类型,标题文字) 说明：提示文字必须有，其他可以省略。; 5、计时事件（Timer） Timer事件表示每隔指定的一段时间自动执行的代码。VBA中没有提供计时控件，一般是给窗体的Timer事件添加计时的时候执行的代码，然后通过设置TimerInterval属性的值确定多久执行一次(以毫秒为单位)Timer事件代码并马上开始按间隔执行Timer事件代码，如果设置TimerInterval的值为0则停止执行Timer事件。; 例如：制作好下图所示的窗体，要求：按每隔100毫秒进行计时，开始时暂停按钮不能使用，正在计时过程计时按钮不能使用，暂停时暂停按钮不能使用。其中文本框的名称为t，计时按钮的名称为play，暂停按钮的名称为pause，给窗体、计时按钮、暂停按钮、Timer事件添加的代码如下页所示。;Private Sub play_Click() 计时???钮单击代码 Me!pause.Enabled = True 设置暂停按钮可用 pause.SetFocus 将光标设置到暂停按钮 Me!play.Enabled = False 将计时按钮设为不可用 TimerInterval = 100 设置每隔100毫秒执行一次Timer事件 End Sub Private Sub Form_Load() 窗体load事件代码 Me!pause.Enabled = False End Sub;Private Sub Form_Timer() 窗体timer事件代码 Static count As Double 定义为静态的使其能保留上一次计时的结果 count = count + 0.1 t = count End Sub Private Sub pause_Click() 暂停按钮单击事件代码 Me!play.Enabled = True play.SetFocus Me!pause.Enabled = False TimerInterval = 0 End Sub;9.1.2 VBA的数据库编程; 在VBA中可以通过编程来对表中的数据进行操作。在操作过程中主要使用的是数据访问对象DAO或ADODB提供的方法来操作，其主要的操作步骤为： 1、定义对应的变量。 2、打开数据库或连接到数据库。 3、打开表或执行SQL语句将记录集保存起来。 4、读取记录集中的字段保存到变量中。 5、循环读取字段中的每一个值进行汇总、更新、添加、删除的操作。 6、关闭记录集及关闭数据库。; 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(班级名