Ejemplo de consulta basica


http://www.asptutor.com

Listado de registros

Este ejemplo nos permite listar el resultado de una select contra una tabla de nuestra base de datos.

 

Listado.asp
<html>

<head><title>Listado de registros</title></head>


<%SQLtxt = "SELECT Producto, Cantidad, Precio FROM almacen "%>
<body>
<%set rs = CreateObject("ADODB.Recordset")
rs.Open SQLtxt, "DSN=Mibase"

%>


<center>
<table border="0" width="32%" bgcolor="#C0C0C0">
<tr>
<td width="100%">
<p align="center"><b><big>Listado de registros</big></b></td>
</tr>
</table>
<h3></center>
<br>
</h3>
<table BORDER="1" CELLSPACING="0" BORDERCOLOR="#000000" 
CELLPADDING="2" width="100%">
<tr>
<td BGCOLOR="#C0C0C0"><b>Nombre de producto</b></td>
<td BGCOLOR="#C0C0C0"><b>Cantidad</b></td>
<td BGCOLOR="#C0C0C0" align="right"><b>Precio</b></td>
</tr>


<%
Do While NOT rs.EOF%>

<tr>
<td><%= rs("Producto")%></td>
<td><%= rs("Cantidad")%></td>
<td align="right"><%= FormatCurrency(rs("Precio"))%></td>
</tr>

<% rs.MoveNext
Loop
rs.Close

%>


</table>
</body></html>


Pulsa para ver el ejemplo funcionando
           
Atras

Siguiente