第09章 VBA数据库编程.docVIP

VBA常见操作 验证数据函数 P250 见书P250　例9.3：验证数据，取消不合法数据 BeforeUpdate事件说明： 文本框BeforeUpdate事件：更新前事件，若设置为有参过程，则 参数为真，文本框一直处于更新前状态，就是不更新，鼠标会一直在文本框中。 参数为假，结束更新前事件，会执行更新，文本框内容改为新内容 帮助验证的相关函数 IsNumeric 验证数据为数值，则返回值为ture IsDate 验证数据为日期，则返回值为ture IsNull 验证数据为空（无效数据），则返回值为ture IsEmpty 验证数据为空（未初始化），则返回值为ture IsArray 验证数据为数组，则返回值为ture IsError 验证数据有错误，则返回值为ture IsObject 验证数据为对象，则返回值为ture 计时事件（timer） 见书 P251 例9.4：单击按钮控制计时 按钮控制技巧 Private sub bok_click() Fage=not fage ‘单击按钮后与单击按钮前fage相反 End sub 鼠标和键盘事件处理 见书 鼠标事件 P254 控件名_MouseDown（button as integer，shift as integer ， x as single ， y as single） Button参数：acLeftButton（左键）、acRightButton（右键）、acMiddleButton（中键） Shift参数： 作用：在按下鼠标的同时，按下键盘的哪个键控制键 参数值：acShiftMask（shift键）、acAltMask（alt键）、acCtrlMask（Ctrl键） 例9.6：Button参数：判断按下鼠标的左、中、右键 Private sbu form_MouseDown（Button as integer，shift as integer，X as singl，Y as single） If button=acLeftbutton then Msgbox “你按下了鼠标的左键” End if End sub 例：Shift参数、 Private sbu form_MouseDown（Button as integer，shift as integer，X as singl，Y as single） If button=acLeftbutton and shift =acctrlmask then Msgbox “你按下了鼠标的左键和键盘的CTRL键” End if End sub 例：X参数、Y参数 Private sbu form_MouseDown（Button as integer，shift as integer，X as singl，Y as single） If button=acLeftbutton and shift =acctrlmask then Msgbox “你按下了鼠标的左键和键盘的CTRL键” X “,” Y End if End sub ADO和DAO数据库编程 数据库引擎 P257 是一组动态链接库（DLL），当程序运行时被连接到VBA程序而实现对数据库的数据访问功能，是应用程序与物理数据库之间的桥梁。 3个数据库访问接口： ODBCAPI：开放数据库互连应用编程接口 DAO：访问数据库的对象模型 ADO：active数据对象 作用 这几个接口的作用是能够提供其它应用程序能够访问数据库里面的数据。 DAO 概念 DAO（数据访问对象，Data access objects）是VBA提供的一种访问数据的接口，即访问数据库的对象模型，利用对象访问数据库 增加DAO库的引用 进入VBE编程环境（ALT+F11）----“工具”菜单----引用----microsoft DAO3.6 object Library DAO数据访问对象 P259 DAO模型提供了不同的对象，不同对象分别对应被访问数据库的不同部分 例 P260 范例 Private sub cmd1_click() Dim ws as dao.workspace ‘开辟内存空间，打开工作区 Dim db as dao.database ‘连接数据库，打开数据库 Dim rs as dao.recordset ‘访问数据库中的记录集 Dim fd as dao.field ‘操作数据中的字段 Set ws = DBEnging.workspace(0) ‘打开默认工作区 Set db = ws.OpenDatabase(路径\数据库文名) ‘打开数据库文件 ‘上两句见“说明1” Set rs = db