《vba数据库编程》由会员分享，可在线阅读，更多相关《vba数据库编程（16页珍藏版）》请在金锄头文库上搜索。
1、9.1 VBA常见操作n1.打开和关闭操作n(1)打开窗体操作n一个程序中往往包含多个窗体，可以用代码的形式关联这 些窗体，从而形成完整的程序结构。n命令格式为：nDoCmd.OpenForm formname,view ,filtername ,wherecondition ,datamode ,windowmode n【例9.1】以对话框形式打开名为“学生信息登录”窗体。nDoCmd.OpenForm “学生信息登录“,acDialogn注意：参数可以省略，取缺省值，但分隔符“,”不能省略。n(2)打开报表操作n命令格式：nDoCmdOpenReport reportname,view,f
2、iltername,whereconditionn(3)关闭操作n命令格式为：nDoCmd.Close ,objecttype,objectname,saven【例9.2】关闭名为“学生信息登录”窗体。nDoCmd.Close acForm,“学生信息登录“n如果“学生信息登录”窗体就是当前窗体，则可以使用语句 ：DoCmd.Close。2.输入框(InputBox)n输入框用于在一个对话框中显示提示，等 待用户输入正文并按下按钮、返回包含文 本框内容的字符串数据信息。n格式如下：nInputBox(prompt,title,default,xpos ,ypos,helpfile,contex
3、t)3.信息框(MsgBox)n消息框用于在对话框中显示消息，等待用 户单击按钮，并返回一个整型值告诉用户 单击哪一个按钮。n格式如下：nMsgBox(prompt,buttons,title,helpfil e,context)4.VBA编程验证数据nBeforeUpdate:n通过创建窗体或控件的BeforeUpdate事件过程， 可以实现对输入到窗体控件中的数据进行各种验 证。例如，数据类型验证、数据范围验证等。n【例9.3】对窗体test上文本框控件txtAge中输入的学生年龄数据进行 验证。要求：该文本框中只接受1530之间的数值数据，提示取消不 合法数据。n添加该文本控件的Befo
4、reUpdate事件过程代码如下：nPrivate Sub txtAge_BeforeUpdate (Cancel As Integer)n If Me!txtAge =“ Or IsNull (Me!txtAge)Then 数据为空时的 验证n MsgBox “年龄不能为空!“,VbCritical,“警告“n Cancel = True 取消BeforeUpdate事件nElseIf IsNumeric (Me!txtAge) = False Then 非数值数据输 入的验证n MsgBox “年龄必须输入数值数据!“,VbCritical,“警告“n Cancel = True 取消Be
5、foreUpdate事件nElseif Me! txtAge 30 Then 非法范围数 据输入的验证n MsgBox “年龄为1530范围数据!“,VbCritical,“警告“n Cancel = True 取消BeforeUpdate事件nElse 数据验证通过n MsgBox “数据验证OK!“,VbInformation,“通告“nEnd IfnEnd Sub5.计时事件(Timer)n(TimerInterval) :计时器间隔n其处理过程是：Timer事件每隔 TimerInterval时间间隔就会被激发一次，并 运行Timer事件过程来响应。这样重复不断 ，即实现“定时”处理功
6、能。n【例9.5】设计一个用户登录窗体，输入用 户名和密码，如用户名或密码为空，则给 出提示，重新输入；如用户名或密码不正 确，则给出错误提示，结束程序运行；如 正确，则显示“欢迎使用!”信息。要求整个登 录过程要在30秒中完成，如果超过30秒还 没有完成正确的登录操作，则程序给出提 示自动终止这个登录过程。图9.5 具有时间限制的登录窗体 图9.6 超时时显示的提示信息 当用户名和密码输 入有问题时 ，会显示如图9.7中的、或； 当用户名和密码输 入均正确时，会显示如图9.7中的所示。图9.7 登录程序在输入用户名和密码后可能出现的界面n代码如下：nOption Compare Databa
7、senDim flag As Boolean 标志标量，用于存储按钮的单击动作nDim second As Integer 计时器变量nDim lcount As Integer 计次变量nPrivate Sub Form_Open(Cancel As Integer) 窗体打开事件n second = 0 事件计数器清 0n lcount = 0 登录计次变量清 0nEnd SubnPrivate Sub Form_Timer( ) 计时器触发事件n If second 30 Thenn MsgBox “请在30秒中登录“, vbCritical, “警告“n DoCmd.Closen El
8、sen Me!lNum.Caption = 30 - second 倒计时显示n End Ifn second = second + 1 计时器+1nEnd SubnPrivate Sub OK_Click( ) 按钮单击事件n lcount = lcount + 1 计次+1n If Len(Nz(Me!username) = 0 And Len(Nz(Me!userpassword) = 0 And lcount = 3 Thenn MsgBox “请确认用户名和密码后再登录“, vbCritical, “警告“n DoComd.ClosenEnd IfnEnd Sub9.2 VBA的数据
9、库编程 n3种数据库访问接口n开放数据库互连应用编程接口(ODBC API)nWindows提供的32位ODBC驱动程序,在Access应用中，直接使用 ODBC API需要大量VBA函数原型声明(Declare)和一些繁琐的编程， 因此，实际编程很少直接进行ODBC API的访问。n数据访问对象(DAO)n适用于单系统应用程序或在小范围本地分布使用，数据库的访问进行 了加速优化，而且使用起来也是很方便的。如果数据库是Access数据 库且是本地使用的话，可以使用这种访问方式。nActiveX数据对象(ADO)n基于组件的数据库编程接口，是一个和编程语言无关的COM组件系 统。使用它可以方便地
10、连接任何符合ODBC标准的数据库。3.数据访问对象(DAO)DBEngineError(s)Workspace(s)Database(s)Field(s)QueryDef(s)RecordSet(s)图9.11 DAO模型层次简图4.ActiveX数据对象(ADO)Error(s)ConnectionCommandRecordSetField(s)图9.12 ADO对象模型简图Error对象Field对象Connection对象Recordset对象Command对象Parameter对象Parameters集合Errors集合Fields集合 Execute方法ActiveConnection属性ActiveConnection属 性Execute方法Source属性图9.13 ADO对象联系图
