VBA ADO连接ACCESS 2010的设置

liucqa

如何通过 OLE DB 的 ADO 中打开受保护的 Access 数据库
文章编号: 191754 - 查看本文应用于的产品
机器翻译查看机器翻译免责声明
逐句中英文参照视图Microsoft 支持页面的机器翻译
展开全部 | 关闭全部
Collapse image概要
本机 OLE DB 提供程序的 Microsoft Access 数据库，其附带的 Microsoft 数据访问组件 (MDAC) 2.0 版或更高版本，可打开受保护的 Access 数据库。

如果打开受密码保护的数据库时，可以使用以下三种语法之一：

   Dim MyConn As New ADODB.Connection

   MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
   MyConn.Properties("Data Source") = "C:\...\JetPassword.MDB"
   MyConn.Properties("Jet OLEDB:Database Password") = "MyPwd"
   MyConn.Open
                               

-或者-

   Dim MyConn As New ADODB.Connection
   Dim strConn As String

   strConn = "Data Source=C:\...\JetPassword.MDB;" & _
             "Jet OLEDB:Database Password=MyPwd"
   MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
   MyConn.Open strConn

-或者-

   Dim MyConn As New ADODB.Connection
   Dim strConn As String

   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=C:\...\JetPassword.MDB;" & _
             "Jet OLEDB:Database Password=MyPwd"
   MyConn.Open strConn


如果要打开的数据库中使用 Jet 安全性，可以使用以下三种语法之一：

   Dim MyConn As New ADODB.Connection

   MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
   MyConn.Properties("Data Source") = "C:\...\JetSecurity.MDB"
   MyConn.Properties("Jet OLEDB:System database") = "C:\...\System.MDW"
   MyConn.Open UserID:="Admin", Password:="MyPwd"

-或者-

   Dim MyConn As New ADODB.Connection
   Dim strConn As String

   strConn = "Data Source=C:\...\JetSecurity.MDB;" & _
             "Jet OLEDB:System database=C:\...\System.MDW"
   MyConn.Provider = "Microsoft.Jet.OLEDB.4.0"
   MyConn.Open ConnectionString:=strConn, _
               UserID:="Admin", Password:="MyPwd"
                               

-或者-

   Dim MyConn As New ADODB.Connection
   Dim strConn As String

   strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
             "Data Source=C:\...\JetSecurity.MDB;" & _
             "Jet OLEDB:System database=C:\...\System.MDW"
   MyConn.Open ConnectionString:=strConn, _
               UserID:="Admin", Password:="MyPwd"

注意： Jet 3.51 OLEDB 提供程序可用来打开 Access 97 数据库只。Jet 4.0 OLEDB 提供程序可用来打开 Access 2000 或 Access 97 数据库。

如果在上面的示例中，您必须使用 Jet 3.51 提供程序，则将提供程序的名称更改为"Microsoft.Jet.OLEDB.3.51。"

我们建议您采取额外的步骤，将网络上的加密。例如，可以使用安全套接字层 (SSL)，当您运行该应用程序在网络上。

Microsoft 数据访问组件 (MDAC) 2.6 版及更高版本不包含以下的 Jet 组件：
Collapse image属性
文章编号: 191754 - 最后修改: 2006年7月10日 - 修订: 3.1

Cellfarmer

我用Access2013,在Excel2013中通过ADO操作数据库,连接字符事Microsoft.ACE.OLEDB.12.0也遇到同样的问题.如果用默认的加密方法,在执行到Cnn.open时运行时错误(80040e4d),Not a valid password. 改用Legacy encryption method就可以正常操作了.

Cellfarmer

如果数据库是Access2000/2002/2003格式的.MDB文件,Provider用Micorsoft.ACE.OLEDB12.0或Microsoft.Jet.OLEDB.4.0都可以操作.
如果数据库是Access2007/2010/2013格式的.accdb文件,Provider只能用前者.

jjj2123456?

Cellfarmer 发表于 2014-9-15 13:38
如果数据库是Access2000/2002/2003格式的.MDB文件,Provider用Micorsoft.ACE.OLEDB12.0或Microsoft.Jet.OLED ...

老师您好！
连接access单机上可以连接


连接access共享文件 有密码的
请问要如何写连接代码

Cellfarmer

Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbpath & "Database.accdb;" & "Jet OLEDB:Database Password=" & dbpwd
cnn1.ConnectionTimeout = 5
cnn1.Open
dbpath:文件所在路径
dbpwd:库文件的保护口令

Bettyexcel

ADO好难，还是没能看懂。

yedeen

如果想加入判断密码出错提示要怎么做
If CNN Is Nothing Then MsgBox "密码错误": Exit Sub
OPEN.CNN
这个不行

wang-way

按楼主的操作 试了很多遍 依然不行

lyb200

看过了，留个纪念。

yxrlqy

还没搞定，好好研究一下