《VBA数据库编程》PPT课件

《《VBA数据库编程》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

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

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

4、名)打开数据库实体Setrs=db.OpenRecordSet(记录集名)打开数据库中的数据表（查询）……一系列的操作rs.close关闭记录集db.close关闭数据库Setrs=Nothing回收rs对象内存空间Setdb=Nothing回收db对象内存空间记录集包括表和查询ADO的访问格式DimcnAsnewADODB.Connection定义连接对象分配内存空间DimrsAsnewADODB.RecordSet定义记录集对象分配内存空间cn.Open(连接字符串)连接数据库rs.Open(打开参数)打开记录集……一系列的操作rs.c

5、lose关闭记录集cn.close关闭数据库Setrs=Nothing回收记录集内存空间Setcn=Nothing回收连接对象内存空间对数据表最常见的操作遍历记录集DoWhileNotrs.EOF当指针没有到末尾时循环……一系列操作rs.MoveNext指针向下移Loop循环控制设定字段对象DimfdAsDAO.Field（DAO使用）或DimfdAsADODB.Field（ADO使用）Setfd=rs.Fields(字段名)编辑记录：rs.Edit更新记录：rs.Update（13）下列子过程的功能是：将当前数据库文件中“学生表”的学生“

6、年龄”都加1。PrivateSubSetAgePlus1_Click()DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimfdAsDAO.FieldSetdb=CurrentDb()Setrs=db.OpenRecordset(“学生表”)Setfd=rs.Fields(“年龄”)DoWhileNotrs.EOFrs.Editfd=【14】rs.Update【15】Looprs.Closedb.CloseSetrs=NothingSetdb=NothingEndSub程序缺失：赋值语句指针移动【14】答案：

7、fd+1【15】答案：rs.MoveNext【15】答案：rs.MoveNext【15】答案：rs.MoveNext示例分别用DAO和ADO完成对school数据库中的student表的“年龄”加1的操作。DAO定义过程定义工作空间变量定义数据库变量定义记录集变量定义字段变量工作空间赋值数据库赋值数据表赋值字段赋值打开记录集的编辑状态对当前记录的字段进行操作更新记录集下一条记录关闭记录集关闭数据库清空变量内存ADO定义过程定义连接对象定义记录集变量定义字段变量数据库路径赋值打开数据库记录集赋值字段赋值对当前记录的字段进行操作更新记录集下一条

8、记录关闭记录集关闭数据库清空变量内存定义数据库路径字符串定义SQL字符串(形成记录集)定义引擎版本打开记录集谢谢合作！祝大家假期愉快！