您现在的位置是：网站首页> 编程资料编程资料
如何显示数据库的结构？_编程10000问_
2023-05-25
285人已围观
简介 如何显示数据库的结构？_编程10000问_
星河影动之查看数据库结构
<%
on error resume next
table=request("table")
if table<>"" then
response.write "数据表:"&table
Set primary = con.OpenSchema(adSchemaPrimaryKeys, _
Array(empty, empty, table))
if primary("COLUMN_NAME")<>"" then
primarykey=primary("COLUMN_NAME")
end if
primary.close
set primary=nothing
%>
字段 | 类型 | 设定大小 | 允许空值 | 自动编号 | 主键 |
|---|---|---|---|---|---|
<%=rs(i).name%>
' 字段名. | <% field_type=rs(i).type select case field_type case adEmpty typ = "Empty" case adTinyInt typ = "TinyInt" case adSmallInt typ = "SmallInt" case adInteger typ = "Integer" case adBigInt typ = "BigInt" case adUnsignedTinyInt typ = "UnsignedTinyInt" case adUnsignedSmallInt typ = "UnsignedSmallInt" case adUnsignedInt typ = "UnsignedInt" case adUnsignedBigInt typ = "UnsignedBigInt" case adSingle typ = "Single" case adDouble typ = "Double" case adCurrency typ = "Currency" case adDecimal typ = "Decimal" case adNumeric typ = "Numeric" case adBoolean typ = "Boolean" case adError typ = "Error" case adUserDefined typ = "UserDefined" case adVariant typ = "Variant" case adIDispatch typ = "IDispatch" case adIUnknown typ = "IUnknown" case adGUID typ = "GUID" case adDATE typ = "DATE" case adDBDate typ = "DBDate" case adDBTime typ = "DBTime" case adDBTimeStamp typ = "DBTimeStamp" case adBStr typ = "BStr" case adChar typ = "Char" case adVarChar typ = "VarChar" case adLongVarChar typ = "LongVarChar" case adWChar typ = "WChar" case adVarWChar typ = "VarWChar" case adLongVarWChar typ = "LongVarWChar" case adBinary typ = "Binary" case adVarBinary typ = "VarBinary" case adLongVarBinary typ = "LongVarBinary" case adChapter typ = "Chapter" case adPropVariant typ = "PropVariant" case else typ = "Unknown" ----------------------------------------------------------------------------------------------------------------
end select | <%=rs(i).definedsize%> | <% attrib=rs(i).attributes if (attrib and adFldIsNullable)=0 then response.write "No" else response.write "Yes" end if %> | <%if rs(i).Properties("ISAUTOINCREMENT") = True then%> <%else%> <%end if%> | <%if rs(i).name=primarykey then%> <%else%> <%end if%> |
[1]
