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

[jackjack]

单独打开数据库时出现一个密码对话框？

[y1g1y1]

使用 adox

• 打赏
• 举报

回复 赞

[jackjack]

adox怎么用?最好有源代码段?

• 打赏
• 举报

回复 赞

[iwzw]

ado打开 有密码的Accecc 数据库

Set adoc = New Connection
adoc.ConnectionString = "uid=admin;pwd=Password;driver={microsoft access driver (*.mdb)};dbq=c:\xj.mdb"
adoc.Open

上例中的密码为"Password"

• 打赏
• 举报

回复 赞

[MarGo]

我的方法：
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

• 打赏
• 举报

回复 赞

[thinkeasy]

我知道DAO能做

• 打赏
• 举报

回复 赞

[sunnycai]

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

• 打赏
• 举报

回复 赞

[tony_jian]

学到了.

• 打赏
• 举报

回复 赞

[jackjack]

adox呢?

• 打赏
• 举报

回复 赞

[fy6877]

Dim OpenDataBaseFile As Database

Set OpenDataBaseFile = CreateDatabase(FileName, dbLangGeneral)

OpenDataBaseFile.NewPassword "", "4587"

• 打赏
• 举报

回复 赞

[playyuer]

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

• 打赏
• 举报

回复 赞

[playyuer]

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

• 打赏
• 举报

回复 赞

[jackjack]

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

• 打赏
• 举报

回复 赞

[playyuer]

ChangePassword Method
Changes the password for a user account.

• 打赏
• 举报

回复 赞

[jackjack]

有没有代码示例!

• 打赏
• 举报

回复 赞

[jackjack]

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

• 打赏
• 举报

回复 赞

[playyuer]

我明确的告诉你 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

• 打赏
• 举报

回复 赞

[jackjack]

如果行怎么办?
你是不是让出你的斑竹之位呢?:)
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

• 打赏
• 举报

回复 赞

[playyuer]

实现设置ACCESS数据库的密码

侧重对已有的数据库加密

• 打赏
• 举报

回复 赞

[jackjack]

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

• 打赏
• 举报

回复 赞

[ychxl]

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

• 打赏
• 举报

回复 赞