Ado 连接access后如何修改数据库密码

Question

Ado 连接access后如何修改数据库密码

Answer 1

ADODB.Connection 没有changepassword 这个属性阿

Answer 2

1、用Alter   Database   password  。（详细查询sql语法）
2、用ado的changepassword（如果你的window目录下有ado210.chm（好像是这名字）,可以看看参考一下）

Answer 3

首先，添加引用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中专门用于修改密码的方法偶还没找到。