Grilla automatica / Mostrar tabla completa
Este es un código o script es para mostrar de forma rápida y completa una tabla de access...
Lo único que hay que hacer es configurar el path en la línea de conexión y la tabla a mostrar.
El código trae incluidos unos comentarios al principio, indicando donde se deben configurar estas
cosas. Además se puede configurar de forma simple los colores, tamaño y letras que usará la grilla.
Creo que puede ser útil si queremos mostrar algo completo sin ninguna restriccion de nada...
El codigo NO depende de los nombres o la cantidad de campos que tenga la tabla
Y para los que se ponen a mirar el código, lo que puedo resaltar es la iteración por el recordset
pasando de un campo a otro con el indice del campo, y no por el nombre. Es eso justamente lo que hace este
script mas genérico y funcional con cualquier tabla sin conocer los campos =)
<%
'-----------------------------------------------------------------------------
'Grilla automatica para listar todos los campos y datos que contiene una tabla
'http://www.soloasp.com.ar/
'-----------------------------------------------------------------------------
'Simplemente Configurar el string de conexion
'y la tabla a mostrar, en las siguientes variables
StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./base.mdb")
tabla = "tabla"
'-----------------------------------------------------------------------------
'Configuraciones adionales (no obligatorias)
'Tambien podes configurar los colores de los datos
color_datos = "#000000"
color_titulos = "#FFFFFF"
'los colores de fondo de la tabla
fondo_color_datos = "#cbebde"
fondo_color_titulos = "#475f70"
c'la letra (font) de los datos
font_datos = "Verdana"
font_titulos = "Verdana"
'el tamaño (size) de la letra
size_datos = "11"
size_titulos = "11"
'-----------------------------------------------------------------------------
'No tocar mas abajo de esta linea si no se sabe lo que se hace
'-----------------------------------------------------------------------------
sql = "SELECT * FROM ["& Trim(tabla) & "]"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open StrConn
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, oConn, 3, 1
Response.Write vbTab & "<TABLE cellpadding='3' BORDER='1' WIDTH='100%' bordercolor='#000000'>"
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write "<TD align='center' bgcolor='"& fondo_color_titulos &"' "
Response.Write "style='color: "& color_titulos &"; font-family:"& font_titulos &"; font-size: "& size_titulos &"'><B>"
Response.Write RS.Fields(I).Name
Response.Write "</B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
Do While not RS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write "<TD align='left' bgcolor='"& fondo_color_datos &"' "
Response.Write "style='color: "& color_datos &"; font-family:"& font_datos &"; font-size: "& size_datos &"'><B>"
Response.Write RS.Fields(I)
if isnull(RS.Fields(I)) or RS.Fields(I) = "" then response.write " "
Response.Write "</B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
RS.MoveNext
Loop
Response.Write vbTab & "</TABLE>"
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
|
Aqui les dejo un screenshot de la tabla que genera con solo configurar 2 lineas.
Ademas estos son los colores que estan por defecto configurados...
|
