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

显示附加信息 >>>

如何用代码链接带有密码的数据库中的表?链接加密数据库

作者:朱亦文  摘自:access faq  :cg1  更新日期:2005-1-30  浏览人次:

 

您也可以参考两年前我写的文章:

    如何链接有密码保护的数据库? 
    http://access911.net/?kbid;75FABE1E

 


如何用代码链接带有密码的数据库中的表 
 
将下列代码粘贴到一个新模块中,并通过使用adoLinkTable函数来实现。 
'=======================================================================
' 函    数:adoLinkTable(strMdbPath, strPWD, strLinkName, strTblName)
' 参数说明:strMdbPath 为要链接的数据库的路径
'           strPWD 为打开数据库的密码
'           strLinkName 为链接表名称
'           strTblName 为链接的表的名称
' 返    回:True 成功,False 失败
' 调用举例:
'     OK = adoLinkTable("c:\123.mdb", "123", "订单", "订单")
' 作者:朱亦文
' 日期:2002.11.21
'=======================================================================

Public Function adoLinkTable(ByVal strMdbPath As String, _
                            ByVal strPWD As String, _
                            ByVal strLinkName As String, _
                            ByVal strTblName As String) As Boolean 

    On Error Resume Goto errh

    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 = strLinkName
        Set .ParentCatalog = catDB

        .Properties("Jet OLEDB:Create Link") = True
        ' 数据库的路径和名称
        .Properties("Jet OLEDB:Link Datasource") = strMdbPath
        ' 提供者及密码
        .Properties("Jet OLEDB:Link Provider String") = "MS Access;PWD=" & strPWD & ";"
        ' 原数据库中的表
        .Properties("Jet OLEDB:Remote Table Name") = strTblName
    End With

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

    adoLinkTable = True
    Exit Function

errh:
    adoLinkTable = False
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"

 

 

 
相关文章
     没有手动相关文章
     如何用程序实现链接有“打开密码”的 XLS 表格?
     如何链接有密码保护的数据库?如何链接打开加密的数据库?
     如何解决共享目录加访问密码后导致链接表出错问题?
     如何用代码创建链接表链接到 SQL SERVER 并且保存密码?
     关于加密 Paradox 的 ADO 链接问题
     如何不用 DSN 生成链接表?
     如何使用ADOX/DAO刷新/更新/删除并重定义链接表 
     如何用代码重新链接 ODBC 链接表?1
     如何用 VBA 新建链接表
     链接XLS格式文件时提示 “向导无法访问文件 ‘c:\a.xls’ ...”
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利