Re: How to pass additional dimensions to Mining Model using VB6

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: T.K. Anand [MSFT] (tkanand_at_online.microsoft.com)
Date: 06/03/04 

Date: Wed, 2 Jun 2004 19:52:15 -0700

Dimensions other than the case dimensions show up as nested columns in the
mining model. The levels and member properties of the dimension will be
columns within the nested column. Something like this...

Set dsCol = dbmm.Columns("Time")
dsCol.IsDisabled = False

Set dsNestedCol = dbCol.Columns("Year")
dsNestedCol.IsDisabled = False

Set dsNestedCol = dbCol.Columns("Month")
dsNestedCol.IsDisabled = False 

-- 
This posting is provided "AS IS" with no warranties, and confers no rights
Please do not send email directly to this alias. This alias is for newsgroup
purposes only.
"rajesh" <rajeshsoftdev@rediffmail.com> wrote in message
news:uDV#HQ8QEHA.1048@tk2msftngp13.phx.gbl...
> hi all,
> i have developed a Visual Basic 6 application for creating and training of
new data mining model based on an OLAP data source.
> There are 3 dimensions in a Cube. i know how to pass one dimension i.e.
case dimension. In the following source code i have defined case dimension
("SimilarTitlesDim") and their columns. I want to pass additional dimensions
i.e. Store and Time which are part of this Sales Cube. Can anybody tell me
how to pass other dimensions using vb6 code.
> regards
> rajesh.
> /******** sample code for reference ************/
> 'Set the needed properties for the new mining model
> 'dbmm is a DSO.miningmodel
> With dbmm
>  .DataSources.AddNew strSrcName, sbclsRegular
>  .Description = "Analyzes Sales Prediction by Store No for 56 days"
>  .miningalgorithm = "Microsoft_Decision_Trees"
>  .SourceCube = "Sales6"
>  .CaseDimension = "SimilarTitlesDim"
>  'Let DSO define the training query
>  .TrainingQuery = ""
>  .Update
> End With
>
>    Set dsCol = dbmm.Columns("Title Name")
>    dsCol.IsDisabled = False
>
>    Set dsCol = dbmm.Columns("Lead Cast")
>    dsCol.IsInput = True
>    dsCol.IsDisabled = False
>
>    Set dsCol = dbmm.Columns("Support Cast")
>    dsCol.IsInput = True
>    dsCol.IsDisabled = False
>
>    Set dsCol = dbmm.Columns("Cast Rank")
>    dsCol.IsInput = True
>    dsCol.IsDisabled = False
>
>    Set dsCol = dbmm.Columns("Support Rank")
>    dsCol.IsInput = True
>    dsCol.IsDisabled = False
>
>    Set dsCol = dbmm.Columns("Box Office Rating")
>    dsCol.IsInput = True
>    dsCol.IsDisabled = False
>
>    Set dsCol = dbmm.Columns("Genre")
>    dsCol.IsInput = True
>    dsCol.IsDisabled = False
>
>
> **********************************************************************
> Sent via Fuzzy Software @ http://www.fuzzysoftware.com/
> Comprehensive, categorised, searchable collection of links to ASP &
ASP.NET resources...