21/01/2002, 20:03
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 57
Antigüedad: 23 años, 4 meses Puntos: 0 | |
| Re: cambiar datos de una columna
hola urjose
estuve tratando de hacer lo que me dijiste pero no lo entedi bien, asi que te mando el codigo completo. lo que hace este codigo es paginar los resultados de una tabla, pero hay un campo llamado codigo(codigo del cliente), el cual no quiero que se muestre, si no el nombre del cliente que corresponde a ese codigo que esta en otra tabla llamada clientes. me explique bien?
<%
sSQL="select pedido, fecha, codigo from pedidos"
If Request.QueryString("pag")<>" " Then
Session("pagina")=Request.QueryString(&q uot;pag")
Else
Session("pagina")=1
End If
Const adCmdText = &H0001
Const adOpenStatic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")
Conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("pedido.mdb"))
RS.Open sSQL,Conn,adopenstatic,adcmdtext
num_registros = 2
RS.PageSize=num_registros
RS.AbsolutePage=Session("pagina")
%>
<body>
<div align="left">
Número de página actual: <b><%=Session("pagina")%>< ;/b><br>
Número de páginas total: <b><%=RS.PageCount%></b><br>
Número de registros por página: <b><%=RS.PageSize%></b><br>
Número de registros seleccionados: <b><%=RS.RecordCount%></b>
</div><br><br>
<table cellpadding="2" border="1" align="left" width="527">
<%
num_campos=RS.Fields.Count
For campo=0 to num_campos-1%>
<td align="center" width="515"><%=RS(campo).Name%> &nbsp;</td>
<%
Next
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<tr>
<%For campo=0 to num_campos-1 %>
<td align="center" width="515"><%=RS(campo)%>& nbsp;</td>
<%Next%>
</tr>
<%
RS.MoveNext
Wend
%>
<tr><td colspan="<%=num_campos%>" align="center" width="515">
<%
i=0
While i<RS.PageCount
i=i+1
%>
<b><a href="paginar.asp?pag=<%=i%>">& lt;%=i%></a></b>
<%Wend%>
&nbsp;</td></tr></tabl |