全国计算机等级考试Access数据库程序设计（二级）VBA编程基础5.1数据库引擎及其接口5.1数据库引擎及其接口5.2数据访问对象DAO5.2数据访问对象DAO-程序范例DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimfdAsDAO.FieldSetdb=CurrentDb()Setrs=db.OpenRecordset("Student")Setfd=rs.Fields("年龄")DoWhileNotrs.EOFrs.Editfd=fd+1rs.Updaters.MoveNextLooprs.Closedb.CloseSetrs=NothingSetdb=Nothing5.3ActiveX数据对象(ADO)5.3ADO-程序范例5.3ADO-程序范例5.3ADO的数据库连接5.3打开结果集时候的参数练习题练习题DimstrAsStringDimrsAsNewADODB.RecordsetDimfdAsADODB.FieldSetcn=CurrentProject.Connectionlogname=Trim(Me.username)pass=Trim(Me.pass)IfLen(Nz(logname))=0ThenMsgBox"请输入用户名！"ElseIfLen(Nz(pass))=0ThenMsgBox"请输入密码！"Elsestr="SELECT*FROM密码表WHERE用户名='"&logname&"'AND密码='"&pass&"'"rs.Openstr,cn,adOpenDynamic,adLockOptimisticIfrs.EOFThenMsgBox"用户名或密码，请重新输入！"Me.username.Text=""Me.pass.Text=""ElseSetfd=rs.Fields("权限")Iffd="管理员"ThenDoCmd.Close'DoCmd.OpenForm"管理员窗体"MsgBox"欢迎，管理员"ElseDoCmd.Close'DoCmd.OpenForm"用户窗体"MsgBox"欢迎，用户"EndIfEndIfEndIf5.4数据处理的几个函数5.4数据处理的几个函数5.4数据处理的几个函数5.4数据处理的几个函数－例子5.5VBA程序运行错误处理5.5VBA程序运行错误处理5.5VBA程序运行错误处理5.5VBA程序运行错误处理