《VBA数据库编程.ppt》由会员分享，可在线阅读，更多相关《VBA数据库编程.ppt（16页珍藏版）》请在三一办公上搜索。
1、9.1 VBA常见操作,1.打开和关闭操作(1)打开窗体操作一个程序中往往包含多个窗体，可以用代码的形式关联这些窗体，从而形成完整的程序结构。命令格式为：DoCmd.OpenForm formname,view,filtername,wherecondition,datamode,windowmode【例9.1】以对话框形式打开名为“学生信息登录”窗体。DoCmd.OpenForm 学生信息登录,acDialog注意：参数可以省略，取缺省值，但分隔符“,”不能省略。,(2)打开报表操作命令格式：DoCmdOpenReport reportname,view,filtername,whereco
2、ndition(3)关闭操作命令格式为：DoCmd.Close,objecttype,objectname,save【例9.2】关闭名为“学生信息登录”窗体。DoCmd.Close acForm,学生信息登录如果“学生信息登录”窗体就是当前窗体，则可以使用语句：DoCmd.Close。,2.输入框(InputBox),输入框用于在一个对话框中显示提示，等待用户输入正文并按下按钮、返回包含文本框内容的字符串数据信息。格式如下：InputBox(prompt,title,default,xpos,ypos,helpfile,context),3.信息框(MsgBox),消息框用于在对话框中显示消息
3、，等待用户单击按钮，并返回一个整型值告诉用户单击哪一个按钮。格式如下：MsgBox(prompt,buttons,title,helpfile,context),4.VBA编程验证数据,BeforeUpdate:通过创建窗体或控件的BeforeUpdate事件过程，可以实现对输入到窗体控件中的数据进行各种验证。例如，数据类型验证、数据范围验证等。,【例9.3】对窗体test上文本框控件txtAge中输入的学生年龄数据进行验证。要求：该文本框中只接受1530之间的数值数据，提示取消不合法数据。添加该文本控件的BeforeUpdate事件过程代码如下：Private Sub txtAge_Befo
4、reUpdate(Cancel As Integer)If Me!txtAge=Or IsNull(Me!txtAge)Then 数据为空时的验证 MsgBox 年龄不能为空!,VbCritical,警告 Cancel=True 取消BeforeUpdate事件ElseIf IsNumeric(Me!txtAge)=False Then 非数值数据输入的验证 MsgBox 年龄必须输入数值数据!,VbCritical,警告 Cancel=True 取消BeforeUpdate事件Elseif Me!txtAge 30 Then 非法范围数据输入的验证 MsgBox 年龄为1530范围数据!,V
5、bCritical,警告 Cancel=True 取消BeforeUpdate事件Else 数据验证通过 MsgBox 数据验证OK!,VbInformation,通告End IfEnd Sub,5.计时事件(Timer),(TimerInterval):计时器间隔其处理过程是：Timer事件每隔TimerInterval时间间隔就会被激发一次，并运行Timer事件过程来响应。这样重复不断，即实现“定时”处理功能。,【例9.5】设计一个用户登录窗体，输入用户名和密码，如用户名或密码为空，则给出提示，重新输入；如用户名或密码不正确，则给出错误提示，结束程序运行；如正确，则显示“欢迎使用!”信息。
6、要求整个登录过程要在30秒中完成，如果超过30秒还没有完成正确的登录操作，则程序给出提示自动终止这个登录过程。,图9.5 具有时间限制的登录窗体 图9.6 超时时显示的提示信息,当用户名和密码输入有问题时，会显示如图9.7中的、或；当用户名和密码输入均正确时，会显示如图9.7中的所示。,图9.7 登录程序在输入用户名和密码后可能出现的界面,代码如下：Option Compare DatabaseDim flag As Boolean 标志标量，用于存储按钮的单击动作Dim second As Integer 计时器变量Dim lcount As Integer 计次变量Private Sub
7、Form_Open(Cancel As Integer)窗体打开事件 second=0 事件计数器清 0 lcount=0 登录计次变量清 0End SubPrivate Sub Form_Timer()计时器触发事件 If second 30 Then MsgBox 请在30秒中登录,vbCritical,警告 DoCmd.Close Else Me!lNum.Caption=30-second 倒计时显示 End If second=second+1 计时器+1End SubPrivate Sub OK_Click()按钮单击事件 lcount=lcount+1 计次+1 If Len(N
8、z(Me!username)=0 And Len(Nz(Me!userpassword)=0 And lcount=3 Then 用户名和密码均为空时的处理 MsgBox 用户名和密码不能为空!请输入+Chr(13)+Chr(13)+您还有&3-lcount&次机会,vbCritical,提示 Me!username.SetFocus 设置输入焦点在UserName文本框,ElseIf Len(Nz(Me!username)=0 And Count=3 Then MsgBox 请确认用户名和密码后再登录,vbCritical,警告 DoComd.CloseEnd IfEnd Sub,9.2 V
9、BA的数据库编程,3种数据库访问接口开放数据库互连应用编程接口(ODBC API)Windows提供的32位ODBC驱动程序,在Access应用中，直接使用ODBC API需要大量VBA函数原型声明(Declare)和一些繁琐的编程，因此，实际编程很少直接进行ODBC API的访问。数据访问对象(DAO)适用于单系统应用程序或在小范围本地分布使用，数据库的访问进行了加速优化，而且使用起来也是很方便的。如果数据库是Access数据库且是本地使用的话，可以使用这种访问方式。ActiveX数据对象(ADO)基于组件的数据库编程接口，是一个和编程语言无关的COM组件系统。使用它可以方便地连接任何符合ODBC标准的数据库。,3.数据访问对象(DAO),4.ActiveX数据对象(ADO),
