第09章 VBA数据库编程

《第09章 VBA数据库编程》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、第一节：VBA常见操作第一考点　验证数据函数P250一、见书P250　例9.3：验证数据，取消不合法数据二、BeforeUpdate事件说明：文本框BeforeUpdate事件：更新前事件，若设置为有参过程，则参数为真，文本框一直处于更新前状态，就是不更新，鼠标会一直在文本框中。参数为假，结束更新前事件，会执行更新，文本框内容改为新内容三、帮助验证的相关函数IsNumeric验证数据为数值，则返回值为tureIsDate验证数据为日期，则返回值为tureIsNull验证数据为空（无效数据），则返回值为tureIsEm

2、pty验证数据为空（未初始化），则返回值为tureIsArray验证数据为数组，则返回值为tureIsError验证数据有错误，则返回值为tureIsObject验证数据为对象，则返回值为ture第二考点　计时事件（timer）一、见书P251例9.4：单击按钮控制计时二、按钮控制技巧Privatesubbok_click()Fage=notfage‘单击按钮后与单击按钮前fage相反Endsub第三考点　鼠标和键盘事件处理一、见书1、鼠标事件P254控件名_MouseDown（buttonasinteger，shi

3、ftasinteger，xassingle，yassingle）水平位置垂直位置鼠标左中右键盘控制键Button参数：acLeftButton（左键）、acRightButton（右键）、acMiddleButton（中键）Shift参数：作用：在按下鼠标的同时，按下键盘的哪个键控制键参数值：acShiftMask（shift键）、acAltMask（alt键）、acCtrlMask（Ctrl键）2、例9.6：Button参数：判断按下鼠标的左、中、右键Privatesbuform_MouseDown（Buttona

4、sinteger，shiftasinteger，Xassingl，Yassingle）Ifbutton=acLeftbuttonthenMsgbox“你按下了鼠标的左键”EndifEndsub1、例：Shift参数、Privatesbuform_MouseDown（Buttonasinteger，shiftasinteger，Xassingl，Yassingle）Ifbutton=acLeftbuttonandshift=acctrlmaskthenMsgbox“你按下了鼠标的左键和键盘的CTRL键”EndifEnd

5、sub2、例：X参数、Y参数Privatesbuform_MouseDown（Buttonasinteger，shiftasinteger，Xassingl，Yassingle）Ifbutton=acLeftbuttonandshift=acctrlmaskthenMsgbox“你按下了鼠标的左键和键盘的CTRL键”&X&“,”&YEndifEndsub第二节：ADO和DAO数据库编程一、数据库引擎P257是一组动态链接库（DLL），当程序运行时被连接到VBA程序而实现对数据库的数据访问功能，是应用程序与物理数据库之

6、间的桥梁。二、3个数据库访问接口：ODBCAPI：开放数据库互连应用编程接口DAO：访问数据库的对象模型ADO：active数据对象三、作用这几个接口的作用是能够提供其它应用程序能够访问数据库里面的数据。第一考点　DAO一、概念DAO（数据访问对象，Dataaccessobjects）是VBA提供的一种访问数据的接口，即访问数据库的对象模型，利用对象访问数据库二、增加DAO库的引用进入VBE编程环境（ALT+F11）----“工具”菜单----引用----microsoftDAO3.6objectLibrary三、D

7、AO数据访问对象P259DAO模型提供了不同的对象，不同对象分别对应被访问数据库的不同部分四、例P2601、范例Privatesubcmd1_click()定义变量：dim变量名as变量类型Dimwsasdao.workspace‘开辟内存空间，打开工作区Dimdbasdao.database‘连接数据库，打开数据库Dimrsasdao.recordset‘访问数据库中的记录集Dimfdasdao.field‘操作数据中的字段Setws=DBEnging.workspace(0)‘打开默认工作区Setdb=ws.Op

8、enDatabase(路径数据库文名)‘打开数据库文件‘上两句见“说明1”Setrs=db.OpenRecordset(表、查询或SQL语句)‘打开数据记录集Setfd=rs.fields(“字段名”)‘操作某个字段Dowhilenotrs.EOF‘当指针没有达到最后一条时，执行循环体中的语句Rs.edit‘修改，编辑…….‘具体操作语句Rs