创建非 DSN 方式的 RDO 连接

建立 RDO 连接的另一个方法是：在 OpenConnection 方法的 Connect 参数中提供所有必需的信息。该方法有许多优点：

• 可以不创建 DSN，这样就能简化客户应用程序的设置和安装。
  
  
• 不必在系统注册表中查找 DSN，加快连接速度。
  
  
• 更有效到控制服务器及其它连接参数，从而提高应用程序和系统的安全性。

如果选择使用非 DSN 方式的连接，则连接字符串中必须包含服务器和驱动程序的名称，以及与用户有关的所有信息。但是，如果选择这个选项，只能使用缺省的 OEMTOANSI (Off) , NETWORK（命名管道）以及其它一些设置，它们只能在创建 DSN 时设置。

如果选择创建一个非 DSN 方式的连接，则必须传递一个零长度字符串作为 OpenConnection 方法的 dsName 参数，或传递 RemoteData 控件的 Database 属性。这样就通知 ODBC 驱动程序：希望创建一个非 DSN 方式的连接。另外，请注意连接字符串的顺序要正确。DSN 参数必须在 SERVER 和 DRIVER 参数之后，如下所示。

下述示例说明如何创建一个非 DSN 方式的连接，以连接到名为 MyServer 的 Microsoft SQL Server 数据库。

Dim Cn As rdoConnection
Dim En as rdoEnvironment, Conn As String
Set En = rdoEnvironments(0)
Conn$ = "UID=Holly;PWD=Huskador;" _
   & "DATABASE=MyDb;" _
   & "SERVER=MyServer;" _
   & "DRIVER={SQL SERVER};DSN='';"
Set Cn = En.OpenConnection(dsName:="", _
   prompt:=rdDriverNoPrompt, _
   connect:=Conn$)