Results 1 to 3 of 3
  1. #1
    Join Date
    Jul 2004

    Editor or parser for Olap or Create Cube statements

    Hi ...

    I would like to know if there is any editor or parser where I can check my 'Create cube ' statements.

    I am trying to create a local cube and I am getting an error while compliling my prorgram

    The error is : ' Syntax error in column definition'

    So could u suggest me some editor or parser where I could check only the statements I am using for the create cube ..

    i.e Statements I use for Creation of Cube,Insertion of data in to cube and the select clause.

    Thanks You for sparing ur time


  2. #2
    Join Date
    Sep 2002
    What product has this "create cube" syntax?

  3. #3
    Join Date
    Jul 2004

    General Synxtax for creating local cubes

    hi dear,

    Thnx for showing interest in this problem of mine.

    I am trying to create a local olap cube.

    The create cube syntax is part of the code which is used to create a cube.

    U can refer to the following link---

    This syntax is a general syntax to create local cubes which r then connected to relational databases to populate data into them.. eg sql server ,oralce or ms access etc..

    so in case u come across the editor to check such statements kindly let me know..

    I have been working on this code,which throws an error -syntax error in coulumn definition...
    The code is provided below...




    Private Sub cmdClick_Click()

    Dim cnCube As ADODB.Connection
    Dim s As String
    Dim strProvider As String
    Dim strDataSource As String
    Dim strSourceDSN As String
    Dim strSourceDSNSuffix As String
    Dim strCreateCube As String
    Dim strInsertInto As String
    Dim strSource As String
    On Error GoTo Error_cmdCreateCubeFromDatabase_Click

    strSource = Connection(1)
    strCreateCube = getCreateCube()
    strInsertInto = getInsertInto()

    Set cnCube = New ADODB.Connection

    s = strSource & ";" & strCreateCube & ";" & strInsertInto & ";"

    Screen.MousePointer = vbHourglass

    cnCube.Open s

    Screen.MousePointer = vbDefault
    Exit Sub

    Screen.MousePointer = vbDefault
    MsgBox Err.Description
    If Err.Number <> 0 Then
    msg = "Error # " & Str(Err.Number) & " was generated by " _
    & Err.Source & Chr(13) & Err.Description
    MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext
    End If

    End Sub
    Private Function Connection(idbtype As Long) As String

    '''''''''''''''''''''''''Database Connection to the Cube''''''''''''''''''
    strProvider = "PROVIDER=MSOLAP"
    strDataSource = "DATA SOURCE=c:\OlapCube.cub"
    strSourceDSN = "SOURCE_DSN=AccessLoyd"
    Connection = strProvider & ";" & strDataSource & ";" & strSourceDSN

    End Function
    Private Function getCreateCube() As String

    ''''''''''''''''''''''''''Create cube Structure'''''''''''''''''''''''''''
    Dim strCreateCube As String
    strCreateCube = "CREATECUBE=CREATE CUBE cbia( "
    strCreateCube = strCreateCube & "DIMENSION[SSTORE],"
    strCreateCube = strCreateCube & "LEVEL[SSTORE Name],"
    strCreateCube = strCreateCube & "MEASURE [SSTORE Sales] "
    strCreateCube = strCreateCube & "Function Sum "
    strCreateCube = strCreateCube & "Format '#.#')"
    getCreateCube = strCreateCube
    End Function
    Private Function getInsertInto() As String
    '''''''''''''''''''''''''''Insert Clause and Select Clause'''''''''''''''''

    Dim strInsertInto As String
    '''''''''''''''''''''''''''Table name.Column Name''''''''''''''''''''''''''

    strInsertInto = strInsertInto & "INSERTINTO=INSERT INTO cbia( SSTORE.[STORE Name],"
    strInsertInto = strInsertInto & "Measures.[STORE Sales])"
    strInsertInto = strInsertInto & "SELECT SSTORE.STORE_NAME AS COL1,"
    strInsertInto = strInsertInto & "SSTORE.STORE_SALES AS COL2"
    strInsertInto = strInsertInto & "FROM [SSTORE]"
    getInsertInto = strInsertInto
    End Function

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts