Cambiar consulta Shape Compute a Shape Append - Ayuda

[wolf_kof]

jajajajajaja... se deja de llamar minelin jajajajajajaja 

[ssccaann43]

garantizado o me dejo de llamar Miguel Nuñez jeje.

 

[lucius]

Te dejo el ejemplo http://www.megaupload.com/?d=M23UA48D

[YAcosta]

Disculpa la demora, tu sabes como son los usuarios, son lo mejores para halla excepciones.
Bueno, como te dije lo que considero debes hacer es llevar al SHAPE el where y no en el APPEND. Asi que tuve que mover tu codigo, copia y pegalo en el proyecto que me enviaste y una vez que lo pruebes y me captes lo que quise decir lo trasladas a tu proyecto. Este es el codigo:

Código: (vb) [Seleccionar]

Private Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim Query As String

Query = "SHAPE {SELECT c.idcat, c.nomcat FROM categoria c, producto p where c.idcat = p.idcat"
If Check1 Then
  Query = Query & " AND idprod='" & Text1 & "' "
End If

Query = Query & "} AS LEVEL1 "
Query = Query & "APPEND ({SELECT idprod, nomprod, precio, idcat FROM producto "
Query = Query & "} AS LEVEL2 RELATE idcat TO idcat) AS LEVEL2"

Set rs = New ADODB.Recordset
rs.Open Query, cn

Set DataReport1.DataSource = rs
DataReport1.Show

End Sub
Lo he probado y va bien en la consulta con o sin el filtro. Espero haberte ayudado.

[ssccaann43]

Yvan, Excelente..! 

Y Lucius, a ver si te animas a investigar sobre Crystal Reports, porque DataReports es muy deficiente..!

[lucius]

Voy a probar el ejemplo.
ssccaann43 haber si me mandas un par de proyectos/ejemplos con crystal.
Cual es la mejor forma de trabajar con crystareport por que segun sé hay 2 formas creando el objeto desde codigo y la otra colocando un control CR en un form, cual es la mas practica para mi seria la 1era.

[ssccaann43]

Ok, en este link hay unos manuales muy buenos...

http://www.recursosvisualbasic.com.ar/htm/tutoriales/manual-crystal-reports.htm

[lucius]

Si capte la idea de ponerle el where en el shape e incluso le meti el where al shape y al append y no doy con la solucion, estoy ahogado con este pequeño inconveniente y debe ser por eso.
El codigo que dejaste arroja esto y logicamente lo intente adaptar pero nada de nada

Y si busco el producto 5002 me devuelve todos osea el 5001 y 5002

[YAcosta]

Sorry recien me pude conectar.

Doc cuando envie la solucion solo me preocupe por desaparecer lo que pediste, no vi la data ni nada pq supuse que ya eso lo verias tu, sorry por eso debi ver la data.

El problema se resuelve poniendo una sola palabra DISTINCT en el Select  del SHAPE.

Query = "SHAPE {SELECT DISTINCT c.idcat, c.nomcat FROM ca.... etc etc

Espero haberte ayudado. De ser asi cierra el hilo. Chau

[lucius]

Muchas gracias yvan ya solucione el problema con tu codigo.

El unico detalle es que debo pasarle tanto al SHAPE como APPEND la condicion de busqueda para que filtre bien en caso active el check el cual me busca un solo producto por medio del id, en fin el problema ya esta resuelto. Gracias nuevamente.

Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
Dim Query As String

Query = "SHAPE {SELECT DISTINCT c.idcat, c.nomcat FROM categoria c, producto p where c.idcat = p.idcat"
If Check1 Then
  Query = Query & " and idprod='" & Text1 & "'"
End If
Query = Query & "} AS LEVEL1 "
Query = Query & "APPEND ({SELECT  idprod, nomprod, precio, idcat FROM producto "
If Check1 Then
  Query = Query & " where idprod='" & Text1 & "'"
End If
Query = Query & "} AS LEVEL2 RELATE idcat TO idcat) AS LEVEL2"

Set rs = New ADODB.Recordset
rs.Open Query, cn

Set DataReport1.DataSource = rs
DataReport1.Show
End Sub

[ssccaann43]

No olvides ver el link que te deje...!

[YAcosta]

Si, es cierto, requiere poner dos veces la búsqueda.
El problema esta resuelto ya tiene solución, pero coincido contigo que esta solución no es la mejor solución, no me gusta hacer dos veces la misma consulta a la BD, asi que ya con la calma del problema resuelto, déjame investigar mas para lograr la mejor solución que se pueda.

Saludos

[lucius]

Nuevamente gracias por atender la pregunta y si en algun momento surge la forma de optimizar la consulta sql bienvenida sea,por otro lado ya he revisado algunos capitulos del link que dejaste, saludos.

[YAcosta]

jeje, el link lo dejo sscaamm43 (Miguel Nuñez). Saludos

[lucius]

Al final encontre que utilizar SHAPE APPEND es precisamente para mostrar las cabeceras aunque estas no tengas registros
"2. SHAPE APPEND funciona de manera similar a OUTER JOIN (combinación de datos externa), en cuanto a que se devuelve un registro primario, incluso aunque éste no tenga registros secundarios."
http://personal.lobocom.es/claudio/ado001.htm

Asi que en mi caso lo mejor sera seguir utilizando el SHAPE COMPUTE.

Gracias por la ayuda