access數據庫的一些少用操作,ASP,創建數據庫文件,創建表,創建字段
2024-05-04 11:02:43
供稿：網友
復制代碼 代碼如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if Trim(Request.Form("TableName"))
'----設置 打開數據庫連接
dbs="Data Source="+server.mappath("database.mdb")+";Provider=Microsoft.Jet.OLEDB.4.0;"
set conn=server.createobject("ADODB.connection")
conn.open dbs
'定義ADOX，指定連接
set ADOX =server.createobject("ADOX.Catalog")
Set ADOX.ActiveConnection = conn
'創建Table,寫入屬性
Set objTable= Server.CreateObject("ADOX.Table")
'objTable.name="Table3"
objTable.name=Trim(Request.Form("TableName"))' 表單獲取
'objTable.parentCatalog = ADOX
'定義第一個字段
set objColumn = server.createObject("ADOX.Column")
'Set objColumn.parentCatalog = ADOX
objColumn.name="Column1"
objColumn.type=202 '數據類型202代表文本,
objColumn.Attributes=2 '1--必填字段，2--非必填
objTable.Columns.Append objColumn
set objColumn = nothing '清除第一個字段信息
'定義第二個字段
set objColumn = server.createObject("ADOX.Column")
'Set objColumn.parentCatalog = ADOX
objColumn.name="Column2"
objColumn.type=3
objColumn.Attributes=2
objTable.Columns.Append objColumn
set objColumn = nothing
ADOX.Tables.Append objTable
Set ADOX = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>建立表格和字段</title>
<style type="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 />
