¿Cómo se puede recuperar el esquema  básico de una tabla de una base de datos Access desde ASP? Pues sencillo.


<%

Public Function TablaRecuperarEsquema( strTb )

Dim columnTypes(205)
strProp = “”

columnTypes(0) = “Empty”
columnTypes(2) = “SmallInt”
columnTypes(3) = “Integer”
columnTypes(4) = “Real”
columnTypes(5) = “Double”
columnTypes(6) = “Currency”
columnTypes(7) = “Date”
columnTypes(8 ) = “BSTR”
columnTypes(9) = “IDispatch”
columnTypes(10) = “Error Code”
columnTypes(11) = “Boolean”
columnTypes(12) = “Variant”
columnTypes(13) = “IUnknown”
columnTypes(14) = “Decimal”
columnTypes(16) = “TinyInt”
columnTypes(17) = “Unsigned TinyInt (BYTE)”
columnTypes(18 ) = “Unsigned Small Int (WORD)”
columnTypes(19) = “Unsigned Int (DWORD)”
columnTypes(20) = “BigInt”
columnTypes(21) = “Unsigned Big Int”
columnTypes(64) = “FileTime”
columnTypes(72) = “Unique Identifier (GUID)”
columnTypes(128 ) = “Binary”
columnTypes(129) = “Char”
columnTypes(130) = “nChar”
columnTypes(131) = “Numeric”
columnTypes(132) = “User Defined (UDT)”
columnTypes(133) = “DBDate”
columnTypes(134) = “DBTime”
columnTypes(135) = “SmallDateTime”
columnTypes(136) = “Chapter”
columnTypes(138 ) = “Automation (PropVariant)”
columnTypes(139) = “VarNumeric”
columnTypes(200) = “VarChar”
columnTypes(201) = “Text”
columnTypes(202) = “nVarChar”
columnTypes(203) = “nText”
columnTypes(204) = “VarBinary”
columnTypes(205) = “Image”

Set adoxConn = CreateObject(“ADOX.Catalog”)
Set adodbConn = CreateObject(“ADODB.Connection”)

adodbConn.Open ConexionDatosGet()
adoxConn.ActiveConnection = adodbConn

Set table = adoxConn.Tables( strTb )

For Each column In table.Columns
strProp = strProp & column.name & ” [" & columnTypes(column.type)
ct = column.type

If ct = 129 or ct = 130 or ct = 200 or ct = 202 then
' definedSize only works in SQL Server
strProp = strProp & "(" & column.definedSize & ")"
End If

strProp = strProp & "]<br>”
Next

Set table = nothing
adodbConn.close
Set adodbConn = nothing
Set adoxConn = nothing

TablaRecuperarEsquema = strProp
End Function

Response.Write( TablaRecuperarEsquema( Request(“tabla”) ) )

%>