有谁知道如何用VB打开带密码的ACCESS数据库文件(已知密码)???

richiez 2000-04-24 12:38:00
有谁知道如何用VB打开带密码的ACCESS数据库文件(已知密码)???
...全文
419 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
dongdong 2000-04-24
  • 打赏
  • 举报
回复
如果用ADODC,可以这样在Adodc1.ConnectionString的属性中,再加入PWD=YOURPASSWORD一项也可以实现,(注意其他项不能省)
008 2000-04-24
  • 打赏
  • 举报
回复
同意
solomon 2000-04-24
  • 打赏
  • 举报
回复
opendatabase("dbfile", , , ";pwd=yourpassword")
Calf 2000-04-24
  • 打赏
  • 举报
回复
Dim cnDB As New ADODB.Connection
Dim ConnString As String

ConnString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=dbfile"
cnDB.ConnectionString = ConnString
cnDB.Properties("Jet OLEDB:Database Password") = "password"
cnDB.Open
Janven 2000-04-24
  • 打赏
  • 举报
回复
If Right(App.Path, 1) = "\" Then
gsDatabase = App.Path + "YourDb.mdb"
Else
gsDatabase = App.Path + "\YourDb.mdb"
End If
gsConnect = "ms access;pwd=YourPassWord"
Set WorkDefault = DBEngine.Workspaces(0)
Set Dbs = DBEngine.Workspaces(0).OpenDatabase(gsDatabase, False, False, gsConnect)

按我的方法试吧,倒不一定非用DBEngine,主要是gsConnect 的格式。
Un1 2000-04-24
  • 打赏
  • 举报
回复
aaa=opendatabase("c:\abcdef.mdb", , , ";pwd='123'") 行不行?
richiez 2000-04-24
  • 打赏
  • 举报
回复
!!!我是过了程序如下:
dim aaa
aaa=opendatabase("c:\abcdef.mdb", , , ";pwd=123")
但是出现提示说密码错。(密码绝对正确)
请问能用VB 的 Data 控件打开带密码的数据库吗?
先谢了。

1,216

社区成员

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

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