使用VBScript进行MDX查询

时间:2016-05-17 11:42:33

标签: vbscript mdx

是否可以使用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;"

我需要更改它才能让它工作?

1 个答案:

答案 0 :(得分:0)

我认为如下:

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中):VBA Reptitive MDX query to Analysis Services