用代码通过ODBC刷新链接（mdb+SQLSEVER2000）

用SQL SEVER2000与MDB链接时，有时需要刷新链接表，这可以通过下面的代码来实现，

本题目的解答参考了网友cwang的代码，得到了微软工程师Billy Yao的热心帮助。在此感谢！

function relink()[/Br/]Dim db As Database[/Br/]Dim TBL As TableDef[/Br/]Dim a As String[/Br/]Dim b As String[/Br/]Dim d As String[/Br/]a = " sa " ' Database user[/Br/]b = " ABC " ' Database password[/Br/]d = " abcde " ' Database name[/Br/]setdb = current db[/Br/]for eat blin db . tabledefs . If TBLattributes = 536870912 Then
TBL。connect = " FILEDSN = d:\ demo \ steel . DSN；UID = " & a &PWD = " & b & "；WSID =；DATABASE = " & d &network = DBMSSOCN "
'
TBL。attributes = dbAttachSavePWD
TBL。refresh link
End If
Next
End函数

附上微软工程师Billy Yao的回答:

根据你的描述，我对你的问题的回答如下:

1.DSN = gnts中的GNTS是系统DSN的文件名。

2.UID是用户名，其值由变量a的值决定，PWD是密码，其值由变量b的值决定

3.WSID是指工作站的ID号(工作站ID)。变量d的值代表数据库的名称。Network=DBMSSOCN是指TCP/IP使用的网络库。