如何用VB程序实现设置ACCESS数据库的密码?用ADO或ADOX?

Question

使用 Data 控件打开 Accecc 数据库：
设置 Connect 属性为 ;pwd=密码
Data1.Connect = ";pwd=密码"
修改密码：
Data1.Database.NewPassword _老密码_, _新密码_

Answer 1

ado打开 有密码的Accecc 数据库Set adoc = New Connection
adoc.ConnectionString = "uid=admin;pwd=Password;driver={microsoft access driver (*.mdb)};dbq=c:\xj.mdb"
adoc.Open上例中的密码为"Password"

Answer 2

我的方法：
 dim cn as new adodb.connection
 cn.connectionstring="microsoft jet 3.51 ;persist security info=true;pwd=strpassword;uid=admin" & " data source=" & app.path & "\dbname.mdb"
cn.open

Answer 3

Dim OpenDataBaseFile As DatabaseSet OpenDataBaseFile = CreateDatabase(FileName, dbLangGeneral)OpenDataBaseFile.NewPassword "", "4587"

Answer 4

如何在用命令创建的ACEESS数据库中用命令加密码？
http://www.csdn.net/expert/topic/134/134226.xml

Answer 5

好多谢各位,我学了很多!
我对ADOX也很感兴趣
有谁能告诉我?
 y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆) -->ADOX Code?

Answer 6

我明确的告诉你 ADOX 不行!
你可以用独占 ADODB.Connection 执行 ALTER DATABASE PASSWORD 新密码 旧密码Dim adoConnection As New ADODB.Connection
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\NWind97WithPwd.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=1"
'ALTER DATABASE PASSWORD 新密码 旧密码
adoConnection.Execute "ALTER DATABASE PASSWORD NULL 1"
如何在用命令创建的ACEESS数据库中用命令加密码？
http://www.csdn.net/expert/topic/134/134226.xml

Answer 7

如果行怎么办?
你是不是让出你的斑竹之位呢?:)
Private Sub Form_Load()
  '引用msadox.dll
  Dim cat As ADOX.Catalog
  Set cat = New ADOX.Catalog
  cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\My.mdb;Jet OLEDB:Database Password=my"
  Set cat = Nothing
End Sub

Answer 8

实现设置ACCESS数据库的密码侧重对已有的数据库加密

Answer 9

ADOX有一个ChangePassword方法,我不会用
所以请教各位啊!

Answer 10

user password (ChangePassword 用于)
和
DataBase Password
是两个概念!

Answer 11

那user password (ChangePassword 用于-->
接着说...

Answer 12

ChangePassword Method
Changes the password for a user account.

Answer 13

请问哪里有connectionstring的具体语法规则。