30 - Count (Contar registros)


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)

Problema:

<%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 count(*) as cantidad from rubros",conexion
response.write("<strong>Cantidad de rubros existentes:</strong>" & registros("cantidad"))
response.write("<br>")
dim registrosru
set registrosru = Server.CreateObject("ADODB.RecordSet")  
registrosru.open "select codigo,descripcion from rubros",conexion
do while not registrosru.eof
  response.write("Código:" & registrosru("codigo"))
  response.write("<br>")
  response.write("Descripción:" & registrosru("descripcion"))
  response.write("<br>")
  response.write("------------------------------------------------------------")
  response.write("<br>")
  registrosru.movenext
loop
conexion.close
%>
</body>
</html>

Mostrar la cantidad de registros almacenados en la tabla rubros y seguidamente los nombres de los mismos con su código.


Ver solución

pagina1.asp






Retornar