FIX: Creation of Ad Hoc Data Mining Models Fails with Mining Execution Location=3

Back to the top

Steps to Reproduce Behavior

1. Create a new Microsoft Visual Basic Standard EXE project.
2. Add a reference to the Microsoft Active Data Objects Library.
3. Add the following code to the Form_Load method of Form1:

   Private Sub Form_Load()
      Dim ado_dbConnection As ADODB.Connection
      Dim sConnectString As String
      Set ado_dbConnection = New ADODB.Connection
      ado_dbConnection.Open "Provider=MSOLAP.2; Mining Execution Location=3;" & _
         "Data Source=localhost;Initial Catalog=FoodMart 2000;"
   
      ado_dbConnection.Execute "Create Mining Model Test17_20(CaseID long key, " & _
                                   " x1 double continuous," & _
                                   " x2 double continuous," & _
                                   " x3 double model_existence_only continuous predict," & _
                                   " x4 double model_existence_only continuous predict ) using microsoft_clustering (Cluster_count = 2)"
   
      'ado_dbConnection.Execute "Select Measures.Members on columns, {[Store].[All Stores].[USA].Children} on rows from sales"
           
     If Not ado_dbConnection Is Nothing Then
       If ado_dbConnection.State = adStateOpen Then
         ado_dbConnection.Close
       End If
     End If
   End Sub
   					

4. Run the Visual Basic project, and note the error message that occurs.
5. Replace the ado_dbConnection.Execute statement from the code snippet with the following statement:

   ado_dbConnection.Execute "Select Measures.Members on columns, {[Store].[All Stores].[USA].Children} on rows from sales"
   					

6. Run the Visual Basic project and note that no error message occurs.

Back to the top