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

jackjack 2002-03-19 11:02:56
单独打开数据库时出现一个密码对话框?
...全文
91 点赞 收藏 20
写回复
20 条回复
切换为时间正序
请发表友善的回复…
发表回复
ychxl 2002-03-22
请问哪里有connectionstring的具体语法规则。
回复
jackjack 2002-03-21
ADOX有一个ChangePassword方法,我不会用
所以请教各位啊!
回复
playyuer 2002-03-21
实现设置ACCESS数据库的密码

侧重对已有的数据库加密
回复
jackjack 2002-03-21
如果行怎么办?
你是不是让出你的斑竹之位呢?:)
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 2002-03-21
我明确的告诉你 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 2002-03-21
好多谢各位,我学了很多!
我对ADOX也很感兴趣
有谁能告诉我?
y1g1y1(袁飞☆曾经沧海难为水,除却VB不是云☆) -->ADOX Code?
回复
jackjack 2002-03-21
有没有代码示例!
回复
playyuer 2002-03-21
ChangePassword Method
Changes the password for a user account.

回复
jackjack 2002-03-21
那user password (ChangePassword 用于-->
接着说...

回复
playyuer 2002-03-21
user password (ChangePassword 用于)

DataBase Password
是两个概念!
回复
playyuer 2002-03-20
如何在用命令创建的ACEESS数据库中用命令加密码?
http://www.csdn.net/expert/topic/134/134226.xml
回复
fy6877 2002-03-20
Dim OpenDataBaseFile As Database

Set OpenDataBaseFile = CreateDatabase(FileName, dbLangGeneral)

OpenDataBaseFile.NewPassword "", "4587"
回复
jackjack 2002-03-20
adox呢?
回复
tony_jian 2002-03-19
学到了.
回复
sunnycai 2002-03-19
使用 Data 控件打开 Accecc 数据库:
设置 Connect 属性为 ;pwd=密码
Data1.Connect = ";pwd=密码"
修改密码:
Data1.Database.NewPassword _老密码_, _新密码_
回复
thinkeasy 2002-03-19
我知道DAO能做
回复
MarGo 2002-03-19
我的方法:
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
回复
iwzw 2002-03-19
ado打开 有密码的Accecc 数据库

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

上例中的密码为"Password"
回复
jackjack 2002-03-19
adox怎么用?最好有源代码段?
回复
y1g1y1 2002-03-19
使用 adox
回复
发动态
发帖子

1181

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告