problemas al crear un cubo local de AS

O

olroxa

Curioso
Buenos dias, intento crear un cubo local Analysis Services con ADODB en
Visual Basic 6.0 y me da un error 'Syntax Error' al ejecutar la sentencia:

cnCube.Execute (s).

Os agradeceria pudierais ayudarme, saludos....

El codigo que utilizo es el siguiente:

Dim cnCube
Dim strProvider As String
Dim strDataSource As String
Dim strSourceDSN As String
Dim strCreateCube As String
Dim strInsertInto As String
Sub Crear_Cubo()

strProvider = "PROVIDER=MSOLAP"
strDataSource = "DATA SOURCE=C:\Documents and Settings\Administrador\Mis
documentos\EmpuriesBI.cub"
strSourceDSN = "SOURCE_DSN=Empuries_BI"


strCreateCube = "CREATECUBE=Create CUBE EmpuriesBI("
strCreateCube = strCreateCube & "DIMENSION [Ciudad Expediente],"
strCreateCube = strCreateCube & "LEVEL [All Ciudad Expediente] TYPE
ALL,"
strCreateCube = strCreateCube & "LEVEL [Pais] ,"
strCreateCube = strCreateCube & "LEVEL [Ciudad Expd] ,"

strCreateCube = strCreateCube & "DIMENSION [Ciudad Transito],"
strCreateCube = strCreateCube & "LEVEL [All Ciudad Transito] TYPE
ALL,"
strCreateCube = strCreateCube & "LEVEL [Pais] ,"
strCreateCube = strCreateCube & "LEVEL [Ciudad] ,"

strCreateCube = strCreateCube & "DIMENSION [Cliente Expediente],"
strCreateCube = strCreateCube & "LEVEL [All Cliente Expediente]
TYPE ALL,"
strCreateCube = strCreateCube & "LEVEL [Cliente Expd] ,"
strCreateCube = strCreateCube & "DIMENSION [Cliente Facturacion],"

strCreateCube = strCreateCube & "LEVEL [All Cliente Facturacion]
TYPE ALL,"
strCreateCube = strCreateCube & "LEVEL [Cliente Facturacion],"

strCreateCube = strCreateCube & "DIMENSION [Cliente Servicio],"
strCreateCube = strCreateCube & "LEVEL [All Cliente Servicio] TYPE
ALL,"
strCreateCube = strCreateCube & "LEVEL [Cliente Serv] ,"

strCreateCube = strCreateCube & "DIMENSION [Con Transito],"
strCreateCube = strCreateCube & "LEVEL [All Con Transito] TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Con Transito] ,"

strCreateCube = strCreateCube & "DIMENSION [ConceptoGrupoStad],"
strCreateCube = strCreateCube & "LEVEL [All ConceptoGrupoStad] TYPE
ALL ,"
strCreateCube = strCreateCube & "LEVEL [Grupo] ,"
strCreateCube = strCreateCube & "LEVEL [Concepto] ,"

strCreateCube = strCreateCube & "DIMENSION [Delegacion],"
strCreateCube = strCreateCube & "LEVEL [All Delegacion] TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Codigo] ,"

strCreateCube = strCreateCube & "DIMENSION [Ejercicio] TYPE TIME,"
strCreateCube = strCreateCube & "LEVEL [All Ejercicio] TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Anual] ,"
strCreateCube = strCreateCube & "LEVEL [Mes] ,"

strCreateCube = strCreateCube & "DIMENSION [Empresas],"
strCreateCube = strCreateCube & "LEVEL [All Empresas] TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Codigo] ,"

strCreateCube = strCreateCube & "DIMENSION [Flete],"
strCreateCube = strCreateCube & "LEVEL [All Flete] TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Flete] ,"

strCreateCube = strCreateCube & "DIMENSION [Incoterm],"
strCreateCube = strCreateCube & "LEVEL [All Incoterm] TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Codigo] ,"

strCreateCube = strCreateCube & "DIMENSION [Operaciones Expediente],"
strCreateCube = strCreateCube & "LEVEL [All Operaciones Expediente]
TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Operacion Expd] ,"

strCreateCube = strCreateCube & "DIMENSION [Operaciones Transito],"
strCreateCube = strCreateCube & "LEVEL [All Operaciones Transito]
TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Codigo] ,"

strCreateCube = strCreateCube & "DIMENSION [Servicio],"
strCreateCube = strCreateCube & "LEVEL [All Servicio] TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Modo] ,"
strCreateCube = strCreateCube & "LEVEL [Aplicacion] ,"
strCreateCube = strCreateCube & "LEVEL [Ambito] ,"
strCreateCube = strCreateCube & "LEVEL [Codigo] ,"

strCreateCube = strCreateCube & "DIMENSION [Socio Comercial],"
strCreateCube = strCreateCube & "LEVEL [All Socio Comercial] TYPE
ALL ,"
strCreateCube = strCreateCube & "LEVEL [Socio Comercial] ,"

strCreateCube = strCreateCube & "DIMENSION [Suplido],"
strCreateCube = strCreateCube & "LEVEL [All Suplido] TYPE ALL ,"
strCreateCube = strCreateCube & "LEVEL [Suplido] ,"

strCreateCube = strCreateCube & "MEASURE [Bultos] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##',"
strCreateCube = strCreateCube & "MEASURE [Cantidad Servicios] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##',"
strCreateCube = strCreateCube & "MEASURE [Cantidad Teus]"
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##',"
strCreateCube = strCreateCube & "MEASURE [Cantidad Transitos] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##',"
strCreateCube = strCreateCube & "MEASURE [Compra] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##',"
strCreateCube = strCreateCube & "MEASURE [Peso Bruto] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##')"

strCreateCube = strCreateCube & "MEASURE [Peso Tarifable] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##')"

strCreateCube = strCreateCube & "MEASURE [Venta] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##')"

strCreateCube = strCreateCube & "MEASURE [Volumen] "
strCreateCube = strCreateCube & "Function Sum "
strCreateCube = strCreateCube & "Format '#.##,##')"

strCreateCube = strCreateCube & "COMMAND ( CREATE MEMBER
[EmpuriesBI].[MEASURES].[Margen Bruto] AS
'[Measures].[Venta]-[Measures].[Compra]'))"
strInsertInto = "INSERT INTO [EmpuriesBI]("
strInsertInto = strInsertInto & " [Ciudad Expediente].[Pais],"
strInsertInto = strInsertInto & " [Ciudad Expediente].[Ciudad Expd],"
strInsertInto = strInsertInto & " [Ciudad Transito].[Pais],"
strInsertInto = strInsertInto & " [Ciudad Transito].[Ciudad],"
strInsertInto = strInsertInto & " [Cliente Expediente].[Cliente Expd],"
strInsertInto = strInsertInto & " [Cliente Facturacion].[Cliente
Facturacion],"
strInsertInto = strInsertInto & " [Cliente Servicio].[Cliente Serv],"
strInsertInto = strInsertInto & " [Con Transito].[Con Transito],"
strInsertInto = strInsertInto & " [ConceptoGrupoStad].[Grupo],"
strInsertInto = strInsertInto & " [ConceptoGrupoStad].[Concepto],"
strInsertInto = strInsertInto & " [Delegacion].[Codigo],"
strInsertInto = strInsertInto & " [Ejercicio].[Anual],"
strInsertInto = strInsertInto & " [Ejercicio].[Mes],"
strInsertInto = strInsertInto & " [Empresas].[Codigo],"
strInsertInto = strInsertInto & " [Flete].[Flete],"
strInsertInto = strInsertInto & " [Incoterm].[Codigo],"
strInsertInto = strInsertInto & " [Operaciones Expediente].[Operacion Expd],"
strInsertInto = strInsertInto & " [Operaciones Transito].[Codigo],"
strInsertInto = strInsertInto & " [Servicio].[Modo],"
strInsertInto = strInsertInto & " [Servicio].[Aplicacion],"
strInsertInto = strInsertInto & " [Servicio].[Ambito],"
strInsertInto = strInsertInto & " [Servicio].[Codigo],"
strInsertInto = strInsertInto & " [Socio Comercial].[Socio Comercial],"
strInsertInto = strInsertInto & " [Suplido].[Suplido],"
strInsertInto = strInsertInto & " Measures.[Bultos],"
strInsertInto = strInsertInto & " Measures.[Cantidad Servicios],"
strInsertInto = strInsertInto & " Measures.[Cantidad Teus],"
strInsertInto = strInsertInto & " Measures.[Cantidad Transitos],"
strInsertInto = strInsertInto & " Measures.[Compra],"
strInsertInto = strInsertInto & " Measures.[Peso Bruto],"
strInsertInto = strInsertInto & " Measures.[Peso Tarifable],"
strInsertInto = strInsertInto & " Measures.[Venta],"
strInsertInto = strInsertInto & " Measures.[Volumen])"
strInsertInto = strInsertInto & " SELECT "
strInsertInto = strInsertInto & " [EmpuriesBI].[Ciudad Expediente:pais],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Ciudad Expediente:Ciudad
Expd],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Ciudad Transito:pais],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Ciudad Transito:Ciudad],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Cliente
Expediente:Cliente Expd],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Cliente
Facturacion:Cliente Facturacion],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Cliente Servicio:Cliente
Serv],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Con Transito:Con
Transito],"
strInsertInto = strInsertInto & " [EmpuriesBI].[ConceptoGrupoStad],"
strInsertInto = strInsertInto & "
[EmpuriesBI].[ConceptoGrupoStad],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Delegacion],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Ejercicio],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Ejercicio],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Empresas],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Flete],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Incoterm],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Operaciones
Expediente:Operacion Expd],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Operaciones
Transito:Codigo],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Servicio],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Servicio],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Servicio],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Servicio],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Socio Comercial:Socio
Comercial],"
strInsertInto = strInsertInto & " [EmpuriesBI].[Suplido],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures:Cantidad
Servicios],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures:Cantidad Teus],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures:Cantidad
Transitos],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures:peso Bruto],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures:peso Tarifable],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures],"
strInsertInto = strInsertInto & " [EmpuriesBI].[measures]"
strInsertInto = strInsertInto & " FROM [EmpuriesBI]"

'Crea el objeto para contener el registro y ejecuta la sentencia MDX
Set cnCube = CreateObject("ADODB.Connection")

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

cnCube.Open (strProvider & ";" & strDataSource & ";" & strSourceDSN & ";")

cnCube.Execute (s)

MsgBox "Cubo Creado con exito", vbOKOnly, "Creacion del Cubo Local"

cnCube.Close

End Sub
 


Escribe la respuesta...
Arriba