Programación General > Visual Basic 6.0 e inferiores
Suma
marisol_ylonen:
Hola!
Estoy intentando hacer una suma, pero se me ha complicado proque implica varios campos de la misma columna.
Es esto, resulta que tengo una clave autonumérica, los campos: conjunto, componente, no_almacen y cantidad, entre otros. Varios registros pueden tener el mismo contenido en "conjunto" y en "componentes" pero mi consulta distinct los muestra porque, aunque yo sé que es lo mismo, los otros campos pueden variar. Lo que quiero hacer es sumar la "cantidad" de los que tengan lo mismo en "conjunto" y en "componente". Intenté esto:
strSQL="select sum(PLANEACION.COMPONENTE) from PLANEACION GROUP BY conjunto"
Y quiero tener el resultado en un textbox, pero no me manda nada ni error siquiera.
Pensé en hacerlo por programación, hacer que recorra los registros y los que encuentre con la misma combinacion "conjunto-componente" sume la cantidad. Pero no sé cómo hacerlo.
Hice una consulta en Access, sale bien, pero no sé cómo juntarlo en la consulta que genera al formulario.
Cualquiera de los métodos que se pueda usar y un ejemplo para adaptar, envíenlo y traten de explicarlo porque aún soy bastante nueva en esto, mi correo es:
marisol_ylonen@yahoo.com.mx
Cualquier respuesta es bienvenida, gracias
LeGatoRojo:
strSQL = "SELECT Sum(PLANEACION.LSLGBE) AS SumaDeLSLGBE FROM PLANEACION GROUP BY PLANEACION.STBGNR" = Texto31
tal vez si le quitas la ultima parte de = texto31 funcionaria, y si no usa el debug para ver que valor tiene strSQL y postealo porfas.
marisol_ylonen:
hola!
Pues tiene esto: srtSQL=""
Y si asigno el alias, o sea el nombre que toma la suma, al texto31, texto31 tiene valor nulo.
Todo lo que necesito es hacer que el resultado del strSQL se vea en el textbox al momento de ejecutar.
Gracias de nuevo, son unos amores :hola:
UserCode:
--- Citar ---Todo lo que necesito es hacer que el resultado del strSQL se vea en el textbox al momento de ejecutar.
--- Fin de la cita ---
hola :hola:
Yo tuve esa misma cuestion y pude resolverlo gracias a las consultas dadas aqui en solocodigo, el post era algo largo y inicialmente trataba sobre una cuestion y luego paseo a esto mismo que necesitas, yo pongo un codigo, la suma ya la tienes en el Alias del campo, y si solo necesitas mostrar eso en un Text pues te serviria asi, por ejemplo:
Este es tu alias del campo: SumaDeLSLGBE entonces...
--- Código: Text --- Dim SumaResult As Double With Rs While Not .EOF SumaResult = SumaResult + Val(![SumaDeLSLGBE]) .MoveNext Wend End With Text31.Text = SumaResult
Por ahí va la cosa, para mostrar en un Text un campo o Alias de un Query SQL pues recoges el dato entre (![dato_sql]) sea Val(![ ]) o CDbl(![ ]), es decir, sea el caso de dato Intenger, Double, etc.
Si el Query no se trae nada y el Alias está vacio pues tal vez tengas que frenar el codigo antes de pasar por ahi o validar algo asi o sino dara error de null.
Luego del While:
--- Código: Text --- While Not .EOF If IsNumeric(![SumaDeLSLGBE])=Flase Then Exit Sub Else SumaResult = SumaResult + Val(![SumaDeLSLGBE]) End If .MoveNextWend
ojala y te sirva :hola:
marisol_ylonen:
Hola! :hola:
Cómo decirte que estoy muy agradecida contigo. Ya me estba resignando y le estaba buscando por otro lado. Funciona de maravilla. Sólo una pregunta más, no sé si sea por mi query, hace la suma total de las cantidades de todos los registros?
Este es el sql que le metí:
strSQL = "SELECT Sum(PLANEACION.LSLGBE) AS SumaDeLSLGBE FROM PLANEACION GROUP BY PLANEACION.STBGNR"
Yo pensé que cambiaría la cantidad según el conjunto, porque eso es lo que hace el query si lo ejecuto como consulta, pero con el código parece mandarme la suma total, no solo de los que repitan la combinación STBGNR y STKOMP.
Bueno, contestasté mi primer pregunta.
Muchas gracias porque creo que a muchos nos servirá.
Hasta luego y que sigas tan iluminado y dispuesto a contestar a los que no nos rifamos tanto. :kicking:
Navegación
[#] Página Siguiente
Ir a la versión completa