imports Microsoft.AnalysisServices.adomdclient Imports System Public Class _Default Inherits Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load End Sub Protected Sub GridView4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles GridView4.SelectedIndexChanged Get_Answer() End Sub Sub Get_Answer() Dim conn As New AdomdConnection("Data Source=SQLDEV1;Catalog=pl_360_ii") Dim cmd As String cmd = "SELECT NON EMPTY { [Measures].[Revenue Amount] } ON COLUMNS FROM ( SELECT ( { [Shipment Date].[Shipment Year].&[2017] } ) ON COLUMNS FROM [pl_360_ii]) WHERE ( [Shipment Date].[Shipment Year].&[2017] ) CELL PROPERTIES VALUE, BACK_COLOR, FORE_COLOR, FORMATTED_VALUE, FORMAT_STRING, FONT_NAME, FONT_SIZE, FONT_FLAGS" Dim dataAdapter As New AdomdDataAdapter(cmd, conn) Dim ds As New DataSet() dataAdapter.Fill(ds) queryresultview.DataSource = ds.Tables(0)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)