mdb数据库怎么设置密码

haoyun5918

求助 mdb数据库怎么设置密码 需要用到什么工具  麻烦 发个 操作方法和 设置密码的工具 感谢

清华大学优等生

office里面就带的有Access

找软件看我签名

access           

huayuanderen

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

.变量 数据库路径, 文本型

子程序名	返回值类型	公开	备 注
_按钮_选择文件_被单击

.局部变量 打开文件对话框, 通用对话框

打开文件对话框.过滤器 ＝ “MDB数据库|*.mdb”
如果真 (打开文件对话框.打开 () ＝ 真)
数据库路径 ＝ 打开文件对话框.文件名
编辑框_路径.内容 ＝ 数据库路径

子程序名	返回值类型	公开	备 注
_按钮_设置新密码_被单击

' 给未设置密码的MDB设置密码
.局部变量 新密码, 文本型
.局部变量 结果, 逻辑型

如果真 (数据库路径 ＝ “”)
信息框 (“请先选择MDB文件”, 0, )
返回 ()

新密码 ＝ 编辑框_新密码.内容
如果真 (新密码 ＝ “”)
信息框 (“请输入新密码”, 0, )
返回 ()

结果 ＝ 设置MDB密码 (数据库路径, “”, 新密码)
如果真 (结果)
信息框 (“密码设置成功”, 0, )

子程序名	返回值类型	公开	备 注
_按钮_修改密码_被单击

' 修改已有密码的MDB数据库密码
.局部变量 旧密码, 文本型
.局部变量 新密码, 文本型
.局部变量 结果, 逻辑型

如果真 (数据库路径 ＝ “”)
信息框 (“请先选择MDB文件”, 0, )
返回 ()

旧密码 ＝ 编辑框_旧密码.内容
新密码 ＝ 编辑框_新密码.内容
如果真 (旧密码 ＝ “” 或 新密码 ＝ “”)
信息框 (“请输入旧密码和新密码”, 0, )
返回 ()

结果 ＝ 设置MDB密码 (数据库路径, 旧密码, 新密码)
如果真 (结果)
信息框 (“密码修改成功”, 0, )

子程序名	返回值类型	公开	备 注
设置MDB密码	逻辑型		成功返回真，失败返回假

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
数据库文件路径	文本型
原密码	文本型
新密码	文本型

.局部变量 连接对象, 对象
.局部变量 连接字符串, 文本型
.局部变量 SQL语句, 文本型

' 创建连接对象
连接对象.创建 (“ADODB.Connection”, )

' 构建连接字符串
如果真 (原密码 ＝ “”)
连接字符串 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 数据库文件路径 ＋ “;”
如果真 (原密码 ≠ “”)
连接字符串 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 数据库文件路径 ＋ “;Jet OLEDB:Database Password=” ＋ 原密码 ＋ “;”

.尝试
' 打开数据库连接
连接对象.方法 (“Open”, 连接字符串)

' 构建修改密码的SQL语句
SQL语句 ＝ “ALTER DATABASE PASSWORD ” ＋ 编码SQL字符串 (新密码) ＋ “ ”
如果真 (原密码 ≠ “”)
SQL语句 ＝ SQL语句 ＋ 编码SQL字符串 (原密码)

' 执行SQL语句修改密码
连接对象.方法 (“Execute”, SQL语句)

' 关闭连接
连接对象.方法 (“Close”, )
返回 (真)
.捕获
信息框 (“操作失败：” ＋ 到文本 (错误信息), 0, )
连接对象.方法 (“Close”, )
返回 (假)
.结束尝试

子程序名	返回值类型	公开	备 注
编码SQL字符串	文本型		处理SQL语句中的字符串参数

DLL命令名	返回值类型	公开	备 注
(暂未填写DLL命令名)
DLL库文件名:
(未填写库文件名)
在DLL库中对应命令名:
(未填写命令名)
参数名	类 型	传址	数组	备 注
文本	文本型

' 将单引号替换为两个单引号，避免SQL注入问题
返回 (“'” ＋ 子文本替换 (文本, “'”, “''”, , , 真) ＋ “'”)

i支持库列表	支持库注释
adodb	(未知支持库)
spec	特殊功能支持库

.版本 2<br /> .支持库 adodb<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .变量 数据库路径, 文本型<br /> <br /> .子程序 _按钮_选择文件_被单击<br />     .局部变量 打开文件对话框, 通用对话框<br />     <br />     打开文件对话框.过滤器 ＝ “MDB数据库|*.mdb”<br />     .如果真 (打开文件对话框.打开 () ＝ 真)<br />         数据库路径 ＝ 打开文件对话框.文件名<br />         编辑框_路径.内容 ＝ 数据库路径<br />     .如果真结束<br /> <br /> .子程序 _按钮_设置新密码_被单击<br />     ' 给未设置密码的MDB设置密码<br />     .局部变量 新密码, 文本型<br />     .局部变量 结果, 逻辑型<br />     <br />     .如果真 (数据库路径 ＝ “”)<br />         信息框 (“请先选择MDB文件”, 0, )<br />         返回 ()<br />     .如果真结束<br />     <br />     新密码 ＝ 编辑框_新密码.内容<br />     .如果真 (新密码 ＝ “”)<br />         信息框 (“请输入新密码”, 0, )<br />         返回 ()<br />     .如果真结束<br />     <br />     结果 ＝ 设置MDB密码 (数据库路径, “”, 新密码)<br />     .如果真 (结果)<br />         信息框 (“密码设置成功”, 0, )<br />     .如果真结束<br /> <br /> .子程序 _按钮_修改密码_被单击<br />     ' 修改已有密码的MDB数据库密码<br />     .局部变量 旧密码, 文本型<br />     .局部变量 新密码, 文本型<br />     .局部变量 结果, 逻辑型<br />     <br />     .如果真 (数据库路径 ＝ “”)<br />         信息框 (“请先选择MDB文件”, 0, )<br />         返回 ()<br />     .如果真结束<br />     <br />     旧密码 ＝ 编辑框_旧密码.内容<br />     新密码 ＝ 编辑框_新密码.内容<br />     .如果真 (旧密码 ＝ “” 或 新密码 ＝ “”)<br />         信息框 (“请输入旧密码和新密码”, 0, )<br />         返回 ()<br />     .如果真结束<br />     <br />     结果 ＝ 设置MDB密码 (数据库路径, 旧密码, 新密码)<br />     .如果真 (结果)<br />         信息框 (“密码修改成功”, 0, )<br />     .如果真结束<br /> <br /> .子程序 设置MDB密码, 逻辑型, 公开, 成功返回真，失败返回假<br />     .参数 数据库文件路径, 文本型<br />     .参数 原密码, 文本型<br />     .参数 新密码, 文本型<br />     .局部变量 连接对象, 对象<br />     .局部变量 连接字符串, 文本型<br />     .局部变量 SQL语句, 文本型<br />     <br />     ' 创建连接对象<br />     连接对象.创建 (“ADODB.Connection”, )<br />     <br />     ' 构建连接字符串<br />     .如果真 (原密码 ＝ “”)<br />         连接字符串 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 数据库文件路径 ＋ “;”<br />     .如果真结束<br />     .如果真 (原密码 ≠ “”)<br />         连接字符串 ＝ “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” ＋ 数据库文件路径 ＋ “;Jet OLEDB:Database Password=” ＋ 原密码 ＋ “;”<br />     .如果真结束<br />     <br />     .尝试<br />         ' 打开数据库连接<br />         连接对象.方法 (“Open”, 连接字符串)<br />         <br />         ' 构建修改密码的SQL语句<br />         SQL语句 ＝ “ALTER DATABASE PASSWORD ” ＋ 编码SQL字符串 (新密码) ＋ “ ”<br />         .如果真 (原密码 ≠ “”)<br />             SQL语句 ＝ SQL语句 ＋ 编码SQL字符串 (原密码)<br />         .如果真结束<br />         <br />         ' 执行SQL语句修改密码<br />         连接对象.方法 (“Execute”, SQL语句)<br />         <br />         ' 关闭连接<br />         连接对象.方法 (“Close”, )<br />         返回 (真)<br />     .捕获<br />         信息框 (“操作失败：” ＋ 到文本 (错误信息), 0, )<br />         连接对象.方法 (“Close”, )<br />         返回 (假)<br />     .结束尝试<br /> <br /> .子程序 编码SQL字符串, 文本型, 公开, 处理SQL语句中的字符串参数<br />     .参数 文本, 文本型<br />     ' 将单引号替换为两个单引号，避免SQL注入问题<br />     返回 (“'” ＋ 子文本替换 (文本, “'”, “''”, , , 真) ＋ “'”)

haoyun5918

huayuanderen 发表于 2025-8-13 11:20
[e=0].版本 2
.支持库 adodb
.支持库 spec

直接 发 源码程序呗

haoyun5918

清华大学优等生 发表于 2025-8-13 11:08
office里面就带的有Access

没有吧 怎么没看见

huayuanderen

手动设置吧 ，比较简单

haoyun5918

huayuanderen 发表于 2025-8-13 14:04
手动设置吧 ，比较简单

易语言没办法 打开mdb类型的文件吧

huayuanderen

haoyun5918 发表于 2025-8-13 14:08
易语言没办法 打开mdb类型的文件吧

可以
的
啊

haoyun5918

huayuanderen 发表于 2025-8-13 14:09
可以
的
啊

我这怎么打不开了