Agrupar por mes

[gasafonso]

Hola gente linda de VB, tengo una duda haber si uds me la pueden solucionar

tegno esta sentencia

Código: (VB) [Seleccionar]

llaveCobranza = "select sum(importe) as suma from tbdetallegastos where fecha=#" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# and tipocomprobante='RC' group by fecha"
DsDetalleGastos.RecordSource = llaveCobranza
DsDetalleGastos.Refresh
txtcobranzas.text = FormatNumber(DsDetalleGastos.Recordset!suma, 2)
Como hago para agrupar por mes ?

gracias !!!!!

[ssccaann43]

Hola gente linda de VB, tengo una duda haber si uds me la pueden solucionar

tegno esta sentencia

Código: (VB) [Seleccionar]

llaveCobranza = "select sum(importe) as suma from tbdetallegastos where fecha=#" & Format(DTPicker1.Value, "mm/dd/yyyy") & "# and tipocomprobante='RC' group by fecha"
DsDetalleGastos.RecordSource = llaveCobranza
DsDetalleGastos.Refresh
txtcobranzas.text = FormatNumber(DsDetalleGastos.Recordset!suma, 2)
Como hago para agrupar por mes ?

gracias !!!!!

Deseas que el monto que te muestre sea de un mes especifico??? Puedes hacerlo de la siguiente manera...

Código: (VB) [Seleccionar]

llaveCobranza = "select sum(importe) as suma from tbdetallegastos where MONTH(fecha)='" & MONTH(DTPicker1.Value) & "' and tipocomprobante='RC'"
DsDetalleGastos.RecordSource = llaveCobranza
DsDetalleGastos.Refresh
txtcobranzas.text = FormatNumber(DsDetalleGastos.Recordset!suma, 2)
Saludos

[YAcosta]

Solo falta agregarle al where que el año sea el mismo porque sino saldra el mes de mayo de todos los años ya que el month solo te entrega un valor integer correspondiente al numero de mes.


s.e.u o.

[ssccaann43]

Solo falta agregarle al where que el año sea el mismo porque sino saldra el mes de mayo de todos los años ya que el month solo te entrega un valor integer correspondiente al numero de mes.


s.e.u o.

Cierto, se me paso por alto...

Código: (vb) [Seleccionar]

llaveCobranza = "select sum(importe) as suma from tbdetallegastos where (MONTH(fecha)='" & MONTH(DTPicker1.Value) & "' and YEAR(fecha)='" & YEAR(DTPicker1.Value) & "') and tipocomprobante='RC'"
DsDetalleGastos.RecordSource = llaveCobranza
DsDetalleGastos.Refresh
txtcobranzas.text = FormatNumber(DsDetalleGastos.Recordset!suma, 2)


[gasafonso]

Como siempre tan atentos y rapidos para dar una respuesta

Les agradezco muchisimo es el foro que anduve buscando por tiempo


PD: Si quiero en funcion de un DTPicker1.Value sacar el mes y ponerlo en un txtmes como deberia hacer ? gracias nuevamente !!!!!

[YAcosta]

Yo no te capte ¿Que quieres poner en txtmes?¿el numero de mes?¿el nombre del mes?

1.- Quiero sacar el numero de mes

Código: (VB) [Seleccionar]

txtmes = Month(DTPicker1.Value)
2.- Quiero sacar el nombre del mes

Código: (VB) [Seleccionar]

txtmes  = MonthName(Month(DTPicker1.Value), False) 'Si pones true solo te da las primeras tres letras.

[E N T E R]

Otra forma seria.


http://snag.gy/9YmGc.jpg

[gasafonso]

gracias a  todos ...... Son de mucha utilidad

YAcosta con tu forma tengo el DTPicker1=29/05/2014 y me pone octubre en el mes

[YAcosta]

mmm, quizá la configuración regional sea el tema, porque como ves en la captura de pantalla que puse sale correcto, la intención de poner esa captura era por ver si alguien decia que le sale en ingles y de alli iba a postear el codigo en español, pero no me esperaba que te salga como indicas. Por siaca pega tu codigo aqui, si fuera posible captura de pantalla con el inmediato pa ver directamente que pasa.

Saludos

[gasafonso]

Gravias amigo y como lo podria solucionar? poniendole un format ?

[wolf_kof]

Esto ba en BASES DE DATOS!!!!!!

Mis queridos amigos moderadores