不让sa登录窗口出现的小技巧

cnwang

用mdb通过ODBC链接SQL数据库，可以通过如下代码刷新连接：
Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb
For Each tbl In db.TableDefs
  If tbl.Attributes = 536870912 Then
     tbl.Connect = "DSN=gdts;UID=" & a & "WD=" & b & ";WSID=;DATABASE=" & d & ";Network=DBMSSOCN"
     tbl.RefreshLink
  End If
Next

但刷新后每次进入系统都会弹出sa的登录窗口，后来查资料，发现在     tbl.RefreshLink前面加上如下一句即可保存密码：
tbl.Attributes = dbAttachSavePWD

竹笛

收下，谢谢。