ayuda con este codigo?

[malex6]

me estoy volviendo loco, hace rato que vengo con este error y no lo he podido solucionar haber si algun guru se puede dar cuenta

<%


Set con=Server.CreateObject("ADODB.Connection&quo t;)
set result=Server.CreateObject("ADODB.Recordset&q uot;)
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Da ta Source=" & _
Server.MapPath("uf.mdb"))

sql="select uf from tabla1 where fecha=#"&date()&"#"

'Ejecuta un sentencia SQL de consulta
'Recorre todas las filas del resultado
set result=Con.Execute(sql)

'procedo a enviar el resultado

%>
<%response.write (result("uf"))%>

la idea es sacar este dato puesto que pertenece al dia, podria ser tambien un cumpleaños, o el santoral.


el Error es el siguiente:

UF
ADODB.Field error '80020009'

El valor de BOF o EOF es True, o el actual registro ha sido eliminado; la operación solicitada por la aplicación requiere un registro actual.

?

en la base de datos el registro esta...

vamos gurus no me abandonen

gracias

[agarciaa]

El error está en que la consulta no te está devolviendo nada, por que no pruebas con Like.

sql="select uf from tabla1 where fecha like #"&date()&"#"

[malex6]

disculpa como seria eso del Like

gracias de antemano

[malex6]

me vomitó el mismo error

ADODB.Field error '80020009'

El valor de BOF o EOF es True, o el actual registro ha sido eliminado; la operación solicitada por la aplicación requiere un registro actual.

?

que puedo hacer?

[urjose]

prueba esto

sql="select uf,fecha from tabla1 where fecha like #"&date()&"#"


o

sql="select uf,fecha from tabla1 where fecha= #"&date()&"#"

espero que sea eso

salu2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[urjose]

por cierto tu campo fecha en la base de datos de que tipo lo tienes declarado?

salu2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[malex6]

perdon la demera pero estava de visita, ok. te respondo el campo fecha lo tengo declarado como FECHA/HORA fecha corta.
por ejemplo 27/01/02

voy a probar lo que me sugeristes te cuento en poco rato...

salu2 ;)

[urjose]

hi estuve probando y como tu lo haces debe funcionar ahora bien

tu campo fecha en la bd dices que es asi

27/01/2001

tal vez lo que sucede es que DATE() te regresa la fecha asi 01/27/2001

bueno podria ser eso salus ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[malex6]

Urjose, la verdad es que no se que mas hacer, en la base la fecha aparece 27/01/02, revise por si acaso la configuracion regional,
he intentado todos los cambios que me sé, pero nada el mismo error.

Alguien me podria revisar los codigos, podria enviar los archivos son muy pequeños.

porfa...

Al borde del Suicidio
salu2 :(

[urjose]

mandamelos y en un tiempecillo los reviso

[email protected]

salu2 ;) :)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[urjose]

hi al menos en mi pc ya jalo comentame que tal

&lt;%
'=DateAdd(&quot;H&quot;, 10,&quot;9:40:22&quot;)

Dia=Day(date)
mes=Month(date)
anio=year(date)

Fecha=dia&amp;&quot;/&quot;&amp;mes&amp;&quot;/&quot;&amp;anio

Set Conn=Server.CreateObject(&quot;Adodb.Connection&qu ot;)
Set Rs=Server.CreateObject(&quot;Adodb.recordset&quot; )

'SQL=&quot;Select * from TABLA1 where fecha like #&quot;&amp;date&amp;&quot;#&quot;

'SQL=&quot;Select * from TABLA1 where fecha=#01/27/02#&quot;

SQL=&quot;Select * from TABLA1 where fecha=#&quot;&amp;fecha&amp;&quot;#&quot; ' esta es la buena

'SQL=&quot;Select * from TABLA1 where id=13&quot;

'SQL=&quot;SELECT * FROM TABLA1&quot;

Conn.open &quot;Basura&quot;


rs.open SQL,conn,2,3
Response.Write Date &amp;&quot;&lt;br&gt;&quot;
Response.Write sql &amp;&quot;&lt;br&gt;&quot;

'Response.Write rs.recordcount


IF RS.EOF AND RS.BOF THEN
RESPONSE.WRITE &quot;NINGUN REGISTRO&quot;
END IF

DO UNTIL RS.EOF
VARIABLE=RS(&quot;ID&quot;)
RESPONSE.WRITE VARIABLE&amp;&quot;&lt;BR&gt;&quot;
RS.MOVENEXT
LOOP

%&gt;


salu2 :) ;)

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">

[malex6]

GRANDE URJOSE,

TODO BIEN¡¡¡¡¡
te debo confesar que busque el error millones de veces, las mismas veces mire la based de datos para ver como ingresaban los datos, pero bueno, ME FALTA MUCHO PARA SER UN MAESTRO.

GRACIAS MAESTRO

SALU2 :P