GRID para ASP... pero uno muy especial.. donde solo envie la consulta y...

[richardinj]

Hola a todos.. tengo que presentar un tarnajo añana y estoy en apuros...
necesito un GRId muy parecido a ese DBgrid de Visual...

es decir... donde yo ejecute la consulta y me muestre el respectivo GRID...

por ejemplo

ejecuto: "select nombre as Nombre from Clientes"


y el grid debe mostrar algo asi

Nombre
_________
juan
Maria
....

y Si ejecuto asi "select nombre as Nombre, edad as Edad from Clientes"

Nombre............Edad
____________________
juan..................15
Maria.................18
...........

Como se nota si en la consulta agrego mas cosas como nombre, edad y demas.. en GRID muestra eso como encabezado....

Espero que exista una solucion como la que pido... y si lo exporta a EXCEL lloraré de felicidad...

Se los agradesco mucho...

Saludos.

[JuanRAPerez]

jajajajajajaja

como era eso de que urgente no se debia poner y cosas asi.....

[AlZuwaga]

Fijate si esto te sirve:

Código:

miTabla = RS.GetRows


Response.Write "<table border=""1"">"

'Los encabezados de la tabla...
Response.Write "<tr>"
For Each Campo in RS.Fields
Response.Write "<td align=""center""><b>" & Campo.Name & "</b></td>"
Next
Response.Write "</tr>"

'Ahora los datos...
for I = 0 to UBound(miTabla,2) 
	'Abrimos una nueva fila
	Response.Write "<TR>"
	'Desde el primero hasta el último "campo"...
	for J = 0 to Ubound(miTabla, 1)
		'Imprimo una celda para cada campo
		Response.Write "<TD>" & miTabla(J, I) & "</TD>"
	next
	Response.Write "</TR>"
next
Response.Write "</TABLE>"

No exporta nada a excel, pero te arma una tabla sin importar que campos haya en el SELECT

[richardinj]

mmm... muchas gracias AZ me sirve.. pero ahora el ¿JEFE? quiere que si doy click en la cabecera, éste se ordene alfabeticamente... y la consulta es un SP que usa 20 tablas...

mmm... quisas existe una solucion o un componente que ayude en eso...
ojala algun buen samaritano haya visto ese tipo de solucion...

[JuanRAPerez]

necesitas que pueda borrar y crear nuevos registros o solo que los vea?

[JuanRAPerez]

checa este dblist algo asi se llama yo lo use para un cliente lo que le quite fue el eliminar registros

http://livio.net/main/scripts.asp

[richardinj]

Muchas gracias a todos...

http://www.axezz.com/AxpDb/Index.aspx

[richardinj]

AZ tengo un problema con tu codigo.. no me ajustan los texto....
me salen muy pegados y de un mismo ancho....

[AlZuwaga]

No entiendo a que te referís, pero métele mano al código!
Seguramente será cosa de jugar un poco con el html que genera (cellpad y cellspace de la tabla, estilos, etc)

[richardinj]

Ya ta...
tube que violar los derechos de autor...

[JuanRAPerez]

como te quedo

[AlZuwaga]

¿violar los derechos de autor?

[richardinj]

Quedo bacan... bien ordenado....

El código originalmente es de AZ...
le meti dedo y quedo violado.. jejeje

[AlZuwaga]

ok, ahora republicalo ;)

[richardinj]

Consulta = RSTConsulta.GetRows
Response.Write "<table width='100%' border='1' bordercolor='#f0f0f0' cellspacing='4' cellpadding='0' >"

'Los encabezados de la tabla...
Response.Write "<tr align='center'>"
For Each Campo in RSTConsulta.Fields
Response.Write "<td bgcolor='#000099'><div style='font-size:11px; color:#FFFFFF'><b>&nbsp;&nbsp;" & Campo.Name & "&nbsp;&nbsp;</b></div></span></td>"
Next
Response.Write "</tr>"

o=1
'Ahora los datos...
for I = 0 to UBound(Consulta,2)
'Abrimos una nueva fila
if o=1 then
co="#f0f0f0"
o=0
else
co="#ffffff"
o=1
end if
%>
<TR>
<%

'Desde el primero hasta el último "campo"...
for J = 0 to Ubound(Consulta, 1)
'Imprimo una celda para cada campo
Response.Write "<TD bgcolor='"&co&"'> &nbsp;" & Consulta(J, I) & "&nbsp;&nbsp;</TD>"
next
Response.Write "</TR>"

next
Response.Write "</TABLE>"

ya XD