Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 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群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

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