Gente
me llego sin el proyecto atachado, no se si lo elimino el servidor, si o
llego avisen y lo publico en algun ftp.
gracias
Daniel Calvin
El día 23/08/07, Daniel Calvin <[EMAIL PROTECTED]> escribió:
>
> Hola Gente
>
> Constri un ejemplo de un componente que lo hace por codigo, no encontre el
> componente que hice hace unos años....
>
>
> se usa asi:
>
> ' Una consulta que te trae los valore agrupados y con la operacion, suma,
> cuenta, lo que quieras resuelta
> r.Open "SELECT Articulo, Talle, Sum(Cantidad) AS SumaDeCantidad FROM
> Articulos GROUP BY Articulo, Articulos.Talle", c, adOpenStatic
>
> 'Componente nuevo
> Dim cub As New DACData.Cubo
>
> 'recorset recuperado desde la consulta de agrupacion
> Set cub.RecordsetSource = r
>
> 'Agregas la parte fija, en tu caso articulo
> ' Pueden ser tantos campos como quieras
> cub.PivotFields.Add "Articulo"
>
> ' seteas la columna cuyo valor son los titulos, en tu caso talle
> Set cub.ColumnField = r.Fields("Talle")
>
> 'seteas la columna que se usara para totalizar, la interseccion
> digamos
> Set cub.sumaField = r.Fields("SumaDeCantidad")
>
> ' genera un recorset como el que vino en el ejemplo anterior del
> access.
> Set cubRecordset = cub.GetCubo()
>
> r.Close
> c.Close
>
>
>
> Probalo, te adjunto el ejemplo completo, funciona con cualquier motor.
>
> Saludos
>
> Daniel
> PD: se puede optimizar mucho, si queres mejorarla mirala y te digo como.
>
>
> El día 23/08/07, Listas Mug <[EMAIL PROTECTED]> escribió:
> >
> > Upss…no pense que se iba a armar tal despelote, por lo que veo no es
> > tan fácil, el mayor problema que veo es que en este ejemplo, la columna
> > talle puede variar, es mas, varia constantemente, no siempre son los mismos
> > valores, estoy intentando algo con código, y basándome en lo que me
> > enviaron, También estaría bueno la opción que me dio Viviana, tenes algún
> > ejemplo?
> >
> >
> >
> >
> >
> >
> >
> > Gracias a todos
> >
> >
> >
> > ESteban
> >
> >
> > ------------------------------
> >
> > *De:* [email protected] [mailto:[EMAIL PROTECTED] *En nombre de *Report
> > System - Viviana
> > *Enviado el:* Jueves, 23 de Agosto de 2007 12:39 a.m.
> > *Para:* vbusers List Member
> > *Asunto:* [vbusers] Consulta de referencia cruzadas
> >
> >
> >
> > Si te sirve, en Crystal es muy fácil. Avisame y te armo un ejemplo.
> >
> > Saludos
> >
> > Viviana
> >
> > ----- Original Message -----
> >
> > * From:* Listas Mug <[EMAIL PROTECTED]>
> >
> > *To:* vbusers List Member <[email protected]>
> >
> > *Sent:* Wednesday, August 22, 2007 4:19 PM
> >
> > *Subject:* [vbusers] Consulta de referencia cruzadas
> >
> >
> >
> > Hola listeros
> >
> > Tengo que hacer una consulta de referencias cruzadas en
> > Visual, alguien tiene idea como hacerla???
> >
> >
> >
> > Tengo los siguientes datos
> >
> >
> >
> > Articulo talle cantidad
> >
> > 1000 40 1
> >
> > 1000 41 2
> >
> > 1001 39 1
> >
> > 1001 38 3
> >
> >
> >
> > Y tengo que llegar a esto:
> >
> >
> >
> > Artículo 38 39
> > 40 41
> >
> > 1000
> > 1 2
> >
> > 1001 3 1
> >
> >
> >
> > Esto se puede hacer en access, pero no le encuentro la vuelta en visual
> >
> >
> >
> > Desde ya muchas gracias
> >
> >
> >
> > Saludos, Esteban
> >
> >
> >
> > >
> > > Desde ya muchas gracias
> > > Saludos, ESteban
> > >
> > >
> > >
> > ------------------------------
> >
> > Comunícate al instante con Windows Live Messenger Windows Live
> > Messenger<http://imagine-msn.com/messenger/launch80/default.aspx?locale=es-us&source=joinmsncom/messenger>
> >
> >
>
>
> --
> Daniel A. Calvin
> Cooperator Team Member
> http://www.cooperator.com.ar
> Microsoft Certified Professional
>
--
Daniel A. Calvin
Cooperator Team Member
http://www.cooperator.com.ar
Microsoft Certified Professional
