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

用代码通过ODBC刷新链接(mdb+SQL SEVER2000)

时 间:2008-06-05 20:12:24
作 者:UMVsoft整理   ID:43  城市:江阴
摘 要:在用MDB与SQL SEVER2000链接时,有时需要刷新链接表,通过以下代码可以达到目的
正 文:

在用MDB与SQL SEVER2000链接时,有时需要刷新链接表,通过以下代码可以达到目的,

  Function relink()
   Dim db As Database
   Dim tbl As TableDef
   Dim a As String
   Dim b As String
   Dim d As String
  
   a = "sa"'数据库用户
   b = "abc"'数据库口令
   d = "abcde"'数据库名称
   Set db = CurrentDb
For Each tbl In db.TableDefs
     If tbl.Attributes = 536870912 Then
       tbl.Connect = "FILEDSN=d:\demo\steel.dsn;UID=" & a & ";PWD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
 '
       tbl.Attributes = dbAttachSavePWD
       tbl.RefreshLink
     End If
   Next
End Function



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

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

2018/1/10 19:16:11zhang
536870912是什么意思?

2013/7/3 13:45:14华齐
正在找这方面的知识。谢谢

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

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

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