複製代碼代碼如下:
<%@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/>