cumpleaños mensuales

[annacopi]

Hola chicos

Tengo una tabla llamada users en la cual tengo definido dia de nacimiento, mes de nacimiento y año de nacimiento; quiero hacer el listado de cumpleaños mensuales.

Alguien me podría indicar como hago para listar estos cumpleaños??

Agradezco a quien me pueda ayudar... ;)

[JoeYFuRiA]

Hola Ana, si cada dato lo tienes en un campo, es decir, el dia en un campo, el mes en otro y el año en otro, puedes hacer un simple select de los que cumplen en el mes actual:

Código:

  
<%strSQL = "SELECT Nombre, Dia FROM TuTabla WHERE Mes = " & month(Date) & " ORDER By Dia"
Set RS = Conn.execute (StrSQL)
Do While Not RS.EOF%>
Nombre: <%=RS("Nombre"%>
Cumpleaños: <%=RS("Dia")%>
<%RS.Movenext%>
<%LOOP%>

Espero ke te sirva, un saludo :P

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[annacopi]

Gracias David

Hice lo que me dijiste pero no me funciona, no se que este colocando mal en el código pero me aparece el siguiente error

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Controlador ODBC Microsoft Access] Pocos parámetros. Se esperaba 2.

El código que coloqué fué el siguiente:

&lt;%
Set Ob_Conn=Server.CreateObject(&quot;ADODB.Connection &quot;)
set Ob_RS=server.createobject(&quot;ADODB.recordset&qu ot;)
Ob_Conn.Open &quot;Basedatos&quot;
strSQL = &quot;SELECT nombre,dia FROM usuarios WHERE Mes = &quot; &amp; month(Date) &amp; &quot; ORDER By dia&quot;
Set Ob_RS = Ob_Conn.execute (StrSQL)
Do While Not Ob_RS.EOF%&gt;
Nombre: &lt;%=Ob_RS(&quot;nombre&quot;)%&gt;
Cumpleaños: &lt;%=Ob_RS(&quot;dia&quot;)%&gt;
&lt;%Ob_RS.Movenext%&gt;
&lt;%LOOP%&gt;
y me sale el error que te dije anteriormente

luego modifiqué el código por este:

&lt;%
Set Ob_Conn=Server.CreateObject(&quot;ADODB.Connection &quot;)
set Ob_RS=server.createobject(&quot;ADODB.recordset&qu ot;)
Ob_Conn.Open &quot;Basedatos&quot;
sql=&quot;SELECT nombre, dia FROM usuarios WHERE Mes = &quot; &amp; month(Date) &amp; &quot; ORDER By dia&quot;
Ob_RS.open sql,Ob_Conn
Do While Not Ob_RS.EOF%&gt;
Nombre: &lt;%=Ob_RS(&quot;nombre&quot;)%&gt;
Cumpleaños: &lt;%=Ob_RS(&quot;dia&quot;)%&gt;
&lt;%Ob_RS.Movenext%&gt;
&lt;%LOOP%&gt;
y me sale el mismo error que estaré haciendo mal??

[JoeYFuRiA]

escribeme la linea exacta en la que te da el error..ok?


<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[JoeYFuRiA]

Hola Anna, he probado el codigo, y me funciona bien, asi que lo unico que puede ser es que el campos mes no lo tengas como numerico. Si es asi, o ponlo como numerico, o en la sentencia SQL, pon estas comillas:

Código:

 
 = "SELECT Nombre, Dia FROM cumples WHERE Mes = '" & month(Date) & "' ORDER By Dia"

Un saludo

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[annacopi]

Ahora me sale este error

[Microsoft][Controlador ODBC Microsoft Access] Error de sintaxis (falta operador) en la expresión de consulta 'WHERE Mes = '6''.

El error lo ha mostrado en la linea 6 siempre, el anterior error tambien estaba en la línea 6... :(
linea 5:
strSQL = &quot;SELECT nombre, dia FROM usuarios WHERE WHERE Mes = ' &quot; &amp; month(Date) &amp; &quot; ' ORDER By dia&quot;
linea 6: Set Ob_RS = Ob_Conn.execute (StrSQL)

Además el campo dia, mes y año los tengo como numéricos
Voy a seguir intentando buscar el bendito error, de todas maneras te agradezco si me ayudas

[annacopi]

David!!!
Muchísimas gracias, por tu colaboración!!

Ya encontré el error, era con el select ya que los datos los tengo numéricos y estaba dandole mal el nombre del campo mes :roto:

Ahora solo me queda empezar a jugar con los numeros de los meses para realizar una cartelera de cumpleaños mensuales es decir, listar los cumpleaños mes a mes! pero con tu ayuda ya puedo seguir realizando mi cartelera de cumpleaños ;)

Gracias de nuevo!! :)

[JoeYFuRiA]

un placer ayudarte ;)
Mi cumpleaños es el 11 de abril para ke me metas en tu tabla
Un saludin

<center><font face="verdana" color=#003366 size="1">One Ring to rule them all, One Ring to find them,
One Ring to bring them all and in the darkness bind them.[/CODE]</center>

[annacopi]

Yo te incluyo en mi tabla pero me falta el año de nacimiento

Muchas gracoas ;) :P