7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zuoxingyu 2006-10-29
- 打赏
- 举报
学习！
yachong 2006-10-29
- 打赏
- 举报
首先，添加引用Microsoft Jet and Replication Objects 2.1 Library和Microsoft ActiveX Data Objects 2.1 Library
例：
Dim jj As New JRO.JetEngine
jj.CompactDatabase "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=e:\system.mdb;Jet OLEDB:Database Password=123;", "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=e:\system1.mdb;Jet OLEDB:Database Password=456;"
Kill "e:\system.mdb"
Name "e:\system1.mdb" As "e:\system.mdb"
注：这个方法同时实现对数据库的修复,也可以实现对密码的修改。ADO中专门用于修改密码的方法偶还没找到。
例：
Dim jj As New JRO.JetEngine
jj.CompactDatabase "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=e:\system.mdb;Jet OLEDB:Database Password=123;", "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=e:\system1.mdb;Jet OLEDB:Database Password=456;"
Kill "e:\system.mdb"
Name "e:\system1.mdb" As "e:\system.mdb"
注：这个方法同时实现对数据库的修复,也可以实现对密码的修改。ADO中专门用于修改密码的方法偶还没找到。
yachong 2006-10-29
- 打赏
- 举报
http://blog.csdn.net/yachong/
吾非大神 2006-10-28
- 打赏
- 举报
学习
lsftest 2006-10-27
- 打赏
- 举报
1、用Alter Database password 。。。。（详细查询sql语法）
2、用ado的changepassword（如果你的window目录下有ado210.chm（好像是这名字）,可以看看参考一下）
2、用ado的changepassword（如果你的window目录下有ado210.chm（好像是这名字）,可以看看参考一下）
zq102605 2006-10-27
- 打赏
- 举报
up
lsftest 2006-10-26
- 打赏
- 举报
用ado的changepassword
zq102605 2006-10-26
- 打赏
- 举报
ADODB.Connection 没有changepassword 这个属性阿
