复制代码代码如下:
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
ifTrim(Request.Form("TableName"))
'----设置打开数据库连接
dbs="DataSource="+server.mappath("database.mdb")+";Provider=Microsoft.Jet.OLEDB.4.0;"
setconn=server.createobject("ADODB.connection")
conn.opendbs
'定义ADOX，指定连接
setADOX=server.createobject("ADOX.Catalog")
SetADOX.ActiveConnection=conn
'创建Table,写入属性
SetobjTable=Server.CreateObject("ADOX.Table")
'objTable.name="Table3"
objTable.name=Trim(Request.Form("TableName"))'表单获取
'objTable.parentCatalog=ADOX
'定义第一个字段
setobjColumn=server.createObject("ADOX.Column")
'SetobjColumn.parentCatalog=ADOX
objColumn.name="Column1"
objColumn.type=202'数据类型202代表文本,
objColumn.Attributes=2'1--必填字段，2--非必填
objTable.Columns.AppendobjColumn
setobjColumn=nothing'清除第一个字段信息
'定义第二个字段
setobjColumn=server.createObject("ADOX.Column")
'SetobjColumn.parentCatalog=ADOX
objColumn.name="Column2"
objColumn.type=3
objColumn.Attributes=2
objTable.Columns.AppendobjColumn
setobjColumn=nothing
ADOX.Tables.AppendobjTable
SetADOX=Nothing
%>
<!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<htmlxmlns="http://www.w3.org/1999/xhtml">
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/>
<title>建立表格和字段</title>
<styletype="text/css">
<!--
body,td,th{
font-size:12px;
}
-->
</style></head>
<body>
<p>'使用<strong>Column</strong>对象的属性和集合，可以：<br/>
'使用Name属性标识列。<br/>
'使用Type属性指定列的数据类型。<br/>
'使用Attributes属性确定列是否为固定长度，或者是否能包含Null值。<br/>
'使用DefinedSize属性指定列的最大尺寸。<br/>
'对于数字数据值，使用NumericScale属性指定范围。<br/>
'对于数字数据值，使用Precision属性指定最大精度。<br/>
'使用ParentCatalog属性指定列的父Catalog。<br/>