使用 VBScript 的 MDX 查询

Question

是否可以使用 VBScript 进行 MDX 查询？我已经通过 VBScript 成功地完成了 SQL 查询，关于如何处理 MDX 查询有什么想法吗？

目前我使用如下连接字符串：

strConn = "Driver={SQL Server};" & _
"Server=10.0.0.1;" & _
"Address=10.0.0.1,1433;" & _
"Network=DBMSSOCN;" & _
"Database=databasename;" & _
"UID=user;" & _
"PWD=password;"

我必须将其更改为什么才能使其正常工作？

Answer 1

我认为是这样的：

strConn = _
    "Provider=MSOLAP.6;" & _
    "Data Source=imxxxxxx;" & _                                     '<<<name of your server here
    "Initial Catalog=AdventureWorksDW2012Multidimensional-EE;" & _  '<<<name of your Adv Wrks db here
    "Integrated Security=SSPI"

下面是一个针对某些 mdx:

使用它的例子

Dim pubConn As ADODB.Connection
Set pubConn = New ADODB.Connection
pubConn.CommandTimeout = 0
pubConn.Open strConn

Dim cs As ADOMD.Cellset
Set cs = New ADOMD.Cellset

Dim myMdx As String
myMdx = _
  " SELECT" & _
  "  NON EMPTY" & _
  "    [Customer].[Customer Geography].[State-Province].&[AB]&[CA] ON 0," & _
  "  NON EMPTY" & _
  "    [Measures].[Internet Sales Amount] ON 1" & _
  " FROM [Adventure Works];"

cs.Open myMdx, pubConn

以上是我在vba中的回答：

使用 VBScript 的 MDX 查询

MDX queries using VBScript

vbscript

mdx