如何显示数据库的结构?
如何显示数据库的结构?
发布时间:2016-12-29 来源:查字典编辑
摘要:星河影动之查看数据库结构

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

</head>

<body bgcolor="#CCCCCC" text="#000000">

<h2 align="center">星河影动之查看数据库结构</h2>

<p>

<%

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

%>

</p>

<center>

<table width="650" border="1" cellpadding="0" cellspacing="0">

<tr bgcolor="#CCCCCC">

<th width="61">

<div align="center">字段</div>

</th>

<th width="131">

<div align="center">类型</div>

</th>

<th width="105">

<div align="center">设定大小</div>

</th>

<th width="69">

<div align="center">允许空值</div>

</th>

<th width="69">

自动编号

</th>

<th width="81">主键</th>

</tr>

<%sql="select * from ["&table&"] "

set rs=con.execute(sql)

for i=0 to rs.fields.count-1

%>

<tr bgcolor="#CCCCCC">

<td height="2" width="61">

<div align="center"><%=rs(i).name%></div>

----------------------------------------------------------------------------------------------------------------

' 字段名.

</td>

<td height="2" width="131">

<div align="center">

<%

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

response.write typ%>

' 字段类型.

</div>

</td>

<td height="2" width="105">

<div align="center"><%=rs(i).definedsize%></div>

</td>

' 字段长度.

<td height="2" width="69">

<div align="center">

<%

attrib=rs(i).attributes

if (attrib and adFldIsNullable)=0 then

response.write "No"

else

response.write "Yes"

end if

%>

</div>

</td>

----------------------------------------------------------------------------------------------------------------

' 是否允许空值.

<td height="2" width="69">

<div align="center">

<%if rs(i).Properties("ISAUTOINCREMENT") = True then%>

<input type="checkbox" name="autoincrement" value="checkbox" checked>

<%else%>

<input type="checkbox" name="autoincrement" value="checkbox">

<%end if%>

</div>

</td>

----------------------------------------------------------------------------------------------------------------

' 是否为自动编号.

<td height="2" width="81">

<div align="center">

<%if rs(i).name=primarykey then%>

<input type="checkbox" name="primarykey" value="checkbox" checked>

<%else%>

<input type="checkbox" name="primarykey" value="checkbox">

<%end if%>

</div>

</td>

----------------------------------------------------------------------------------------------------------------

' 主健.

</tr>

<%next %>

</table>

</center>

[1]

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新编程10000问学习
热门编程10000问学习
编程开发子分类