Programación General > Visual Basic 6.0 e inferiores
Cuantos Hay De X Campo De La Tabla Sent.sql
UserCode:
--- Citar ---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 :huh:
--- Fin de la cita ---
Perdon, es que me deje llevar por como se ven las cosas en el Excel: :lol:
Lo de Cilindros si parece tener su logica con las columnas CANT, ACT, TALLER.
Hay Total para cada columna, ya sé lo que voy a poner (otra grilla) por cierto, creo que nunca lo dije, pero son MsFlexGrid lo que tengo no DataGrid, voy a ver el cambiar entonces el MSFlexGrid por el DBGrid porque el DataGrid no me enlaza con el control, es que esta en DAO porque la BD esta en Access e interactua mas rapido el dao que el ado con el access. El DBGrid si me tiene esas propiedades de rejilla.
Voy a poner un DBGrid más para suma y que qude asi en la ventana:
Ahora un favor, :) dejar que yo me mate el dia de hoy intentando y probando a ver si logro la suma de las 4 columnas (CANT, ACT, TALLER y Km Rec) si lo que está en rojo, ahora lo que está en azul pues ya se vera, Excel siempre ha sido un dolor de cabeza a la hora de que algo en VB o X Lenguaje imite/copie/haga algo de él :(
--- Código: Text --- Private Sub SumarColumna_Click()Dim Suma, i For i = 1 To Me.DataGrid1.ApproxCount Suma = Suma + Val(Me.DataGrid1.Columns(4).CellValue(i))Next iMe.Text2 = SumaEnd Sub
Me dio error, pero ya cambiara un poco (pienso yo) porque ya no será en text ni label, sino en otro DBGrid.
Antes de terminar el día aviso que tal me fue, voy....
UserCode:
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:
--- Código: Text --- SELECT a.txtuso, Count(a.txtuso) AS CANT, (SELECT Count(b.txtuso) FROM TR_CTRL_VEHIC_KM as b WHERE b.txtcondicion = "ACTIVA" AND b.txtuso = a.txtuso AND b.txtsucursal = a.txtsucursal AND b.txtmes = a.txtmes ) AS ACT, (SELECT Count(b.txtuso) FROM TR_CTRL_VEHIC_KM as b WHERE b.txtcondicion ="TALLER" AND b.txtuso = a.txtuso AND b.txtsucursal = a.txtsucursal AND b.txtmes = a.txtmes ) AS TALLER, (SELECT Sum(b.TxtkmRec) FROM TR_CTRL_VEHIC_KM as b WHERE b.txtuso = a.txtuso AND b.txtsucursal = a.txtsucursal AND b.txtmes = a.txtmes ) AS KMRECFROM TR_CTRL_VEHIC_KM AS aWHERE a.txtsucursal="CORO" AND a.txtmes="OCTUBRE"GROUP BY a.txtsucursal, a.txtmes, a.txtuso;
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. :huh:
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 :(
F_Tanori:
Porque no adjuntas un ejemplo de tu proyecto?
para ver en que se te pede ayudar :)
UserCode:
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 :(
F_Tanori:
puedes usar algun servicio
como
http://rapidshare.de/
http://www.megaupload.com/es/
http://www.filefactory.com/
o cualquier servidor gratuito los subes y dejas el link :)
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa