mejora de programa
como estan
necesito un favor urgente
tengo el siguiente seudocodigo el cual ejecuta una consulta general y me muestra todos los registros.
el favor es que si me ayudan a transformarlo en una consulta especifica es decir que tome un valor desde un formulario y me muestre los registros que concuerden con esta consulta
el codigo es:
<html>
<head>
<title>Ejemplo de ASP</title>
</head>
<body>
<H1>bases de datos con ASP</H1>
<%
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cur.mdb"))
strSQL = "SELECT * FROM Estudiante"
Set objRS = oConn.Execute(strSQL)
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> codigo</TD><TD> materia </TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("codigo") & "</td><td> " & objRS("materia") & " </td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
</body>
</html>
muchas gracias
att goku
necesito un favor urgente
tengo el siguiente seudocodigo el cual ejecuta una consulta general y me muestra todos los registros.
el favor es que si me ayudan a transformarlo en una consulta especifica es decir que tome un valor desde un formulario y me muestre los registros que concuerden con esta consulta
el codigo es:
<html>
<head>
<title>Ejemplo de ASP</title>
</head>
<body>
<H1>bases de datos con ASP</H1>
<%
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cur.mdb"))
strSQL = "SELECT * FROM Estudiante"
Set objRS = oConn.Execute(strSQL)
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> codigo</TD><TD> materia </TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("codigo") & "</td><td> " & objRS("materia") & " </td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
</body>
</html>
muchas gracias
att goku