SoloCodigo

Hola a todos

No sé a quien preguntarle esto, asi que lo pregunto en foros,solocodigo para saber su opinion sobre de que forma podría hacer lo siguiente...



Tengo un archivo en Excel de algo que alguien me pidio el favor de hacerselo a programa (ahi es donde entro yo con el vb). En la imagen se ven 3 cuadrillas, en la primera se repiten nuevamente las primeras 6 columnas, porque es por Sucursal y Mes, y ya le hice una ventanita a eso en VB para llenar esos datos, el cual es la segunda imagen que pongo.



Mi dilema es la ultima cuadrilla o recuadro, la cual si se fijan, es un conteo de la primera cuadrilla.  Yo tengo una Tabla en Access con campos de la primera cuadrilla, lo que no sabría bien es como realizar una consulta SQL que me cuente lo que refleja la ultima cuadrilla o recuadro, la que dice RESUMEN POR USO Y CONDICION.

Por medio de un boton en la ventana, yo cargo otra ventana con un MSFlexGrid que deberia mostrar lo mismo que ese ultimo recuadro, sus datos en base a la sentencia SQL.  Enlace la grilla a un control Data Dao e intente probar con algo como esto:


Siempre he usado sentencias SQL sencillas, y cualquier cálculo lo hago por código del vb pero esta vez deseo poderlo hacer por medio de sentencias SQL, pero no tengo mucha idea clara de como hacer esto.

Que me aconsejan que pueda hacer para poder arrojar en una rejilla algo como lo expuesto en este post  

muchas gracias por tu tiempo amigo.

PD: Me falto un dato en la ventana KM ACT pero ya lo arreglo   mil perdones se me paso.

La grilla me muestra o me arroja una sola columna con esto:

Código: Text

1.  
2.     Data1.RecordSource = "Select Count(TxtUso) From TR_CTRL_VEHIC_KM Where " & _
3.                          "TxtUso = 'AUTOGAS' and TxtUso = 'AVANCE' and TxtUso = 'DOMICILIO' and " & _
4.                          "TxtUso = 'FLETERO' and TxtUso = 'MIXTAS'"
5.  
6.  

Como le haria para que me mostrara la grilla con las 5 columnas de dato
sé que es solo un comienzo, pero es para ver si es posible o no formar tal consulta.

para usar funciones agregadas de SQL (count,sum,max etc..)  nesecitas agrupar... por ejemplo:


"Select Count(TxtUso),condicion,kim_ant,km_act From TR_CTRL_VEHIC_KM Goup by TxtUso"


que es lo que deseas mostrar?

Parece que ya entendi


el excel no tiene nada que ver... solo es la informacion final que quieres lograr pero ya todo esta en access... ¿o no?


segun veo en el consentrado de abajo solo muestra la cantidad de vehiculos de cada tipo (count que ya hiciste) ahora la segunda columna cuanta las unidades activas de cada 'uso', luego cuanta cuales estan en taller, y la suma de los km recorridos estoy bien?


bueno puedes hacer ....

con estos campos la probe

tabla
------------------
txtuso
cond
kmrec

que es una consulta con tres subconsultas para contar las dos condiciones (Activa y Taller, y poder sumar los kms )


Espero que te sirva de algo


Suerte!

hehehe... "demasiadas continuaciones de linea" es lo que me saco el VB por poner tantos & _
porque ver toda esa gigante SQL en una sola linea, huy me vuelvo loco  hehehe...
A la final también sé que VB tiene limites en todo, ya antes me paso algo asi con una SQL largota, VB no permitio más alargarla horizontalmente o algo asi, asi que como que mejor no me complico más con eso.

bueno, estaba alargando mucho la SQL para ver si lograba la cuestion, pero como que si me va a tener que tocar hacer otra tabla exclusiva para procesar este tipo de consulta, odio las cosas que vienen de Excel, pero que se le va a hacer, ni modo  

Si, tienes razón está contando me deje llevar por lo del SUM de la formula  

En excel los datos estan acomodados asi
numero|uso|condicion|km ...etc... esa misma tabla se repite a un costado

lo que hace es que son dos tablas (almenos las que se alcanzan a ver)

Si, es que es porque una mitad es por ingreso de Sucursal, y la otra mitad es por Mes, se ve arriba en la imagen completa del excel en el primer post, yo en vez de hacer dos tablas lo que normalmetne hago en esos casos, es agregar un campo más, es decir, dos tablas con 6 o 7 campos iguales es muy redundante, yo agarro, fusiono en una sola tabla pero agrego un campo o dos más, en la Tabla hay un campo Sucursal y otro Mes, de hecho, la Sucurlsa y el Mes siempre se indican en otra ventanita de inicio, se selecciona de unos Combobox, de una lista, y cualquier consulta sea por Sucursal o por Mes, las filtro por SQL con eso de WHERE Campo='Dato' o Where Campo= & variable y cosas asi.

De hecho, hay otra sección del archivo Excel donde hay dos tablas igualitas, a diferencia que una tiene un campo más, ahí yo hice una sola Tabla en la BD, pero con un campo más.. y en la ventana en VB es un Checkbox, guarda un valor booleano True o False o mejor 0 o 1 y en base a eso se indica la consulta.

Si esta teoria es correcta entonces no es suma es conteo y si son conteo y aplicas la sentencia que te envie debe funcionar, yo lo probe es mas te envio una prueba sale

Sé que esa SQL es, por eso partiendo de ella voy a (entre ensaño y error) a tratar de hacerles pequeños cambios para ver si da los datos correctos, ya que CANT está bien pero los demas aun no, es decir, yo ya le meti a la Tabla esos mismos datos, estos:


Y al consultar deberia arrojarme algo como esto: (lo que está en Rojo)


Pero al consultar me saca es esto:
(claro está en orden por Order by TxtUso en la SQL a la cual está conectado el MSFlexGrid a diferencia del orden en el Excel, pero si son los mismos datos todos)

En donde solo CANT es igual, el resto no porque el los demas ACT y TALLER tambien están contando como CANT y su conteo es diferente a CANT, es más como por selección más especifico como en la tabla de Access que está en mi post anterior.

Pero como ya habia comentado antes, esa SQL... esa misma es solo tengo entonces que (partiendo desde tu SQL) comenzar a editarle por aqui y por allá hasta que saque la misma consulta  

donde a.txtuso es el campo txtuso de la tabla principal, no se si esto te enrede?

bueno, TR_CTRL_VEHIC_KM con su campo TxtUso es donde se guardan estos datos, para mi esa es la tabla principal   aunque tengo otra tablita llamada TB_USO con un solo campo TxtUso, y otra TB_CONDICION con TxtCondicion, de estas dos ultimas tablas es que los Combobox de la ventana sacan la lista.  Porque esa a del a.txtuso yo la cambie por la misma de siempre  TR_CTRL_VEHIC_KM, será que ahí está la pieza que me falta?  

Bueno, yo cambie el a.txtuso por TB_USO.TxtUso (en todo donde decira a.txtuso) y me saco error, ese error que a veces salen con las SQL de "se espera 1" o 2.

PD: voy a hacerme un cursito de excel pq como que me hace falta, de SQL pues será a punta de internet pq cursos de SQL no existen donde vivo, me hace falta camino en eso.

Ahora si



Si era la a es que en el primer post no se indico nada de alias y yo vengo y cambie eso por el nombre de la tabla

Probe la SQL que no me daba bien en Access y daba igual de mal, pero tome la del archico Access que me has mandado y ahí simplemente terminando de completar el nombre de un campo... listo! y de vuelta al control en vb y ahora si rula  

gracias compadre, ya tome nota de todos sus hilos de todo este asunto y en verdad que me alegra no haber tenido que recurrir a soluciones poco ortodoxas o como se le desea a gusto indicar, pero es bueno encaminarse a probar con como debe ser.

Consulta rules  

Bueno mira AS TOTAL no es una palabra reservada tal vez solo AS pero en realidad es un campo calculado, o un alias del campo y lo puedes tomar como cualquier otro campo

Ej.


Si lo unico que quieres es sumar porque no lo haces ya en el grid?, aun que lo extraño es que.... como la suma de los kilometros recorridos te de el total de cilindros  


Con respecto a la otra duda.

el where seria a lo ultimo eln la tabla principal (a) ejemplo

(CODE)

SELECT a.txtuso, Count(a.txtuso) AS CANT, (SELECT Count(TR_CTRL_VEHIC_KM.txtuso) FROM TR_CTRL_VEHIC_KM WHERE TR_CTRL_VEHIC_KM.cond="Activa"  AND TR_CTRL_VEHIC_KM.txtuso=a.txtuso) AS ACT, (SELECT Count(TR_CTRL_VEHIC_KM.txtuso) FROM TR_CTRL_VEHIC_KM WHERE TR_CTRL_VEHIC_KM.cond="Taller"  AND TR_CTRL_VEHIC_KM.txtuso=a.txtuso) AS TALLER, (SELECT sum(TR_CTRL_VEHIC_KM.kmact) FROM TR_CTRL_VEHIC_KM WHERE TR_CTRL_VEHIC_KM.txtuso=a.txtuso) AS KMREC
FROM TR_CTRL_VEHIC_KM AS a
WHERE a.sucursal='NOMBRE_SUCURSAL' AND a.mes='OCTUBRE'
GROUP BY a.txtuso, a.sucursal, a.mes;

(/CODE)


Suerte y siguele....  

hola, perdon por la demora es que otras cosas ¬¬ me consumen parte del tiempo y por eso no habia escrito antes.

Las sumas si como que es mejor o sin problemas, el no hacerlo por SQL (aunque si me gustaria ver esa sentencia por curiosidad) pero no esta mal simplemente generar la consulta en SQL y la suma que menciono, hacerla sumando los datos de las celdas del control grid o rejilla, es decir, ya en esto ultimo nada que ver con SQLs.

La SQL de consulta tenia una pequeña fallita pq al consutlar me fije que agarraba uno que otro registro que no entraba en algunos de los parametros indicados, al menos no respetaba mucho el Where de Sucursal y Mes, pero ahora si, ya lo hace, asi queda finalmente la SQL de consulta:


Una cosa a decir de esta SQL, lo cual es que es raro pero... esta SQL si me sirve en Access pero en VB no me muestra nada, el DBGrid si está conectado al Data, es algo muy extraño, al menos si sé que funciona bien la SQL pero no sé pq no sale en VB.  

El problema es que mientras no sepa pq la consulta de la SQL no sale en el DBGrid, no podré hacer el Total de cada columna  

Si es buena idea, está empezando asi que le falta... pero el .zip pesa 356KB y el adjuntar solo permite 128KB ¿será entonces por corre? pero preferiría adjuntar aqui, como le hago  

ya lo subi en FileFactory pero no sé que se hizo xD!!!
:-/

http://www.filefactory.com/file/990180/

 

siii, ya se muestra, pero que raro de verdad que no arrojaba consulta antes, con esto ultimo es como forzarle al control data hacer un refresh o algo asi verdad!!

Este mismo código expuesto antes para la suma de una Columna de la rejilla:
No sé porque indica error de "El marcador no es válido" si es el mismo código, si hasta cambie el MSFlexGrid por el DBGrid para que el código fuese el mismo, ya que el MSFlex no tiena propiedad .ApproxCount pero el DBGrid si, pero no rula  

PD: No escribi antes pq estaba (estoy) googleando buscando con "Suma DBGrid" y ver si consigo algun código del que me pueda referenciar, siempre usaba rejillas para consulta, primera vez que interactuo más con estos controles de rejilla.

el primero me da error  pero el segundo si furula bien  
bueno a excepción del SumaKMREC=SumaKMREC+val(![KMREC]) un error de "Uso no valido de Null"  

Buscando con respecto a ese error, encontre esto por lo que solo poniendole un & "" a [KMREC] si sale la sumatoria de la columna, quedando asi esa linea:

SumaKMREC = SumaKMREC + Val(![KMREC] & "")


  si sale


Muchas gracias F_Tanori ahora si ha terminado esta telenovela, estoy en eterna gratitud, y yo que no sabia como sacar esos CANT, ACT y ect de la SQL, que por cierto falto TALLER pero ya está ahí, gracias gracias, saludos a la familia.