Access数据库培训
网站公告
·Access快速平台QQ群号:189307860    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

sql链接表链接表刷新函数

时 间:2018-05-27 08:53:00
作 者:123   ID:47512  城市:南京
摘 要:链接表刷新函数 适于用sql链接表
正 文:

Public Function RefreshLinkTables() As Boolean
    On Error GoTo ErrorHandler
 Dim strConn As String, dbCurr As Object
    Dim tdf As Object
    Dim dbs As Object
    strConn = "ODBC;Driver=SQL Server;server=YY-PC;UID=sa;PWD=123;DATABASE=测试"
    Set dbCurr = DBEngine.Workspaces(0).OpenDatabase("OfficeCn", False, False, strConn)
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
        If tdf.Connect <> "" Then
            tdf.Connect = strConn
            tdf.RefreshLink
        End If
    Next
    dbCurr.Close
    Set dbCurr = Nothing
RefreshLinkTables = True


ExitHere:
   
    DoCmd.SetWarnings False
    SysCmd acSysCmdRemoveMeter
    Set tdf = Nothing
    Set dbs = Nothing
    Exit Function
  
ErrorHandler:
        MsgBox Err.Number
        RefreshLinkTables = False
   Resume ExitHere
End Function




Access软件网官方交流QQ群 (群号:43631875)       access源码网店

最新评论 查看更多评论(2)

2018/5/28 16:49:27韩志
请问这样链接以后,用户通过连接表能否看到链接信息,会不会泄露数据库密码。

2018/5/28 11:01:02水若寒
好东西,感谢分享。

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助