关于VB中如何打开加密的ACCESS数据库

opopop321 2003-04-07 11:21:09
VB中如何打开加密的ACCESS数据库,如果设置密码以后,在VB中打开时报错,如何解决,请指教,在线等待,谢谢!
...全文
72 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Provider=Microsoft.Jet.OLEDB.4.0;Password=密码;User ID=admin;Data Source=库名;Persist Security Info=True
回复
qqqdong 2003-04-07
Provider=Microsoft.Jet.OLEDB.4.0;Password=123;User ID=admin;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=True
回复
icnetcn 2003-04-07
With DBConnect
.Provider = "Microsoft.Jet.OLEDB.4.0"
'数据提供者类型,4.0 是access 2k,3.51 是access 97
.Properties("Data Source").value = App.Path & "\data.mdb"
'数据源,app.path是当前程序所在路径.
.Properties("Persist Security Info").value = True '关键是这个.
'是否有密码
.Properties("Jet OLEDB:Database Password").value = "hello"
'密码
.CommandTimeout = 30
'连接超时间
End With



Set Mydb = Myws.OpenDatabase(App.Path + "\dan.mdb", False, False, ";pwd=" & Password)
回复
长江支流 2003-04-07
function GetConn(用户密码变量 as string,用户ID变量 as string,数据库路径变量 as string,数据库密码变量 as string) as ADODB.Connection
dim Conn as New ADODB.Connection
dim strConn as string

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Password=" & 用户密码变量 & ";User ID=" & 用户ID变量 & ";Data Source=" & 数据库路径变量 & ";Jet OLEDB:Database Password=" & 数据库密码变量
'打开数据库
Conn.Open strConn
set GetConn=Conn
end function
回复
Xait9525 2003-04-07
dim rw as workspace
dim rs as datebase

Set Rw = CreateWorkspace("", "admin", "")
Set Rs = Rw.OpenDatabase(App.Path + "\main.mdb", False, False, ";pwd=123")
回复
qiqif 2003-04-07
strconnect = ";datase=" & App.Path & "\tele.mdb;PWD=qiqikknd"
Set phonedb = OpenDatabase(App.Path & "\tele.mdb", False, False, strconnect)
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-07 11:21
社区公告
暂无公告