使用代码刷新ODBC链接SQLSEVER表

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

　　在用MDB与SQL SEVER2000链接时，有时需要刷新链接表，通过以下代码可以达到目的，此主题的解决参考了网友cwang的代码，并得到了微软工程师Billy Yao的热心帮助，在此致谢！

　　　　Functionrelink()
               DimdbAsDatabase
               DimtblAsTableDef
               DimaAsString
               DimbAsString
               DimdAsString
               
               a=sa'用户
               b=abc'数据库口令
               d=abcde'数据库名称
               Setdb=CurrentDb
               ForEachtblIndb.TableDefs
                   Iftbl.Attributes=536870912Then
                       tbl.Connect=FILEDSN=d:/demo/steel.dsn;UID=&a&;PWD=
           &b&;WSID=;DATABASE=&d&;Network=DBMSSOCN
            '
                       tbl.Attributes=dbAttachSavePWD
                       tbl.RefreshLink
                   EndIf
               Next
           EndFunction
           附上微软工程师BillyYao的解答说明：
           根据您的描述，我对您的问题解答如下：
           1.DSN=gnts中gnts是系统DSN的文件名。
           2.UID是用户名，并且它的值由变量a的值决定。PWD是密码，并且它的值由变量b的值决定。

1

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>