Ver Mensaje Individual
  #1 (permalink)  
Antiguo 12/03/2007, 03:34
progman
 
Fecha de Ingreso: marzo-2007
Mensajes: 3
Antigüedad: 18 años, 1 mes
Puntos: 0
Pregunta por que no me funciona la consulta SQL?

Hola

Estoy empezando en esto del ASP, y seguro que preguntoalgo muy basico, pero ahi va..

Tengo una pagina Html desde la cual envio un valor, un texto a otra pagina asp desde la cual recojo ese valor y lo utilizo para hacer una consulta SQL. La cuestion es que la consulta solo funciona con la sintaxis..

"SELECT * FROM ejemplo WHERE Nombre LIKE '%"&nom&"%'"

donde nom es el valor que se pasa desde la pagina Html.Si se cambia la consulta por ...

"SELECT * FROM ejemplo WHERE Nombre = '%"&nom&"%'

No da error, pero no muestra nada.

El codigo de la pagina html es...

<HTML>
<HEAD>
<TITLE>Formulario de ejemplo</TITLE>
</HEAD>
<BODY>
<H1>FORMULARIO DE EJEMPLO</H1>
<FORM method="post" action="PruebaConsultaDatos.asp">
Introduzca su nombre: <INPUT TYPE="TEXT" NAME="nomb">
<INPUT TYPE="submit" NAME="Enviador">
</FORM>
</BODY>
</HTML>

El codigo de la pagina asp es...

<HTML>
<HEAD>
<TITLE>Busqueda de datos</TITLE>
</HEAD>
<BODY>
<TABLE BORDER="1">
<TD><B>Nombre<B></TD>
<TD><B>Email<B></TD>
<TD><B>Url<B></TD>
<%
Dim sql, con, rs, nom
nom=Trim(CStr(Request.Form("nomb")))

sql= "SELECT * FROM ejemplo WHERE Nombre = '%"&nom&"%'"

Set con = Server.CreateObject("ADODB.Connection")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("\asp\BD\version2000.mdb"))
Set rs= Server.CreateObject("ADODB.Recordset")

rs.open sql,con,1

Do While Not rs.EOF
%>
<TR>
<TD><%= RS.Fields("Nombre").Value %></TD>
<TD><%= RS.Fields("Email").Value %></TD>
<TD><%= RS.Fields("Url").Value %></TD>
</TR>
<%

RS.MoveNext
Loop

rs.Close
con.Close
Set rs = nothing
Set con = nothing
%>
</table>
</BODY>
</HTML>

Gracias, por adelantado