🚀 go-pugleaf

Hi,



I wrote simple MDX query:

select {[Measures].[Store Cost],[Measures].[Store Sales]} on columns,

            NON EMPTY [Customers].[Name].Members

               DIMENSION PROPERTIES Customers.Gender, Customers.Education
on rows

from Sales

where ([Time].[1997])



As you can see It returns 2 properties: Customers.Gender,
Customers.Education



The question is: How can I retrieve that 2 properties using TCOMICellset
class(from ADOMD)?









I tried to use the following:

:

CellSet1->Open(dxMemo1->Text);  // Execute MDX query

:

// processing fields definition

Adodb_tlb::Properties *Prs;

Property *Pr1;

Prs=
CellSet1->Axes->get_Item(1)->Positions->get_Item(2)->Members->get_Item(0)->P
roperties;

Pr1=
CellSet1->Axes->get_Item(1)->Positions->get_Item(2)->Members->get_Item(0)->P
roperties->get_Item(0);

Pr1=
CellSet1->Axes->get_Item(1)->Positions->get_Item(2)->Members->get_Item(0)->P
roperties->get_Item(1);



// Next line will generate error (access violation)

int PropsCount= Prs->Count;   //   WHY
????????????????????????????????????????

// Next line also will generate error (access violation)

int PropValue= Pr1->get_Value(); //   WHY
????????????????????????????????????????



:



  for(I= 1; I <= CellSet1->Axes->get_Item(0)->Positions->Count; I++)

  {

    AnsiString ColName;

    pNewDef= ClientDataSet1->FieldDefs->AddFieldDef();



    ColName= CellSet1->Axes->get_Item(0)->Positions->get_Item(I-
1)->Members->get_Item(0)->Caption;

    ColName+= " ("+
IntToStr(CellSet1->Axes->get_Item(0)->Positions->get_Item(I- 1)->Ordinal)
+")";

    pNewDef->Name= ColName;

    pNewDef->DataType= ftFloat;

  }



but it dos not work, Help please!





Thanks,

Gregory