Site hosted by Angelfire.com: Build your free website today!

<HTML>
<HEAD>
<TITLE>Lectura de registros de una tabla</TITLE>
</HEAD>
<BODY>
<h1><div align="center">Lectura de la tabla</div></h1>
<br>
<br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={SQL SERVER};description=Sistema;server=CTA2-238;uid=sa;pwd=;database=Sistema"
set rs=conn.Execute("select * from pedidos,clientes where pedidos.id_cliente=clientes.id_cliente")
'Mostramos los registros%>
<table align="center">
<tr>
<th>id_pedido</th>
<th>Fecha</th>
<th>Id_cliente</th>
<th>Nombre</th>
<th>Subtotal</th>
<th>Impuesto</th>
<th>Total</th>
</tr>
<%
Do While Not RS.Eof
%>
<tr>
<td><%=RS("id_pedido")%></td>
<td><%=RS("Fecha")%></td>
<td><%=RS("id_cliente")%></td>
<td><%=RS("contacto")%></td>
<td><%=RS("subtotal")%></td>
<td><%=RS("impuesto")%></td>
<td><%=RS("total")%></td>
</tr>
<%
set RSpartidas = Conn.Execute("select*from pedidospartidas where id_pedido= "& rs("id_pedido"))
do while not rspartidas.eof
%>
<tr>
<td><%=RSpartidas("id_pedido")%></td>
<td><%=RSpartidas("id_articulo")%></td>
<td><%=RSpartidas("descripcion")%></td>
<td><%=RSpartidas("cantidad")%></td>
<td><%=RSpartidas("precio")%></td>
<td><%=RSpartidas("importe")%></td
</tr>
<%
rspartidas.movenext
loop
RS.MoveNext
Loop
'Cerramos el sistema de conexion
Conn.Close
%>
</table>
<div align="center">
<a href="insertar.html">Aņadir un nuevo registro</a><br>
<a href="actualizar1.asp">Actualizar un registro existente</a><br>
<a href="borrar1.asp">Borrar un registro</a><br>
</div>
</BODY>
</HTML>

 

Regresar