请教：刷新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

竹笛

此主题已解决，http://www.accessoft.com/Article_Show.asp?ArticleID=59

yedaoan

用这种方法，会产生一个新问题，因为要遍历所有表，如果表很多，会变得很慢，人没有更好的方法?

szx5106

请问这段应放在程序哪里,才启效吗?

wjb5645

请教竹笛版主:

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

谢谢!!!