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

jackjack 2002-03-19 11:02:56
单独打开数据库时出现一个密码对话框?
...全文
193 20 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧