请看下面的代码:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim con As AdomdConnection = New AdomdConnection("Data Source=localhost;Catalog=Analysis Services Tutorial")
Dim commandText As String = "select {[Measures].[Sales Amount] AS SalesAmount, [Measures].[Currency Key] as CurrencyKey } On COLUMNS, " & _
"{[Customer].[Full Name].Members} ON Rows " & _
",{[Customer].[Birth Date].Members} ON Pages " & _
"FROM [Adventure Works DW2012] "
Dim cmd As AdomdCommand = New AdomdCommand(commandText, con)
con.Open()
Dim objDR As AdomdDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
Dim strBuilder As New StringBuilder
strBuilder.Append("<table>")
strBuilder.Append("<tr><th>Birth Date</th><th>Full Name</th><th>Currency Key</th><th>Sales Amount</th></tr>")
Dim intCount As Integer = 0
While (objDR.Read())
intCount = intCount + 1
If intCount = 10 Then
Exit While
Else
strBuilder.Append("<tr>")
strBuilder.Append("<td>" & objDR(0) & "</td>")
strBuilder.Append("<td>" & objDR(1) & "</td>")
strBuilder.Append("<td>" & objDR(2) & "</td>")
strBuilder.Append("<td>" & objDR(3) & "</td>")
strBuilder.Append("</tr>")
End If
End While
strBuilder.Append("</table>")
Dim str As String = strBuilder.ToString
MsgBox("got here")
Catch ex As Exception
Console.Write(ex.ToString)
End Try
End Sub
输出如下:
ADOMD.NET 似乎可以处理多维查询,但是结果是扁平的。那是对的吗?
我问的原因是因为我在这里阅读了一些问题,这表明 ADOMD.NET 只能显示二维查询。