Office中国论坛/Access中国论坛

标题: 请教：刷新ODBC链接SQL SEVER2000代码 [打印本页]

作者: 竹笛 时间: 2004-3-31 19:03
标题: 请教：刷新ODBC链接SQL SEVER2000代码
以下为cwang曾经留下的代码，请大家完善一下：
我的帐号为：sa
密码为：abc
服务器名为：zonghe
DSN为：D:\demo\steel.dsn

请教一下，如何采用以下代码，以达到刷新链接表的功能。
Dim db As Database
Dim tbl As TableDef
Dim a As String
Dim b As String
   Set db = CurrentDb

For Each tbl In db.TableDefs
      If tbl.Attributes = 536870912 Then
         tbl.Connect = "DSN=gnts;UID=" & a & "

WD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
         tbl.Attributes = dbAttachSavePWD
         tbl.RefreshLink
      End If
Next

作者: 竹笛 时间: 2004-4-1 20:37
此主题已解决，http://www.accessoft.com/Article_Show.asp?ArticleID=59

作者: yedaoan 时间: 2005-5-28 17:54
用这种方法，会产生一个新问题，因为要遍历所有表，如果表很多，会变得很慢，人没有更好的方法?

作者: szx5106 时间: 2005-7-1 15:49
请问这段应放在程序哪里,才启效吗?

作者: wjb5645 时间: 2006-3-21 07:40
请教竹笛版主:

用ODBC链接了多个数据库,怎么写才对?

谢谢!!!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)