Foros del Web » Programando para Internet » ASP Clásico »

Mostrar Estructura de una Tabla

Estas en el tema de Mostrar Estructura de una Tabla en el foro de ASP Clásico en Foros del Web. Buenas Tardes a todos. Bueno, pues esa es mi duda, ¿Como podría mostrar la estructura de una tabla? Vamos, lo que quiero hacer es de ...
  #1 (permalink)  
Antiguo 09/02/2004, 12:55
 
Fecha de Ingreso: junio-2003
Ubicación: Asturias
Mensajes: 2.429
Antigüedad: 21 años
Puntos: 7
Mostrar Estructura de una Tabla

Buenas Tardes a todos.

Bueno, pues esa es mi duda, ¿Como podría mostrar la estructura de una tabla?

Vamos, lo que quiero hacer es de una tabla que no se cuales son los nombres de sus campos, mostrar los datos de la siguiente manera:

Nombre Campo NombreOtroCampo
Datos Datos
datos Datos
datos Datos

En fin, espero que puedan ayudarme, y desde ya gracias.
__________________
Charlie.
  #2 (permalink)  
Antiguo 09/02/2004, 14:23
Avatar de buliwyf  
Fecha de Ingreso: diciembre-2001
Ubicación: Caracas
Mensajes: 221
Antigüedad: 22 años, 5 meses
Puntos: 1
siendo RS el Recordset:

<table><tr>
<% for each item in rs.fields%>
<td> <%=item.name%></td>
<%next%> </tr>
<%do while not rs.eof%>
<tr>
<% for each item in rs.fields%>
<td> <%=item.value%></td>
<%next%>
</tr>
<%rs.movenext
loop%>
</table>
__________________
RTFM antes de preguntar...
  #3 (permalink)  
Antiguo 09/02/2004, 14:51
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
Suponiendo que tu recordset se llame "Rs", este fragmento debería hacer lo que necesitás sin problemas:

Código:
<%
' Acá va la conexión y apertura del recordset como habitualmente

miTabla = Rs.GetRows

Response.Write "<table>"

'Creamos la primer línea con los encabezados
Response.Write "<tr>"
For Each Campo in RS.Fields
Response.Write "<td align=""center""><b>" & Campo.Name & "</b></td>"
Next
Response.Write "</tr>" ' fin de los encabezados

'Ahora iteramos el array creado con el GetRows...
'para mostrar los registros:
for Variable_I = 0 to UBound(miTabla,2) 
Response.Write "<TR>"
for Variable_J = 0 to Ubound(miTabla, 1)
Response.Write "<td>" & miTabla(Variable_J, Variable_I) & "</td>"
next
Response.Write "</tr>"
next
Response.Write "</table>"
%>
  #4 (permalink)  
Antiguo 09/02/2004, 14:53
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
aunque la opción de buliwyf me parece más fácil ;)
__________________
...___...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:39.