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
RefCruzVB6.rar
Description: application/rar-compressed
