Ejercicios resueltos

Simulador (Cuando presiona el botón "ejecutar el programa" se graban todos los cuadros de texto y se ejecuta el primero de la lista mostrando en una página el resultado.)

Implementar un formulario que permita cargar el código de artículo a consultar. Si el código ingresado existe en la tabla articulos proceder a mostrar su descripción, precio y rubro al que pertenece, en caso de no existir mostrar un mensaje de código inexistente.
pagina1.html

pagina1.asp

<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "Provider=SQLOLEDB.1;" & _
			    "Data Source=.;" & _
			    "Integrated Security=SSPI;" & _
			    "Persist Security Info=False;" & _
			    "Initial Catalog=wi630629_aspya"
conexion.Open
dim registros
set registros = Server.CreateObject("ADODB.RecordSet")  
registros.open "select ar.descripcion as descriarticulo, " & _ 
               "precio,ru.descripcion as descrirubro " & _
                 "from articulos as ar " & _
                 "join rubros as ru on ru.codigo=ar.codigorubro " & _
                 "where ar.codigo=" & request.form("codigo") ,conexion
if not registros.eof then
  response.write("Descripción:" & registros("descriarticulo"))
  response.write("<br>")
  response.write("Precio:" & registros("precio"))
  response.write("<br>")
  response.write("Rubro:" & registros("descrirubro"))
  response.write("<br>")
else
  response.write("No existe ningún artículo con dicho código")
end if
conexion.close
%>
</body>
</html>

28 - SELECT (Acceso a datos de varias tablas)

Retornar