使用独立的 rdoConnection 对象

使用 rdoEnvironment 对象并非创建连接的唯一途径，也可以用 Dim As New 语句声明一个独立的 rdoConnection 对象。例如，下述代码创建了一个名为 MyCn 的 rdoConnection 对象。

Dim MyCn As New rdoConnection

使用 User Connection 设计器，也可以创建自己的 Visual Basic 类，它继承了 rdoConnection 对象，并且用新设计的功能对该对象进行扩展。

在创建了一个独立的连接之后，可以为新的 rdoConnection 对象设置 Connect 属性，以指定特定的服务器、游标驱动程序以及下述的其它属性。一旦这些属性被初始化之后，就可以使用 EstablishConnection 方法与指定的服务器连接了。

例如，要创建一个独立的 rdoConnection 对象，并建立与 CustomerDB DSN 所指定的服务器的连接，可以使用以下代码：

Dim MyCn As New rdoConnection
With MyCn
   .Connect = "DSN=CustomerDB;DATABASE=MAILING;" _
            & "UID=;PWD=;"
   .CursorDriver = rdUseNone
   .LoginTimeout = 5
   .EstablishConnection (rdDriverNoPrompt)
End With

如果希望将新的独立的 rdoConnection 与特定 rdoEnvironment 相联，必须使用 Add 方法将其添加到与选定的 rdoEnvironment 对象相联的 rdoConnections 集合。例如，以下代码将 MyCn 连接添加到缺省的 rdoEnvironment 对象中：

rdoEnvironments(0).rdoConnections.Add MyCn

使用 Romove 方法，可以从 rdoEnvironments 集合中删除成员。

详细信息   请参阅《语言参考》中的“EstablishConnection 方法”部分。