No consigo verificar los un cliente
<html>
<head>
<title>seleccion de cliente</title>
</head>
<body>
<h3>SELECCION DE CLIENTE</h3>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open "C:/analisis_proyec2/electra.mdb.mdb"
sSQL = "SELECT * FROM clientes WHERE DNI=("+reques.From("denei"))
Set Rs = Conn.execute(sSQL)
Response.Write" DNI " & "<UL>"
Do While NOT Rs.EOF
Response.Write (Rs.Fields("DNI").value) & "    " "<BR>"
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
y el formulario de donde lo envio es asi<html>
<head>
<title>
gestion clientes
</title>
</head>
<body>
<FROM action"elige_cli.asp" METHOD="POST">
<h3>GESTION CLIENTES</h3>
<div alin="center">
DNI<input type "text" NAME="denei">
<p>
<input type="submit"values="Enviar">
</from>
</body>
</html>
<head>
<title>seleccion de cliente</title>
</head>
<body>
<h3>SELECCION DE CLIENTE</h3>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open "C:/analisis_proyec2/electra.mdb.mdb"
sSQL = "SELECT * FROM clientes WHERE DNI=("+reques.From("denei"))
Set Rs = Conn.execute(sSQL)
Response.Write" DNI " & "<UL>"
Do While NOT Rs.EOF
Response.Write (Rs.Fields("DNI").value) & "    " "<BR>"
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
</body>
</html>
y el formulario de donde lo envio es asi<html>
<head>
<title>
gestion clientes
</title>
</head>
<body>
<FROM action"elige_cli.asp" METHOD="POST">
<h3>GESTION CLIENTES</h3>
<div alin="center">
DNI<input type "text" NAME="denei">
<p>
<input type="submit"values="Enviar">
</from>
</body>
</html>
1 Respuesta
Respuesta de manusoftar
1
Por empezar te recomendaría que cambies la sentencia:
sSQL = "SELECT * FROM clientes WHERE DNI=("+reques.From("denei"))
por:
sSQL= "SELECT * FROM clientes WHERE DNI='" & request.FORM("denei") & "'"
o bien :
sSQL= "SELECT * FROM clientes WHERE DNI=" & request.FORM("denei")
Si el valor es numérico funcionará cualquiera de los dos. Por otro lado, no se i será porque copiaste apurado pero hay algunas cosas mal:
Cuando haces el request, lo haces así request. FROM(y es FORM que viene de FORMulario, tené eso en cuenta) y pones reques. En vez de request. (Te comiste la "t", no es por detallista, pero ese insignificante error de sintaxis hace que el asp no funcione.
Por otro lado, cuando escribís el nombre de archivo de la base, escribís 2 veces el .mdb (OJO!).
Espero que esto te sirva. Atentamente. Manuel Fernández.
PD: si necesitas más ayuda escribime.
sSQL = "SELECT * FROM clientes WHERE DNI=("+reques.From("denei"))
por:
sSQL= "SELECT * FROM clientes WHERE DNI='" & request.FORM("denei") & "'"
o bien :
sSQL= "SELECT * FROM clientes WHERE DNI=" & request.FORM("denei")
Si el valor es numérico funcionará cualquiera de los dos. Por otro lado, no se i será porque copiaste apurado pero hay algunas cosas mal:
Cuando haces el request, lo haces así request. FROM(y es FORM que viene de FORMulario, tené eso en cuenta) y pones reques. En vez de request. (Te comiste la "t", no es por detallista, pero ese insignificante error de sintaxis hace que el asp no funcione.
Por otro lado, cuando escribís el nombre de archivo de la base, escribís 2 veces el .mdb (OJO!).
Espero que esto te sirva. Atentamente. Manuel Fernández.
PD: si necesitas más ayuda escribime.
