Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim StrSql As String = ""
Dim DataTab As New DataTable
StrSql = "with member [Measures].[Store Sales Last Period] as '([Measures].[Store Sales], Time.PrevMember)' select {[Measures].[Store Sales Last Period]} on columns, {TopCount([Product].[Product Department].members,5, [Measures].[Store Sales Last Period])} on rows from Sales where ([Time].[1998])"
'//StrSql = "select {[Measures].[Units Shipped],[Measures].[Units Ordered]} on columns,NON EMPTY [Store].[Store Name].members on rows from Warehouse"
DataTab = GetOlapDataTable(StrSql)
DataGridView1.DataSource = DataTab
End Sub
Public Function GetOlapDataTable(ByVal SqlStr As String) As DataTable
Dim wDataTab As New Data.DataTable
Try
Dim OledbDtp As New Microsoft.AnalysisServices.AdomdClient.AdomdDataAdapter(SqlStr, MDConn)
OledbDtp.Fill(wDataTab)
GetOlapDataTable = wDataTab
OledbDtp.Dispose()
Catch '//
GetOlapDataTable = Nothing
End Try