VBA编程基础-数据库编程.ppt

全国计算机等级考试Access数据库程序设计（二级）VBA编程基础5.1数据库引擎及其接口5.1数据库引擎及其接口5.2数据访问对象DAO5.2数据访问对象DAO-程序范例DimdbAsDAO.Database
DimrsAsDAO.Recordset
DimfdAsDAO.Field

Setdb=CurrentDb()
Setrs=db.OpenRecordset("Student")
Setfd=rs.Fields("年龄")

DoWhileNotrs.EOF
rs.Edit
fd=fd+1
rs.Update
rs.MoveNext
Loop

rs.Close
db.Close
Setrs=Nothing
Setdb=Nothing5.3ActiveX数据对象(ADO)5.3ADO-程序范例5.3ADO-程序范例5.3ADO的数据库连接5.3打开结果集时候的参数练习题练习题DimstrAsString
DimrsAsNewADODB.Recordset
DimfdAsADODB.Field
Setcn=CurrentProject.Connection
logname=Trim(Me.username)
pass=Trim(Me.pass)
IfLen(Nz(logname))=0Then
MsgBox"请输入用户名！"
ElseIfLen(Nz(pass))=0Then
MsgBox"请输入密码！"
Else
str="SELECT*FROM密码表WHERE用户名='"&logname&"'AND密码='"&pass&"'"
rs.Openstr,cn,adOpenDynamic,adLockOptimistic
Ifrs.EOFThen
MsgBox"用户名或密码，请重新输入！"
Me.username.Text=""
Me.pass.Text=""
Else
Setfd=rs.Fields("权限")
Iffd="管理员"Then
DoCmd.Close
'DoCmd.OpenForm"管理员窗体"
MsgBox"欢迎，管理员"
Else
DoCmd.Close
'DoCmd.OpenForm"用户窗体"
MsgBox"欢迎，用户"
EndIf
EndIf
EndIf5.4数据处理的几个函数5.4数据处理的几个函数5.4数据处理的几个函数5.4数据处理的几个函数－例子5.5VBA程序运行错误处理5.5VBA程序运行错误处理5.5VBA程序运行错误处理5.5VBA程序运行错误处理