Cuantos Hay De X Campo De La Tabla Sent.sql

Programación General > Visual Basic 6.0 e inferiores

<< < (5/6) > >>

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

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

:unsure:

F_Tanori:
Hola UserCode

En esta maquina no funciona el dbgrid :lightsabre: , pero aqui esta unas instrucciones, debe de funcionar lo probe con flexgrid, pero como realmente el afectado es el data, debe de funcionar tambien con el dbgrid

Form:FrmResumenUsoCondicion
Evento:Form_Load

--- Código: Text --- ls_SQL = "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.txtcondicion='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.txtcondicion='Taller' AND TR_CTRL_VEHIC_KM.txtuso=a.txtuso) AS TALLER, (SELECT sum(TR_CTRL_VEHIC_KM.txtkmrec) FROM TR_CTRL_VEHIC_KM WHERE TR_CTRL_VEHIC_KM.txtuso=a.txtuso) AS KMREC "ls_SQL = ls_SQL & "FROM TR_CTRL_VEHIC_KM AS a "ls_SQL = ls_SQL & " WHERE (((a.TxtMes)='" & SeleccionMes & "') AND ((a.TxtSucursal)='" & SeleccionSucursal & "')) "ls_SQL = ls_SQL & "GROUP BY a.TxtUso, a.TxtSucursal, a.TxtMes;" Set Me.Data1.Recordset = BD.OpenRecordset(ls_SQL, dbOpenDynaset) If Not Me.Data1.Recordset Is Nothing Then If Not Me.Data1.Recordset.EOF Then 'Asegurarse que el recordcount no mienta :P Me.Data1.Recordset.MoveLast Me.Data1.Recordset.MoveFirst End IfEnd If
Espero que te ayude
Nos estamos leyendo! :hola:

UserCode:
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:

--- Código: Text --- Dim SumaCANT, i As DoubleFor i = 1 To Me.DBGrid1.ApproxCount SumaCANT = SumaCANT + Val(Me.DBGrid1.Columns(2).CellValue(i))Next iMe.TxtTotalCANT.Text = SumaCANT 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 :blink:

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.

F_Tanori:
Hola

Mira esto
Para ver lo del Bookmark

Tambien puedes
Pruebar con esto....

--- Código: Text --- Dim SumaCANT, iFor i = 1 To Me.DBGrid1.ApproxCount DBGrid1.Row =i DBGrid1.RowBookmark(i) SumaCANT = SumaCANT + Val(Me.DBGrid1.Columns(2).CellValue(i))Next iMe.TxtTotalCANT.Text = SumaCANT
o...

--- Código: Text --- with me.Data1.Recordset While Not .EOF Then SumaCANT=SumaCANT+val(![CANT]) SumaACT=SumaACT+val(![ACT]) SumaKMREC=SumaKMREC+val(![KMREC]) .MoveNext loop End with Me.TxtTotalCANT.Text = SumaCANTMe.TxtTotalACT.Text = SumaACTMe.TxtTotalKMREC.Text = SumaKMREC
Pd. aqui no tengo VB asi que..... no lo probe... :whistling:

Suerte

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

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] & "")

--- Código: Text --- Dim SumaCANT, SumaACT, SumaTALLER As Integer Dim SumaKMREC As Double With Me.Data1.Recordset While Not Data1.Recordset.EOF SumaCANT = SumaCANT + Val(![CANT]) SumaACT = SumaACT + Val(![ACT]) SumaTALLER = SumaTALLER + Val(![Taller]) SumaKMREC = SumaKMREC + Val(![KMREC] & "") Data1.Recordset.MoveNext Wend End With Me.TxtTotalCANT.Text = SumaCANT Me.TxtTotalACT.Text = SumaACT Me.TxtTotalTALLER.Text = SumaTALLER Me.TxtTotalKmRec.Text = SumaKMREC
:ahora: 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. :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior

Ir a la versión completa