如何用代码通过计划

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

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 = CurrentDbFor Each tbl In bleDefs If tributes = Then nnect = \"FILEDSN=d:n;UID=\" a \";PWD=\" b \";WSID=;DATABASE=\" d \";Network=DBMSSOCN\" \" tributes = dbAttachSavePWD freshLink End If NextEnd Function

DNS细节描述：

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

企业的技术创新也许有两种途径 2. UID是用户名，并且它的值由变量a的值决定。PWD是密码，并且它的值由变量b的值决定。

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