Visual Basic - Mostrar clientes que cumplen años hoy

Life is soft - evento anual de software empresarial
   
Vista:

Mostrar clientes que cumplen años hoy

Publicado por Rengo0 (2 intervenciones) el 17/09/2015 05:03:20
Hola a todos!

Soy nuevo en el foro y queria plantear la siguiente duda:

Trabajo con una base de datos en access 2003 con conexion ADO. En la base de datos tengo una tabla CLIENTES, uno de los campos de dicha tabla es FechaNac (fecha de nacimiento) y lo que quiero lograr es, en un formulario que solo contiene una grilla, en esa grilla poder mostrar solo los registros de los clientes que cumplen años el dia de hoy, es decir, que FechaNac sea igual a la fecha de hoy.

Tengo claro como formatear la fecha de hoy -> Variable = Format(Date, "dd/mm") pero lo que no logro hacer es formatear la fecha de nacimiento de cada cliente para compararla con la variable que contiene la fecha de hoy y, si coinciden, agregarla a la grid.

Esta es la forma en que se me ocurrio a mi, pero si se les ocurre algo mas simple y/o efectivo, bienvenido sea!

Espero haber sido claro y ojala me puedan ayudar!

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Mostrar clientes que cumplen años hoy

Publicado por Andres Leonardo (698 intervenciones) el 17/09/2015 15:57:03
Pues lo que yo haría es seleccionar los datos que cumplan el criterio por mes y día ... aquí va mi idea

espero te funcione... nos cuentas como te fue ..
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dia = Format(Date, "dd")
Mes = Format(Date, "mm")
SELECT * 'aqui tu pondras los campos que necesitas
FROM CLIENTES
where DatePart("m", [FechaNac]) =  Dia
and DatePart("d", [FechaNac]) = Mes
 
'Pruebala pruimero con valores ... 
 
'Este te dara los que cumplen el 5 de agosto.
SELECT *
FROM CLIENTES
where DatePart("m", [FechaNac]) =  08
and DatePart("d", [FechaNac]) = 05
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

Mostrar clientes que cumplen años hoy

Publicado por Rengo0 (2 intervenciones) el 18/09/2015 00:14:51
Estimado Leonardo, muchas gracias por tu pronta respuesta.

Lo que me pasaste fue la solución!

Pongo el código que utilicé por si alguien le sirve.
1
2
3
4
5
6
7
8
9
Dim Dia As String
Dim Mes As String
Dia = Format(Date, "dd")
Mes = Format(Date, "mm")
With RsCumples
    If .State = 1 Then .Close
    .Open "Select * from CLIENTES where DatePart('d', [FechaNac]) = " & Dia & " and DatePart('m', [FechaNac]) = " & Mes, Bd, adOpenStatic, adLockOptimistic
End With
Set GrdClientes.DataSource = RsCumples

Una vez más agradezco tu inmensa ayuda, venía lidiando hace varios días con este tema jeje. Gracias!

Pueden dar el tema por cerrado.

Saludos!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Andres Leonardo

Mostrar clientes que cumplen años hoy

Publicado por Andres Leonardo (698 intervenciones) el 18/09/2015 00:32:04
Que bueno que te haya servido

SAludos .
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar