Foros
Nuevos mensajes
Buscar en foros
Acceder
Novedades
Buscar
Buscar
Buscar solo en títulos
De:
Menú
Acceder
Install the app
Instalar
Foros
Software de Gestión
Business Intelligence
problemas al crear un cubo local de AS
JavaScript está desactivado. Para una mejor experiencia, por favor, activa JavaScript en el navegador antes de continuar.
Estás utilizando un navegador obsoleto. Este u otros sitios web pueden no ser mostrados correctamente.
Debes actualizarlo o utilizar un
navegador alternativo
.
Responder al tema
Mensaje
<blockquote data-quote="olroxa" data-source="post: 6675" data-attributes="member: 1542"><p>Buenos dias, intento crear un cubo local Analysis Services con ADODB en </p><p>Visual Basic 6.0 y me da un error 'Syntax Error' al ejecutar la sentencia:</p><p></p><p>cnCube.Execute (s).</p><p></p><p>Os agradeceria pudierais ayudarme, saludos....</p><p> </p><p>El codigo que utilizo es el siguiente:</p><p></p><p>Dim cnCube</p><p>Dim strProvider As String</p><p>Dim strDataSource As String</p><p>Dim strSourceDSN As String</p><p>Dim strCreateCube As String</p><p>Dim strInsertInto As String</p><p>Sub Crear_Cubo()</p><p></p><p>strProvider = "PROVIDER=MSOLAP"</p><p>strDataSource = "DATA SOURCE=C:\Documents and Settings\Administrador\Mis </p><p>documentos\EmpuriesBI.cub"</p><p>strSourceDSN = "SOURCE_DSN=Empuries_BI"</p><p></p><p> </p><p>strCreateCube = "CREATECUBE=Create CUBE EmpuriesBI("</p><p>strCreateCube = strCreateCube & "DIMENSION [Ciudad Expediente],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Ciudad Expediente] TYPE </p><p>ALL,"</p><p> strCreateCube = strCreateCube & "LEVEL [Pais] ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Ciudad Expd] ,"</p><p> </p><p>strCreateCube = strCreateCube & "DIMENSION [Ciudad Transito],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Ciudad Transito] TYPE </p><p>ALL,"</p><p> strCreateCube = strCreateCube & "LEVEL [Pais] ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Ciudad] ,"</p><p> </p><p>strCreateCube = strCreateCube & "DIMENSION [Cliente Expediente],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Cliente Expediente] </p><p>TYPE ALL,"</p><p> strCreateCube = strCreateCube & "LEVEL [Cliente Expd] ,"</p><p>strCreateCube = strCreateCube & "DIMENSION [Cliente Facturacion],"</p><p> </p><p> strCreateCube = strCreateCube & "LEVEL [All Cliente Facturacion] </p><p>TYPE ALL,"</p><p> strCreateCube = strCreateCube & "LEVEL [Cliente Facturacion],"</p><p> </p><p>strCreateCube = strCreateCube & "DIMENSION [Cliente Servicio],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Cliente Servicio] TYPE </p><p>ALL,"</p><p> strCreateCube = strCreateCube & "LEVEL [Cliente Serv] ,"</p><p> </p><p>strCreateCube = strCreateCube & "DIMENSION [Con Transito],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Con Transito] TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Con Transito] ,"</p><p> </p><p>strCreateCube = strCreateCube & "DIMENSION [ConceptoGrupoStad],"</p><p> strCreateCube = strCreateCube & "LEVEL [All ConceptoGrupoStad] TYPE </p><p>ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Grupo] ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Concepto] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Delegacion],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Delegacion] TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Codigo] ,"</p><p> </p><p>strCreateCube = strCreateCube & "DIMENSION [Ejercicio] TYPE TIME,"</p><p> strCreateCube = strCreateCube & "LEVEL [All Ejercicio] TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Anual] ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Mes] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Empresas],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Empresas] TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Codigo] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Flete],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Flete] TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Flete] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Incoterm],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Incoterm] TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Codigo] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Operaciones Expediente],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Operaciones Expediente] </p><p>TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Operacion Expd] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Operaciones Transito],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Operaciones Transito] </p><p>TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Codigo] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Servicio],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Servicio] TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Modo] ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Aplicacion] ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Ambito] ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Codigo] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Socio Comercial],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Socio Comercial] TYPE </p><p>ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Socio Comercial] ,"</p><p></p><p>strCreateCube = strCreateCube & "DIMENSION [Suplido],"</p><p> strCreateCube = strCreateCube & "LEVEL [All Suplido] TYPE ALL ,"</p><p> strCreateCube = strCreateCube & "LEVEL [Suplido] ,"</p><p> </p><p>strCreateCube = strCreateCube & "MEASURE [Bultos] "</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##',"</p><p>strCreateCube = strCreateCube & "MEASURE [Cantidad Servicios] "</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##',"</p><p>strCreateCube = strCreateCube & "MEASURE [Cantidad Teus]"</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##',"</p><p>strCreateCube = strCreateCube & "MEASURE [Cantidad Transitos] "</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##',"</p><p>strCreateCube = strCreateCube & "MEASURE [Compra] "</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##',"</p><p>strCreateCube = strCreateCube & "MEASURE [Peso Bruto] "</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##')"</p><p> </p><p>strCreateCube = strCreateCube & "MEASURE [Peso Tarifable] "</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##')"</p><p> </p><p>strCreateCube = strCreateCube & "MEASURE [Venta] "</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##')"</p><p> </p><p>strCreateCube = strCreateCube & "MEASURE [Volumen] "</p><p> strCreateCube = strCreateCube & "Function Sum "</p><p> strCreateCube = strCreateCube & "Format '#.##,##')"</p><p> </p><p>strCreateCube = strCreateCube & "COMMAND ( CREATE MEMBER </p><p>[EmpuriesBI].[MEASURES].[Margen Bruto] AS </p><p>'[Measures].[Venta]-[Measures].[Compra]'))"</p><p>strInsertInto = "INSERT INTO [EmpuriesBI]("</p><p>strInsertInto = strInsertInto & " [Ciudad Expediente].[Pais],"</p><p>strInsertInto = strInsertInto & " [Ciudad Expediente].[Ciudad Expd],"</p><p>strInsertInto = strInsertInto & " [Ciudad Transito].[Pais],"</p><p>strInsertInto = strInsertInto & " [Ciudad Transito].[Ciudad],"</p><p>strInsertInto = strInsertInto & " [Cliente Expediente].[Cliente Expd],"</p><p>strInsertInto = strInsertInto & " [Cliente Facturacion].[Cliente </p><p>Facturacion],"</p><p>strInsertInto = strInsertInto & " [Cliente Servicio].[Cliente Serv],"</p><p>strInsertInto = strInsertInto & " [Con Transito].[Con Transito],"</p><p>strInsertInto = strInsertInto & " [ConceptoGrupoStad].[Grupo],"</p><p>strInsertInto = strInsertInto & " [ConceptoGrupoStad].[Concepto],"</p><p>strInsertInto = strInsertInto & " [Delegacion].[Codigo],"</p><p>strInsertInto = strInsertInto & " [Ejercicio].[Anual],"</p><p>strInsertInto = strInsertInto & " [Ejercicio].[Mes],"</p><p>strInsertInto = strInsertInto & " [Empresas].[Codigo],"</p><p>strInsertInto = strInsertInto & " [Flete].[Flete],"</p><p>strInsertInto = strInsertInto & " [Incoterm].[Codigo],"</p><p>strInsertInto = strInsertInto & " [Operaciones Expediente].[Operacion Expd],"</p><p>strInsertInto = strInsertInto & " [Operaciones Transito].[Codigo],"</p><p>strInsertInto = strInsertInto & " [Servicio].[Modo],"</p><p>strInsertInto = strInsertInto & " [Servicio].[Aplicacion],"</p><p>strInsertInto = strInsertInto & " [Servicio].[Ambito],"</p><p>strInsertInto = strInsertInto & " [Servicio].[Codigo],"</p><p>strInsertInto = strInsertInto & " [Socio Comercial].[Socio Comercial],"</p><p>strInsertInto = strInsertInto & " [Suplido].[Suplido],"</p><p>strInsertInto = strInsertInto & " Measures.[Bultos],"</p><p>strInsertInto = strInsertInto & " Measures.[Cantidad Servicios],"</p><p>strInsertInto = strInsertInto & " Measures.[Cantidad Teus],"</p><p>strInsertInto = strInsertInto & " Measures.[Cantidad Transitos],"</p><p>strInsertInto = strInsertInto & " Measures.[Compra],"</p><p>strInsertInto = strInsertInto & " Measures.[Peso Bruto],"</p><p>strInsertInto = strInsertInto & " Measures.[Peso Tarifable],"</p><p>strInsertInto = strInsertInto & " Measures.[Venta],"</p><p>strInsertInto = strInsertInto & " Measures.[Volumen])"</p><p>strInsertInto = strInsertInto & " SELECT "</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Ciudad Expediente<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite7" alt=":p" title="Stick out tongue :p" loading="lazy" data-shortname=":p" />ais],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Ciudad Expediente:Ciudad </p><p>Expd],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Ciudad Transito<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite7" alt=":p" title="Stick out tongue :p" loading="lazy" data-shortname=":p" />ais],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Ciudad Transito:Ciudad],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Cliente </p><p>Expediente:Cliente Expd],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Cliente </p><p>Facturacion:Cliente Facturacion],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Cliente Servicio:Cliente </p><p>Serv],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Con Transito:Con </p><p>Transito],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[ConceptoGrupoStad],"</p><p>strInsertInto = strInsertInto & " </p><p>[EmpuriesBI].[ConceptoGrupoStad],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Delegacion],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Ejercicio],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Ejercicio],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Empresas],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Flete],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Incoterm],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Operaciones </p><p>Expediente:Operacion Expd],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Operaciones </p><p>Transito:Codigo],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Servicio],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Servicio],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Servicio],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Servicio],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Socio Comercial:Socio </p><p>Comercial],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[Suplido],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures:Cantidad </p><p>Servicios],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures:Cantidad Teus],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures:Cantidad </p><p>Transitos],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite7" alt=":p" title="Stick out tongue :p" loading="lazy" data-shortname=":p" />eso Bruto],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures<img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite7" alt=":p" title="Stick out tongue :p" loading="lazy" data-shortname=":p" />eso Tarifable],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures],"</p><p>strInsertInto = strInsertInto & " [EmpuriesBI].[measures]"</p><p>strInsertInto = strInsertInto & " FROM [EmpuriesBI]"</p><p></p><p>'Crea el objeto para contener el registro y ejecuta la sentencia MDX</p><p>Set cnCube = CreateObject("ADODB.Connection")</p><p></p><p>s = strCreateCube & ";" & strInsertInto & ";"</p><p></p><p>cnCube.Open (strProvider & ";" & strDataSource & ";" & strSourceDSN & ";")</p><p></p><p>cnCube.Execute (s)</p><p></p><p>MsgBox "Cubo Creado con exito", vbOKOnly, "Creacion del Cubo Local"</p><p></p><p>cnCube.Close</p><p></p><p>End Sub</p></blockquote><p></p>
[QUOTE="olroxa, post: 6675, member: 1542"] 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 [/QUOTE]
Nombre
Verificación
¿Quién ganó el último mundial de futbol, el de 2022?
Responder
Foros
Software de Gestión
Business Intelligence
problemas al crear un cubo local de AS
Arriba
