Connection 范例

如下代码演示如何使用连接字符串设置 ActiveConnection 属性。该代码假定在名为 Servername 的 OLAP 服务器上有一个名为 Bob Video Store 的数据源,并且使用的是 MSOLAP 数据提供者。

Dim cat As New ADOMD.Catalog
cat.ActiveConnection = "Data Source=Servername;" + _
   "Initial Catalog=Bobs Video Store;Provider=msolap;"

如下代码也演示如何使用连接字符串设置 ActiveConnection 属性。但是,该代码使用 MSOLAP 数据提供者连接到本地立方文件,而不是连接到名为 Servername 的 OLAPT 服务器。

Dim cat As New ADOMD.Catalog
cat.ActiveConnection = _
"Location=C:\MSDASDK\samples\oledb\olap\data\BobsVid.cub;" + _
"Provider=msolap;"

如下代码演示如何将 ActiveConnection 属性设置为标准的ADO Connection 对象。要使用 ADO Connection 对象,必须在工程中引用 ADO 类型库。

Dim cnn  As New ADODB.Connection
Dim cat  As New ADOMD.Catalog
Cnn.Open "Data Source=Servername;" + _
   "Initial Catalog=Bobs Video Store;Provider=msolap;"
Set cat.ActiveConnection = cnn

注意   在将 ActiveConnection 属性设置为 Connection 对象时,记住要使用 Set 关键字。如果没有使用 Set 关键词,其结果是将 ActiveConnection 属性设置成 Connection 的默认属性:ConnectionString。代码将会工作,但将创建与数据源的其他连接,最终得到相反的结果。