第13篇 VBA数据库编程.ppt

VBA数据库编程 常见操作 打开窗体 DoCmd.OpenForm 窗体名 打开报表 DoCmd.OpenReport 报表名 关闭 DoCmd.Close 提示函数： 消息框用于在对话框中显示消息，等待用户单击按钮，并返回一个整型值告诉用户单击哪一个按钮。其使用格式如下： MsgBox(prompt［,buttons］［,title］［,helpfile］［,context］) 输入框用于在一个对话框中显示提示，等待用户输入正文并按下按钮、返回包含文本框内容的字符串数据信息。它的功能在VBA中是以函数的形式调用使用，其使用格式如下： InputBox(prompt［,title］［,default］［,xpos］［,ypos］［,helpfile,context］) 验证函数 IsNumeric（）是否为数值 IsDate() 是否可以转换成日期 IsNull() 是否是空值 IsEmpty() 是否未初始化 IsArray() 是否为一个数组 IsError () 是否是错误值 IsObject() 是否表示对象变量 计时事件 Timer 计时器 TimerInterval 计时器间隔以毫秒为单位 比如： Me! TimerInterval =1000 时间间隔为1秒 一般可以在窗体属性里设置 鼠标键盘事件 MouseDown MouseUP MouseMove KeyDown KeyPress KeyUp 数据库访问技术 数据库访问：打开数据库，打开数据表或查询，对数据表或查询进行各类操作。 有两种对象可以实现数据库的访问： 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.OpenRecordSet(记录集名) 打开数据库中的数据表（查询） …… 一系列的操作 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 关闭数据库 Set rs=Nothing 　 回收记录集内存空间 Set cn=Nothing 回收连接对象内存空间 对数据表最常见的操作 遍历记录集 Do While Not rs.EOF 当指针没有到末尾时循环 …… 一系列操作 rs.MoveNext 指针向下移 Loop 循环控制 设定字段对象 Dim fd As DAO.Fi