Insercion de datos en tabla

jpalbox · #1 (**permalink**) 07/08/2002, 18:35

Hola tengo el siguiente problema quiero hacer reservas on-line para ello tengo tres campos reserva, hora y fecha.

1º - realizo una consulta para ver si esta hecha ya la reserva

sql = "SELECT * FROM reservas WHERE reserva='"&reserva&"' and hora='" & hora & "' and fecha=" & fecha & ""
rs.Open sql, con

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe la reserva.
If rs.EOF = True then

'Ejecuta un sentencia SQL para insertar alta
sql = "INSERT INTO reservas (fecha, reserva, hora, usuario)"
sql = sql & "VALUES('" & fecha & "', '" & reserva & "', '" & hora & "', '" & usuario & "')"
con.Execute(sql)

else

'La reserva ya existe
Response.redirect "errr0l.htm"

end if

'Libera memoria
con.Close
Set con = Nothing

%>

El problema es q siempre realiza la insercion en la tabla, no cheque la consulta previa de comprobacion, como podría solucionar esto.?

Gracias ;)

buliwyf · #2 (**permalink**) 07/08/2002, 19:31

veamos...

<%sql = "SELECT * FROM reservas WHERE reserva='"&reserva&"' and hora='" & hora & "' and fecha=" & fecha & ""
rs.Open sql, con
"..."
%>

Si el campo fecha es tipo Date trata con:

"..." fecha=#" & fecha & "#"

jpalbox · #3 (**permalink**) 08/08/2002, 11:17

El campo fecha es texto. Lo trato asi pq a la hora de obtenerno no tengo problemas de formato fecha español o ingles.

bakanzipp · #4 (**permalink**) 08/08/2002, 11:42

esto me recuerda de una consulta sin resolver de una niña mexicana...nunca supo porque siempre ejecutaba la insercion si el dato a veces si se encontraba en la b de datos..

prueba con esto:

Código:

  
sql = &quot;SELECT * FROM reservas WHERE reserva='&quot;&amp;reserva&amp;&quot;' and hora='&quot; &amp; hora &amp; &quot;' and fecha=&quot; &amp; fecha &amp; &quot;&quot;
set rs=con.execute(sql)

If (rs.eof=true) and (rs.bof=true) then

 'haz el insert

else

 'mensaje de error

end if

. ,)))
/ (, ,)
c\ _>'
__\ /__

jpalbox · #5 (**permalink**) 08/08/2002, 12:44

bakanzip gracias por la ayuda. He conseguido solucionarlo poniendo despues de la insercion el siguiente codigo

If Err = 0 Then
'Insercion correcta
Response.redirect "okr01.htm"
Else
Response.redirect "err11.htm"
End If

jpalbox · #6 (**permalink**) 10/08/2002, 07:45

Sorpresa. Me solamente me funciona en el xp cuando lo subo al servidor de brinkter no funciona. Esto pq es?

urjose · #7 (**permalink**) 10/08/2002, 11:23

Será por que en brinkster cambia la ruta de conexión?

Estas usando FSO o On Error Resume Next.

Checa la ayuda de brinkster.

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

jpalbox · #8 (**permalink**) 10/08/2002, 12:30

Solucionado Gracias. Una pregunta. Puedo obtener la fecha del ordenador del usuario (no la del servidor) ;) gracias?

urjose · #9 (**permalink**) 10/08/2002, 12:38

Con ASP no

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>