sql链接表链接表刷新函数-HuangDuDu
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


sql链接表链接表刷新函数

发表时间:2018/5/27 8:53:00 评论(2) 浏览(830)  评论 | 加入收藏 | 复制
   
摘 要:链接表刷新函数 适于用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群(群号:198465573)
 
 相关文章
SQL Server及Access链接表刷新向导  【月皓星隐  2016/5/8】
后台是SQL,运行时错误'-2147217887(80040e21...  【杜超  2016/11/21】
【Access扫盲科普知识】链接表的意义  【麥田  2017/6/29】
登陆系统提示Error #2046 Function Relink...  【KevinFan  2017/6/30】
根据表名和SQL Server服务IP地址,在ACCESS中创建S...  【smileyoufu  2017/11/29】
 
 访客评论
2018/5/28韩志
请问这样链接以后,用户通过连接表能否看到链接信息,会不会泄露数据库密码。

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

总记录:2篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

HuangDuDu

文章分类

文章存档

友情链接