不用DSN文件,让Access快速连接SQL Server的方法


  第1步.通过ODBC导入在服务器中所需的链接表

  第2步.在启动窗体的加载代码中加入

  此代码:

  Private Sub Form_Load()

  On Error GoTo ae

  DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DRIVER=SQL Server;SERVER=SERVER\yde;UID=sa;PWD=a123;DATABASE=daad", acTable, "", "", True  

  ae:

  Exit Function

  End Sub

  说明:

  "SERVER\yde" 为SQL服务器

  sa     SQL连接用户名

  a123   SQL连接密码

  daad   所要连联的数据库

  为保证不出现出错信息,请将出错处理的代码加上.