Mostrar tablas y campos

[vgaray]

Código para mostrar todas las tablas y sus campos (incluyendo su descripción) de alguna base de datos.

<%@ Language = VBSCRIPT %>
<% 'Option Explicit %>
<!--#include virtual="/adovbs.inc"-->
<%
'Column variables
Dim iLength, iPrecision, iScale, iDefaultValue

Dim objConn, objTableRS, objColumnRS
Set objConn = Server.CreateObject("ADODB.Connection")

'Conexion SQl server
'objConn.Open "Provider=SQLOLEDB;Data Source=Tu_servidor_sql;Initial Catalog=Tu_bd;User Id=tsuario;Password=tu_password;OLE DB Services=-2"
'Conexion Ms Access
objConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("bd.mdb")


Set objTableRS = objConn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "TABLE"))

Do While Not objTableRS.EOF
Response.Write "<TABLE BORDER=1 CELLSPACING=1><TR>"
Response.Write "<TH COLSPAN=7 BGCOLOR=#CCCCCC>"
Response.Write "<FONT SIZE=+1>"
Response.Write objTableRS("Table_Name").Value
Response.Write "</FONT></TH></TR>"
Response.Write "<TR><TD BGCOLOR=#CCCCCC>Name</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Datatype</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Length</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Precision</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Scale</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Allow Nulls</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Default Value</TD>"
Response.Write "</TR>"

Set objColumnRS = objConn.OpenSchema(adSchemaColumns, _
Array(Empty, Empty, objTableRS("Table_Name").Value))

[vgaray]

'Continuación...

Do While Not objColumnRS.EOF
iLength = objColumnRS("Character_Maximum_Length")
iPrecision = objColumnRS("Numeric_Precision")
iScale = objColumnRS("Numeric_Scale")
iDefaultValue = objColumnRS("Column_Default")

If IsNull(iLength) then iLength = " "
If IsNull(iPrecision) then iPrecision = " "
If IsNull(iScale) then iScale = " "
If IsNull(iDefaultValue) then iDefaultValue = " "

Response.Write "<TR><TD>" & objColumnRS("Column_Name") & "</TD>"
Response.Write "<TD>" & objColumnRS("Data_Type") & "</TD>"
Response.Write "<TD>" & iLength & "</TD>"
Response.Write "<TD>" & iPrecision & "</TD>"
Response.Write "<TD>" & iScale & "</TD>"
Response.Write "<TD ALIGN=CENTER><FORM><INPUT TYPE=CHECKBOX"
If objColumnRS("Is_Nullable") then
Response.Write " CHECKED"
End If
Response.Write "></FORM></TD>"
Response.Write "<TD>" & iDefaultValue & "</TD>"
Response.Write "</TR>"
objColumnRS.MoveNext
Loop

objTableRS.MoveNext

Set objColumnRS = Nothing

Response.Write "</TABLE><P>"
Loop

objTableRS.Close
Set objTableRS = Nothing

objConn.Close
Set objConn = Nothing
%>


---------------------
Tan libre como gratuito!!!

[Aston]

¡Bárbaro! :P

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Muzztein]

rs.fields( 0 ).name