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

Question

VB中如何打开加密的ACCESS数据库，如果设置密码以后，在VB中打开时报错，如何解决，请指教，在线等待，谢谢！

Answer 1

function GetConn(用户密码变量 as string,用户ID变量 as string,数据库路径变量 as string,数据库密码变量 as string) as ADODB.Connection
dim Conn as New ADODB.Connection
dim strConn as stringstrConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Password=" & 用户密码变量 & ";User ID=" & 用户ID变量 & ";Data Source=" & 数据库路径变量 & ";Jet OLEDB:Database Password=" & 数据库密码变量
    '打开数据库
    Conn.Open strConn
    set GetConn=Conn
end function

Answer 2

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 WithSet Mydb = Myws.OpenDatabase(App.Path + "\dan.mdb", False, False, ";pwd=" & Password)

Answer 3

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

Answer 4

Provider=Microsoft.Jet.OLEDB.4.0;Password=密码;User ID=admin;Data Source=库名;Persist Security Info=True

Answer 5

strconnect = ";datase=" & App.Path & "\tele.mdb;PWD=qiqikknd"
Set phonedb = OpenDatabase(App.Path & "\tele.mdb", False, False, strconnect)

Answer 6

dim rw as workspace
dim rs as datebase Set Rw = CreateWorkspace("", "admin", "")
Set Rs = Rw.OpenDatabase(App.Path + "\main.mdb", False, False, ";pwd=123")