MDX-Abfragen mit VBScript

Question

Ist es möglich, MDX-Abfragen mit VBScript zu tun? Ich habe erfolgreich SQL-Abfragen über VBScript gemacht, jede Idee, wie man MDX-Abfragen angehen kann?

Derzeit verwende ich eine Verbindungszeichenfolge wie folgt aus:

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

Was würde ich es ihm arbeiten ändern müssen, um zu bekommen?

Answer 1

Ich denke, in etwa wie folgt:

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" 

Hier ist ein Beispiel davon gegen einige mdx mit:

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 

Die oben ist aus meiner Antwort (in vba) hier: VBA Reptitive MDX query to Analysis Services