Ver Mensaje Individual
  #2 (permalink)  
Antiguo 15/12/2009, 13:07
alpe2000
 
Fecha de Ingreso: enero-2008
Ubicación: Málaga - España
Mensajes: 346
Antigüedad: 17 años, 2 meses
Puntos: 13
Respuesta: Aportación: consultar tablas de Access online

Le hice una pequeña modificación:

Código ASP:
Ver original
  1. <%
  2. If Request("tabla") = "" then
  3. tabla = Request.Form("tabla")
  4. else
  5. tabla = Request("tabla")
  6. end if%>
  7. <form action="consultatabla.asp" method="post">
  8. Tabla a consultar:<br>
  9. <input name="tabla" type="text" value="<%= tabla %>"><br><br>
  10. <input name="" type="submit"><br>
  11. </form>
  12. <%
  13.  
  14.  
  15. 'Simplemente Configurar el string de conexion'
  16. 'y la tabla a mostrar, en las siguientes variables'
  17. StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/[COLOR="Red"][B]RUTA de la base de datos[/B][/COLOR]")
  18. Set oConn = Server.CreateObject("ADODB.Connection")
  19. oConn.Open StrConn
  20.  
  21.  
  22. if tabla <> "" then
  23.  
  24. '-----------------------------------------------------------------------------'
  25. 'Configuraciones visuales (no obligatorias)'
  26. color_datos = "#000000"
  27. color_titulos = "#FFFFFF"
  28. 'los colores de fondo de la tabla'
  29. fondo_color_datos = "#cbebde"
  30. fondo_color_titulos = "#475f70"
  31. 'la letra (font) de los datos'
  32. font_datos = "Verdana"
  33. font_titulos = "Verdana"
  34. 'el tamaño (size) de la letra'
  35. size_datos = "11"
  36. size_titulos = "11"
  37. '-----------------------------------------------------------------------------'
  38. 'No tocar mas abajo de esta linea si no se sabe lo que se hace'
  39. '-----------------------------------------------------------------------------'
  40.  
  41. sql = "SELECT * FROM ["& Trim(tabla) & "]"
  42.  
  43. Set RS = Server.CreateObject("ADODB.RecordSet")
  44. RS.Open sql, oConn, 3, 1
  45. Response.Write vbTab & "<TABLE cellpadding='3' BORDER='1' WIDTH='100%' bordercolor='#000000'>"
  46. Response.Write vbTab & "<TR>" & vbCrLf
  47. For I = 0 To RS.Fields.Count - 1
  48.     Response.Write "<TD align='center' bgcolor='"& fondo_color_titulos &"' "
  49.     Response.Write "style='color: "& color_titulos &"; font-family:"& font_titulos &"; font-size: "& size_titulos &"'><B>"
  50.     Response.Write RS.Fields(I).Name
  51.     Response.Write "</B></TD>" & vbCrLf
  52. Next 'I
  53. Response.Write vbTab & "</TR>" & vbCrLf
  54. Do While not RS.EOF
  55.     Response.Write vbTab & "<TR>" & vbCrLf
  56.     For I = 0 To RS.Fields.Count - 1
  57.        Response.Write "<TD align='left' bgcolor='"& fondo_color_datos &"' "
  58.        Response.Write "style='color: "& color_datos &"; font-family:"& font_datos &"; font-size: "& size_datos &"'><B>"
  59.        Response.Write RS.Fields(I)
  60.        if isnull(RS.Fields(I)) or RS.Fields(I) = "" then response.write "&nbsp;"
  61.        Response.Write "</B></TD>" & vbCrLf
  62.     Next 'I
  63.     Response.Write vbTab & "</TR>" & vbCrLf
  64.     RS.MoveNext
  65. Loop
  66. Response.Write vbTab & "</TABLE>"
  67. RS.Close
  68. Set RS = Nothing
  69. oConn.Close
  70. Set oConn = Nothing
  71.  
  72. end if
  73.  
  74. '-----------------------------------------------------------------------------'
  75. 'Lista de tablas'
  76. '-----------------------------------------------------------------------------'
  77. Response.Write "<BR><BR><BR><BR>"
  78. Const adSchemaTables = 20
  79. Set oConn = Server.CreateObject("ADODB.Connection")
  80. oConn.Open StrConn
  81. strFiltro = Array(Empty,Empty,Empty,"TABLE")
  82. set rstSchema = oConn.OpenSchema(adSchemaTables,strFiltro)
  83. Do Until rstSchema.EOF%>
  84. Tabla: <a href="?tabla=<%=rstSchema("TABLE_NAME")%>"><%=rstSchema("TABLE_NAME")%></a><br/>
  85. <%rstSchema.MoveNext
  86. Loop
  87. %>

Ahora donde mostraba el nombre de la tabla es un enlace que pinchando abre la página con la tabla, sin tener que escribirla en la caja de texto.