Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> 表  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702802
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

如何链接有密码保护的数据库?如何链接打开加密的数据库?

作者:cg1  摘自:access911.net  :cg1  更新日期:2002-11-21  浏览人次:

 

'请用 “链接” 为关键词在本论坛搜索其他相关帖子,相信对您也有所帮助
Function lj()
    Dim catDB As ADOX.Catalog
    Dim tblLink As ADOX.Table

    Set catDB = New ADOX.Catalog
    catDB.ActiveConnection = CurrentProject.Connection

    Set tblLink = New ADOX.Table ' 建立一个新的表对象

    With tblLink
        .Name = "订单" ' 链接表名称
        Set .ParentCatalog = catDB

        .Properties("Jet OLEDB:Create Link") = True
        .Properties("Jet OLEDB:Link Datasource") = _
            "C:\Program Files\zhanyexing\123.mdb"
            .Properties("Jet OLEDB:Link Provider String") = _
            "MS Access;PWD=123;" ' 提供者及密码
        .Properties("Jet OLEDB:Remote Table Name") = "订单" ' 原数据库中的表
    End With

    catDB.Tables.Append tblLink ' 添加到库中
    Set tblLink = Nothing
End Function



注:在VBA编辑器中引用"Microsoft ADO Ext. 2.5 for DDL and Security"以及"Microsoft ActiveX Data Objects 2.1/2.5/2.6/2.7 Library"

以下是一段默认的 Access 的链接字串,以供参考
Provider=Microsoft.Jet.OLEDB.4.0;
User ID=Admin;Data Source=C:\Documents and Settings\ec\桌面\复件 db2.mdb;
Mode=Share Deny None;
Extended Properties="";
Jet OLEDB:System database=C:\Documents and Settings\ec\Application Data\Microsoft\Access\System.mdw;
Jet OLEDB:Registry Path=SOFTWARE\Microsoft\Office\10.0\Access\Jet\4.0;
Jet OLEDB:Database Password="";
Jet OLEDB:Engine Type=5;
Jet OLEDB:Database Locking Mode=1;
Jet OLEDB:Global Partial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;
Jet OLEDB:SFP=False

 

 
相关文章
     没有手动相关文章
     如何用代码创建链接表链接到 SQL SERVER 并且保存密码?
     如何解决共享目录加访问密码后导致链接表出错问题?
     如何用代码链接带有密码的数据库中的表?链接加密数据库
     如何用程序实现链接有“打开密码”的 XLS 表格?
     如何用 VBA 新建链接表
     Access安全吗?Access安全性之QA详解
     Access 2000数据库的密码忘了怎么办(破解密码) 
     如何使用ADOX/DAO刷新/更新/删除并重定义链接表 
     如何用代码重新链接 ODBC 链接表?1
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利