1187
社区成员
关于VB中如何打开加密的ACCESS数据库
VB中如何打开加密的ACCESS数据库，如果设置密码以后，在VB中打开时报错，如何解决，请指教，在线等待，谢谢！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
岁月无声-我心飞翔 2003-04-07
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)
.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
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")
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)
Set phonedb = OpenDatabase(App.Path & "\tele.mdb", False, False, strconnect)
VB6.0中连接加密的Access数据库 以前曾看过介绍如何在Visual Basic中连接和使用Access数据库的技术文章，实际上在专业的数据库软件开发中，为了确保数据库中信息的安全，往往要求对数据库文件进行加密，以防止非法用户通过其它的常规手段将其打开。...
连接加密的Access数据库 vb连接加密的Access数据库.rar,vb连接加密的Access数据库.rar,vb连接加密的Access数据库.rar,vb连接加密的Access数据库.rar,vb连接加密的Access数据库.rar
VB 连接加密码的ACCESS数据库*.mdb,*.accdb VB 连接 带密码的Access mdb accdb 数据库以前在学习vb连接Access的时候，没加密的还好，带密码的就是出错，头疼了好久之后就没管它。今天又看到类似的问题，决定深究到底直到找到解决的办法。然后就解决了这个问题...
Visual Basic 6.0（VB6.0）+access数据库链接读取写入修改 vb 6.0链接access 2003数据库。 （我是混分的，下了不会用，别骂人。） 注释：下载安装后，源程序都在C:\WINDOWS\Menu文件夹下，源程序都没做加密处理，而且有注释。大家可以细看。请打开可执行文件就可以使用菜单...
彻底解决VB6～VB2005中连接ACCESS数据库（及带密码）问题 在Visual Basic中连接和使用Access数据库中，为了确保数据库中信息的安全，往往要求对数据库文件进行加密，以防止非法用户通过其它的常规手段（如使用ACCESS将数据库文件打开、修改）将其打开。那么，在Visual Basic...
Access数据库的加密与解密 我们有时在打开一个Access数据库时，往往会发现打开时弹出这样的一个窗口 ，这是需要我们输入数据库密码，可密码我们是怎样加上去的呢？ 首先打开Access，在菜单栏里点打开，找到你要选择加密的数据库，选中后，...
在VB编程过程中收集整理的的大量VB源码实例（图片/word/SQlite/SQL/封装dll/截屏/发音/连接数据库/AES加密算法等） 在使用VB6.0软件编程过程中，收集了各种VB源码实例进行测试...这里主要包括AES加密算法，图片压缩方法，VB封装方法，连接各种数据库（access, sqlite, sql server)， word 等，是新学者和初次编程人员很好的参考资料。
数据库技术VB编程小例子源码集 内容索引:VB源码,数据库应用,数据库 数据库技术VB编程小例子源码集：系统登录、操作员权限设置、连接加密的Access数据库(方法一)、将硬盘文件目录转为数据库数据、将数据库文件转换为文本文件、将Access导出成多种...
