第13章 VBA数据库编程.ppt

1、VBA数据库编程,常见操作,打开窗体 DoCmd.OpenForm 窗体名 打开报表 DoCmd.OpenReport 报表名 关闭 DoCmd.Close,提示函数： 消息框用于在对话框中显示消息，等待用户单击按钮，并返回一个整型值告诉用户单击哪一个按钮。其使用格式如下： MsgBox(prompt,buttons,title,helpfile,context) 输入框用于在一个对话框中显示提示，等待用户输入正文并按下按钮、返回包含文本框内容的字符串数据信息。它的功能在VBA中是以函数的形式调用使用，其使用格式如下： InputBox(prompt,title,default,xpos,yp

2、os,helpfile,context),验证函数,IsNumeric（）是否为数值 IsDate() 是否可以转换成日期 IsNull() 是否是空值 IsEmpty() 是否未初始化 IsArray() 是否为一个数组 IsError () 是否是错误值 IsObject() 是否表示对象变量,计时事件,Timer 计时器 TimerInterval 计时器间隔以毫秒为单位 比如： Me! TimerInterval =1000 时间间隔为1秒 一般可以在窗体属性里设置,鼠标键盘事件,MouseDown MouseUP MouseMove KeyDown KeyPress KeyUp,数据

3、库访问技术,数据库访问：打开数据库，打开数据表或查询，对数据表或查询进行各类操作。 有两种对象可以实现数据库的访问： 1、DAO（数据访问对象） 2、ADO（ActiveX数据对象）,DAO的访问格式,Dim ws As Workspac 定义工作区对象，为其分配内存空间 Dim db As Database 定义数据库对象，为其分配内存空间 Dim rs As RecordSet 定义记录集对象，为其分配内存空间 Set ws=DBEngine.Workspace(0) 设定具体的工作区 Set db=ws.OpenDatabase(数据库名) 打开数据库实体 Set rs=db.OpenR

4、ecordSet(记录集名) 打开数据库中的数据表（查询） 一系列的操作 rs.close 关闭记录集 db.close 关闭数据库 Set rs=Nothing 回收rs对象内存空间 Set db=Nothing 回收db对象内存空间,记录集包括表和查询,ADO的访问格式,Dim cn As new ADODB.Connection定义连接对象分配内存空间 Dim rs As new ADODB.RecordSet定义记录集对象分配内存空间 cn.Open(连接字符串) 连接数据库 rs.Open(打开参数) 打开记录集 一系列的操作 rs.close 关闭记录集 cn.close 关闭数据

5、库 Set rs=Nothing 回收记录集内存空间 Set cn=Nothing 回收连接对象内存空间,对数据表最常见的操作,遍历记录集 Do While Not rs.EOF 当指针没有到末尾时循环 一系列操作 rs.MoveNext 指针向下移 Loop 循环控制 设定字段对象 Dim fd As DAO.Field （DAO使用） 或Dim fd As ADODB.Field （ADO使用） Set fd=rs.Fields(字段名) 编辑记录：rs.Edit 更新记录：rs.Update,（13）下列子过程的功能是：将当前数据库文件中“学生表”的学生“年龄”都加1。 Private

6、Sub SetAgePlus1_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim fd As DAO.Field Set db=CurrentDb() Set rs=db.OpenRecordset(“学生表”) Set fd=rs.Fields(“年龄”) Do While Not rs.EOF rs.Edit fd=【14】 rs.Update 【15】 Loop rs.Close db.Close Set rs=Nothing Set db=Nothing End Sub,程序缺失： 赋值语句 指针移动,【14】答案：fd+1,【15】答案： rs.MoveNext,【15】答案： rs.MoveNext,【15】答案： rs.MoveNext,示例,分别用DAO和ADO完成对school数据库中的student表的“年龄”加1的操作。,DAO,定义过程,定义工作空间变量,定义数据库变量,定义记录集变量,定义字段变量,工作空间赋值,数据库赋值,数据表赋值,字段赋值,打开记录集的编辑状态,对当前记录的字段进行操作,更新记录集,下一条记录,关闭记录集,关闭数据库,清空变量内存,ADO,定义过程,定义连接对象,定义记录集变量,定义字段变量,数据库路径赋值,打开数据库,