最帅的蛆在屎上翻滚
如何破解microsoft access密码
ACCESS数据库 Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。图1是一个“产品”表的例子。“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。“产品ID”是字段名，其下面的1,2等是字段的值。
表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。Access数据库以文件形式保存，文件的扩展名是MDB。
Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。
表（Table） ——表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。
查询（Query）——查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。
窗体（Form）——窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。
报表（Report）——报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。
宏（Macro）——宏相当于DOS中的批处理，用来自动执行一系列操作。Access列出了一些常用的操作供用户选择，使用起来十分方便。
模块（Module）——模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用Visual Basic编程。
access密码修改代码
If IsNull(Me![user]) = True Then MsgBox "请选择要修改密码的用户！"， 64， "系统提示" Me![user].SetFocus ElseIf IsNull(Me![pwd]) = True Then MsgBox "原密码不可以为空，请重新输入！"， 64， "系统提示" Me![pwd].SetFocus ElseIf IsNull(Me![newpwd1]) = True Then MsgBox "密码不可以为空，请重新输入！"， 64， "系统提示" Me![newpwd1].SetFocus Else If IsNull(Me![newpwd2]) = True Then MsgBox "密码不可以为空，请重新输入！"， 64， "系统提示" Me![newpwd2].SetFocus ElseIf Me![newpwd1] <> Me![newpwd2] Then MsgBox "新密码俩次输入不一致，请确认后重新输入！"， 64， "系统提示" Me![newpwd2] = "" Me![newpwd1] = "" Me![newpwd1].SetFocus Else If IsNull(DLookup（"姓名"， "tb用户资料"， "姓名='" & Me![user] & "' and 密码='" & Me![pwd] & "'"）) = True Then MsgBox "原密码不对，请重新输入！"， 64， "系统提示" Me![pwd] = "" Me![pwd].SetFocusElseDim i As IntegerDim stemp As StringDim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetstemp = "select * from tb用户资料 where 姓名='" & Me![user] & "'"rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimisticrs（"密码"） = Me![newpwd1]rs.UpdateBatchMsgBox "密码修改成功，请记住新密码"， 64， "系统提示"DoCmd.Close acForm， "修改密码"。
如何解除Access的密码
Access 设置：执行"工具"菜单"安全"子菜单中的"加密数据库"命令，然后再输入适当的密码即可。
解除：利用UltraEdit等软件采用二进制格式打开加密后的Access数据库，然后将地址为0042的字节改为86并存盘退出，数据库的密码即失效（建议执行此操作前先做一个备份）。另外，我们也可到http://www.elcomsoft.com/下载一个AAPR(Advanced Access Password Recovery)程序来解除Access数据库密码。
access中密码修改要怎么编写过程代码 急
If IsNull(Me![user]) = True Then
MsgBox "请选择要修改密码的用户！"， 64， "系统提示"
Me![user].SetFocus
Else
If IsNull(Me![pwd]) = True Then
MsgBox "原密码不可以为空，请重新输入！"， 64， "系统提示"
Me![pwd].SetFocus
Else
If IsNull(Me![newpwd1]) = True Then
MsgBox "密码不可以为空，请重新输入！"， 64， "系统提示"
Me![newpwd1].SetFocus
Else
If IsNull(Me![newpwd2]) = True Then
MsgBox "密码不可以为空，请重新输入！"， 64， "系统提示"
Me![newpwd2].SetFocus
Else
If Me![newpwd1] <> Me![newpwd2] Then
MsgBox "新密码俩次输入不一致，请确认后重新输入！"， 64， "系统提示"
Me![newpwd2] = ""
Me![newpwd1] = ""
Me![newpwd1].SetFocus
Else
If IsNull(DLookup（"姓名"， "tb用户资料"， "姓名='" & Me![user] & "' and 密码='" & Me![pwd] & "'"）) = True Then
MsgBox "原密码不对，请重新输入！"， 64， "系统提示"
Me![pwd] = ""
Me![pwd].SetFocus
Else
Dim i As Integer
Dim stemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select * from tb用户资料 where 姓名='" & Me![user] & "'"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimistic
rs（"密码"） = Me![newpwd1]
rs.UpdateBatch
MsgBox "密码修改成功，请记住新密码"， 64， "系统提示"
DoCmd.Close acForm， "修改密码
转载请注明出处51数据库 » hmcaccesspassword
