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

Company Logo 第9章 VBA数据库编程 Access数据库程序设计 授课教师：邓广彪 联系电话电子邮箱：342039882@ 9.1.1 VBA常见操作 1、打开和关闭操作 (1) 打开窗体：DoCmd.OpenForm 窗体名 (2) 打开报表：DoCmd.OpenReport 报表名 (3) 关闭操作：DoCmd.Close 对象类型,对象名 2、输入框 格式：inputbox(显示文字,标题文字,默认文字) 说明：显示文字必须有，其他可以省略。 3、消息框 格式：msgbox(提示文字,按钮类型,标题文字) 说明：提示文字必须有，其他可以省略。 4、VBA验证函数 在控件中的数据被改变之前或记录数据被更新之前会发生BeforeUpdate事件。 要记得表10-6的验证函数名及说明。 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中提供了3种数据库访问接口： 1、开放式数据库ODBC 2、数据访问对象DAO 3、ActiveX数据对象ADO DAO中的对象：DBEngine、Workspace、Database、RecordSet、Field、QueryDef、Error。 在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() 设置数据库为当前使用的数据库 3、打开表或执行SQL语句将记录集保存起来。