Publicentral.com - alta en buscadores, registro buscadores, promocionaPromocion en buscadores y negocios online
Mostrando Codigo - Asp
Code

Asp - Mostrar todas las tablas de una consulta a db

Códigos Asp

Este ejemplo consigue mostrar todas las tablas de una consulta que realizamos a una base de datos, automaticamente, sin tener que especificar tabla alguna ni registro. Solamente debemos modificar la linea nº 2 con el nombre de la base de datos.
Visitas: 21,043 - 04/04/2004 18:09:28
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2. StrConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./base_datos.mdb")
  3. sql = "SELECT * FROM ["& Trim(tabla) & "]"
  4. Set oConn = Server.CreateObject("ADODB.Connection")
  5. oConn.Open StrConn
  6. Set RS = Server.CreateObject("ADODB.RecordSet")
  7. RS.Open sql, oConn, 3, 1
  8. Response.Write vbTab & "<TABLE cellpadding='2' BORDER='1' WIDTH='100%' bordercolor='#333333'>"
  9. Response.Write vbTab & "<TR>" & vbCrLf
  10. For I = 0 To RS.Fields.Count - 1
  11.     Response.Write "<TD align='center'"
  12.     Response.Write "style='font-family:verdana; font-size:2;'><B>"
  13.     Response.Write RS.Fields(I).Name
  14.     Response.Write "</B></TD>" & vbCrLf
  15. Next
  16. Response.Write vbTab & "</TR>" & vbCrLf
  17. Do While not RS.EOF
  18.     Response.Write vbTab & "<TR>" & vbCrLf
  19.     For I = 0 To RS.Fields.Count - 1
  20.        Response.Write "<TD align='left'"
  21.        Response.Write "style='font-family:verdana; font-size:2'><B>"
  22.        Response.Write RS.Fields(I)
  23.        if isnull(RS.Fields(I)) or RS.Fields(I) = "" then response.write "&nbsp;"
  24.        Response.Write "</B></TD>" & vbCrLf
  25.     Next
  26.     Response.Write vbTab & "</TR>" & vbCrLf
  27.     RS.MoveNext
  28. Loop
  29. Response.Write vbTab & "</TABLE>"
  30. RS.Close
  31. Set RS = Nothing
  32. oConn.Close
  33. Set oConn = Nothing
  34. %>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Mostrar todas las tablas de una consulta a db" href="http://www.tutores.org/codigo/1044/" target="_blank">Mostrar todas las tablas de una consulta a db</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Aun no existe ningun comentario para este Codigo.
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad

Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado
Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.