access數(shù)據(jù)庫(kù)的一些少用操作,ASP,創(chuàng)建數(shù)據(jù)庫(kù)文件,創(chuàng)建表,創(chuàng)建字段,ADOX
更新時(shí)間：2006年10月13日 00:00:00 作者：
復(fù)制代碼 代碼如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if Trim(Request.Form("TableName"))
'----設(shè)置 打開(kāi)數(shù)據(jù)庫(kù)連接
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
'創(chuàng)建Table,寫(xiě)入屬性
Set objTable= Server.CreateObject("ADOX.Table")
'objTable.name="Table3"
objTable.name=Trim(Request.Form("TableName"))' 表單獲取
'objTable.parentCatalog = ADOX
'定義第一個(gè)字段
set objColumn = server.createObject("ADOX.Column")
'Set objColumn.parentCatalog = ADOX
objColumn.name="Column1"
objColumn.type=202 '數(shù)據(jù)類(lèi)型202代表文本,
objColumn.Attributes=2 '1--必填字段，2--非必填
objTable.Columns.Append objColumn
set objColumn = nothing '清除第一個(gè)字段信息
'定義第二個(gè)字段
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> 對(duì)象的屬性和集合，可以： <br />
'使用 Name 屬性標(biāo)識(shí)列。<br />
'使用 Type 屬性指定列的數(shù)據(jù)類(lèi)型。<br />
'使用 Attributes 屬性確定列是否為固定長(zhǎng)度，或者是否能包含 Null 值。<br />
'使用 DefinedSize 屬性指定列的最大尺寸。<br />
'對(duì)于數(shù)字?jǐn)?shù)據(jù)值，使用 NumericScale 屬性指定范圍。<br />
'對(duì)于數(shù)字?jǐn)?shù)據(jù)值，使用 Precision 屬性指定最大精度。<br />
'使用 ParentCatalog 屬性指定列的父 Catalog。<br />
'對(duì)于鍵列，使用 RelatedColumn 屬性指定相關(guān)表中相關(guān)列的名稱(chēng)。<br />
'對(duì)于索引列，使用 SortOrder 屬性指定排序順序是升序還是降序。</p>
<p>數(shù)據(jù)類(lèi)型如下表：</p>
<TABLE border=1 cellpadding=4 cellspacing=4 cols=4 frame=box rules=all width=100%>
<TR VALIGN="top">
<TH width=32%>常量</TH>
<TH width=13%>值</TH>
<TH width=55%>說(shuō)明</TH>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>AdArray<BR>
</B>（不適用于 ADOX。）</TD>
<TD class=T width=13%>0x2000
<P class=T></P>
</TD>
<TD class=T width=55%>一個(gè)標(biāo)志值，通常與另一個(gè)數(shù)據(jù)類(lèi)型常量組合，指示該數(shù)據(jù)類(lèi)型的數(shù)組。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adBigInt</B>
<P class=T></P>
</TD>
<TD class=T width=13%>20</TD>
<TD class=T width=55%>指示一個(gè)八字節(jié)的有符號(hào)整數(shù) (DBTYPE_I8)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adBinary</B>
<P class=T></P>
</TD>
<TD class=T width=13%>128</TD>
<TD class=T width=55%>指示一個(gè)二進(jìn)制值 (DBTYPE_BYTES)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adBoolean</B>
<P class=T></P>
</TD>
<TD class=T width=13%>11</TD>
<TD class=T width=55%>指示一個(gè)布爾值 (DBTYPE_BOOL)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adBSTR</B>
<P class=T></P>
</TD>
<TD class=T width=13%>8</TD>
<TD class=T width=55%>指示以 Null 終止的字符串 (Unicode) (DBTYPE_BSTR)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adChapter</B>
<P class=T></P>
</TD>
<TD class=T width=13%>136</TD>
<TD class=T width=55%>指示一個(gè)四字節(jié)的子集值，標(biāo)識(shí)子<A HREF="mddefrowset.htm">行集合</A>中的行 (DBTYPE_HCHAPTER)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adChar</B>
<P class=T></P>
</TD>
<TD class=T width=13%>129</TD>
<TD class=T width=55%>指示一個(gè)字符串值 (DBTYPE_STR)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adCurrency</B>
<P class=T></P>
</TD>
<TD class=T width=13%>6</TD>
<TD class=T width=55%>指示一個(gè)貨幣值 (DBTYPE_CY)。貨幣是一個(gè)定點(diǎn)數(shù)字，小數(shù)點(diǎn)右側(cè)有四位數(shù)字。該值存儲(chǔ)為八字節(jié)、范圍為 10,000 的有符號(hào)整數(shù)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adDate</B>
<P class=T></P>
</TD>
<TD class=T width=13%>7</TD>
<TD class=T width=55%>指示日期值 (DBTYPE_DATE)。日期保存為雙精度數(shù)，數(shù)字的整數(shù)部分是從 1899 年 12 月 30 日算起的天數(shù)，小數(shù)部分是一天當(dāng)中的片段時(shí)間。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adDBDate</B>
<P class=T></P>
</TD>
<TD class=T width=13%>133</TD>
<TD class=T width=55%>指示日期值 (yyyymmdd) (DBTYPE_DBDATE)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adDBTime</B>
<P class=T></P>
</TD>
<TD class=T width=13%>134</TD>
<TD class=T width=55%>指示時(shí)間值 (hhmmss) (DBTYPE_DBTIME)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adDBTimeStamp</B>
<P class=T></P>
</TD>
<TD class=T width=13%>135</TD>
<TD class=T width=55%>指示日期/時(shí)間戳（yyyymmddhhmmss 加十億分之一的小數(shù)）(DBTYPE_DBTIMESTAMP)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adDecimal</B>
<P class=T></P>
</TD>
<TD class=T width=13%>14</TD>
<TD class=T width=55%>指示具有固定精度和范圍的確切數(shù)字值 (DBTYPE_DECIMAL)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adDouble</B>
<P class=T></P>
</TD>
<TD class=T width=13%>5</TD>
<TD class=T width=55%>指示一個(gè)雙精度浮點(diǎn)值 (DBTYPE_R8)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adEmpty</B>
<P class=T></P>
</TD>
<TD class=T width=13%>0</TD>
<TD class=T width=55%>指定沒(méi)有值 (DBTYPE_EMPTY)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adError</B>
<P class=T></P>
</TD>
<TD class=T width=13%>10</TD>
<TD class=T width=55%>指示一個(gè) 32 位的錯(cuò)誤代碼 (DBTYPE_ERROR)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adFileTime</B>
<P class=T></P>
</TD>
<TD class=T width=13%>64</TD>
<TD class=T width=55%>指示一個(gè) 64 位的值，表示從 1601 年 1 月 1 日開(kāi)始的 100 個(gè)十億分之一秒間隔的數(shù)量 (DBTYPE_FILETIME)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adGUID</B>
<P class=T></P>
</TD>
<TD class=T width=13%>72</TD>
<TD class=T width=55%>指示全局唯一標(biāo)識(shí)符 (GUID) (DBTYPE_GUID)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adIDispatch</B>
<P class=T></P>
</TD>
<TD class=T width=13%>9</TD>
<TD class=T width=55%>指示指向 COM 對(duì)象上 <B>IDispatch</B> 接口的指針 (DBTYPE_IDISPATCH)。
<P class=T><B>注意 </B>ADO 目前不支持這種數(shù)據(jù)類(lèi)型。使用它可能導(dǎo)致不可預(yù)料的結(jié)果。</P>
</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adInteger</B>
<P class=T></P>
</TD>
<TD class=T width=13%>3</TD>
<TD class=T width=55%>指示一個(gè)四字節(jié)的有符號(hào)整數(shù) (DBTYPE_I4)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adIUnknown</B>
<P class=T></P>
</TD>
<TD class=T width=13%>13</TD>
<TD class=T width=55%>指示指向 COM 對(duì)象上 <B>IUnknown</B> 接口的指針 (DBTYPE_IUNKNOWN)。
<P class=T><B>注意 </B>ADO 目前不支持這種數(shù)據(jù)類(lèi)型。使用它可能導(dǎo)致不可預(yù)料的結(jié)果。</P>
</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adLongVarBinary</B>
<P class=T></P>
</TD>
<TD class=T width=13%>205</TD>
<TD class=T width=55%>指示一個(gè)長(zhǎng)二進(jìn)制值（僅限于 <B>Parameter</B> 對(duì)象）。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adLongVarChar</B>
<P class=T></P>
</TD>
<TD class=T width=13%>201</TD>
<TD class=T width=55%>指示一個(gè)長(zhǎng)字符串值（僅限于 <B>Parameter</B> 對(duì)象）。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adLongVarWChar</B>
<P class=T></P>
</TD>
<TD class=T width=13%>203</TD>
<TD class=T width=55%>指示一個(gè)以 Null 終止的長(zhǎng) Unicode 字符串值（僅限于 <B>Parameter</B> 對(duì)象）。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adNumeric</B>
<P class=T></P>
</TD>
<TD class=T width=13%>131</TD>
<TD class=T width=55%>指示具有固定精度和范圍的確切數(shù)字值 (DBTYPE_NUMERIC)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adPropVariant</B>
<P class=T></P>
</TD>
<TD class=T width=13%>138</TD>
<TD class=T width=55%>指示一個(gè) Automation PROPVARIANT (DBTYPE_PROP_VARIANT)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adSingle</B>
<P class=T></P>
</TD>
<TD class=T width=13%>4</TD>
<TD class=T width=55%>指示一個(gè)單精度浮點(diǎn)值 (DBTYPE_R4)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adSmallInt</B>
<P class=T></P>
</TD>
<TD class=T width=13%>2</TD>
<TD class=T width=55%>指示一個(gè)雙字節(jié)的有符號(hào)整數(shù) (DBTYPE_I2)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adTinyInt</B>
<P class=T></P>
</TD>
<TD class=T width=13%>16</TD>
<TD class=T width=55%>指示一個(gè)單字節(jié)的有符號(hào)整數(shù) (DBTYPE_I1)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adUnsignedBigInt</B>
<P class=T></P>
</TD>
<TD class=T width=13%>21</TD>
<TD class=T width=55%>指示一個(gè)八字節(jié)的無(wú)符號(hào)整數(shù) (DBTYPE_UI8)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adUnsignedInt</B>
<P class=T></P>
</TD>
<TD class=T width=13%>19</TD>
<TD class=T width=55%>指示一個(gè)四字節(jié)的無(wú)符號(hào)整數(shù) (DBTYPE_UI4)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adUnsignedSmallInt</B>
<P class=T></P>
</TD>
<TD class=T width=13%>18</TD>
<TD class=T width=55%>指示一個(gè)雙字節(jié)的無(wú)符號(hào)整數(shù) (DBTYPE_UI2)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adUnsignedTinyInt</B>
<P class=T></P>
</TD>
<TD class=T width=13%>17</TD>
<TD class=T width=55%>指示一個(gè)單字節(jié)的無(wú)符號(hào)整數(shù) (DBTYPE_UI1)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adUserDefined</B>
<P class=T></P>
</TD>
<TD class=T width=13%>132</TD>
<TD class=T width=55%>指示一個(gè)用戶(hù)定義的變量 (DBTYPE_UDT)。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adVarBinary</B>
<P class=T></P>
</TD>
<TD class=T width=13%>204</TD>
<TD class=T width=55%>指示一個(gè)二進(jìn)制值（僅限于 <B>Parameter</B> 對(duì)象）。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adVarChar</B>
<P class=T></P>
</TD>
<TD class=T width=13%>200</TD>
<TD class=T width=55%>指示一個(gè)字符串值（僅限于 <B>Parameter</B> 對(duì)象）。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adVariant</B>
<P class=T></P>
</TD>
<TD class=T width=13%>12</TD>
<TD class=T width=55%>指示一個(gè) Automation <B>Variant</B> (DBTYPE_VARIANT)。
<P class=T><B>注意 </B>ADO 目前不支持這種數(shù)據(jù)類(lèi)型。使用它可能導(dǎo)致不可預(yù)料的結(jié)果。</P>
</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adVarNumeric</B>
<P class=T></P>
</TD>
<TD class=T width=13%>139</TD>
<TD class=T width=55%>指示一個(gè)數(shù)字值（僅限于 <B>Parameter</B> 對(duì)象）。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adVarWChar</B>
<P class=T></P>
</TD>
<TD class=T width=13%>202</TD>
<TD class=T width=55%>指示一個(gè)以 Null 終止的 Unicode 字符串（僅限于 <B>Parameter</B> 對(duì)象）。</TD>
</TR>
<TR VALIGN="top">
<TD class=T width=32%><B>adWChar</B>
<P class=T></P>
</TD>
<TD class=T width=13%>130</TD>
<TD class=T width=55%>指示一個(gè)以 Null 終止的 Unicode 字符串 (DBTYPE_WSTR)。</TD>
</TR>
</TABLE>
</body>
</html>
在已有的表，創(chuàng)建字段。
復(fù)制代碼 代碼如下:
<%
dbs="Data Source="+server.mappath("database.mdb")+";Provider=Microsoft.Jet.OLEDB.4.0;"
set conn=server.createobject("ADODB.connection")
conn.open dbs
set cat =server.createobject("ADOX.Catalog")
Set cat.ActiveConnection = conn
set tbl=cat.tables("bbs")
set objColumn = server.createObject("ADOX.Column")
Set objColumn.parentCatalog = cat
objColumn.name = "time1"
objColumn.type = "130"
objColumn.attributes=2
tbl.columns.append objColumn
set objTable = nothing
set objCat = nothing
%>
刪除字段和修改字段
復(fù)制代碼 代碼如下:
<%
dbs="Data Source="+server.mappath("database.mdb")+";Provider=Microsoft.Jet.OLEDB.4.0;"
set conn=server.createobject("ADODB.connection")
conn.open dbs
set cat =server.createobject("ADOX.Catalog")
Set cat.ActiveConnection = conn
set tbl=cat.tables("bbs")
tbl.columns.delete "time"
set field=tbl.columns("time2")
field.name="time"
%>
創(chuàng)建數(shù)據(jù)庫(kù)文件
復(fù)制代碼 代碼如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
dim databasename '定義數(shù)據(jù)庫(kù)名稱(chēng)
databasename="database.mdb" '數(shù)據(jù)庫(kù)名稱(chēng)
dim databasepath '定義數(shù)據(jù)庫(kù)存放路徑
databasepath="E:\張偉\模塊開(kāi)發(fā)\新聞模塊\" '數(shù)據(jù)庫(kù)絕對(duì)路徑
dim databasever '定義數(shù)據(jù)庫(kù)版本 2000 或者 97
databasever = "2000"
Function Createdfile(FilePath,FileName,Ver)
Dim Ca,dbver
select case ver
case "97"
dbver = "3.51"
case "2000"
dbver = "4.0"
end select
if dbver <> "" then
Set Ca = Server.CreateObject("ADOX.Catalog")
call Ca.Create("Provider=Microsoft.Jet.OLEDB." & dbver & ";Data Source=" & filepath & filename)
end if
End Function
Createdfile databasepath,databasename,databasever '創(chuàng)建數(shù)據(jù)庫(kù)
%>
相關(guān)文章
可以對(duì)表格的各列進(jìn)行排序的函數(shù)類(lèi)2008-10-10
垃圾引用防治補(bǔ)丁以及發(fā)送引用修正補(bǔ)丁的自動(dòng)安裝程序
垃圾引用防治補(bǔ)丁以及發(fā)送引用修正補(bǔ)丁的自動(dòng)安裝程序...2007-02-02
asp在線(xiàn)執(zhí)行sql語(yǔ)句的函數(shù)
好多asp后臺(tái)都提供了一個(gè)可以在線(xiàn)執(zhí)行sql語(yǔ)句的功能，今天看到了，用到了事務(wù)管理，就是出錯(cuò)了就回滾的操作，不錯(cuò)，建議大家看看，以后能用的到2008-03-03
許多ASP程序員都有過(guò)執(zhí)行數(shù)據(jù)庫(kù)查詢(xún)，然后將查詢(xún)結(jié)果用HTML表格的形式顯示出來(lái)的經(jīng)歷。通常我們是這么做的：2008-04-04
在ASP中不用模板生成HTML靜態(tài)頁(yè)直接生成.html頁(yè)面
有沒(méi)有辦法不用模板，如一個(gè)正常的htmer.asp頁(yè)面，直接生成為htmer.html頁(yè)面呢？當(dāng)然是可以的，而且非常簡(jiǎn)單，今天就教大家在ASP中不用模板生成HTML靜態(tài)頁(yè)的方法2014-09-09
Asp中Server.ScriptTimeOut屬性需要注意的一點(diǎn)分析
Server.ScriptTimeout 這個(gè)屬性給定Asp腳本執(zhí)行的最大時(shí)間，如果asp程序的運(yùn)行時(shí)間超過(guò)了這個(gè)屬性規(guī)定的值，Asp就會(huì)報(bào)錯(cuò)。2011-06-06
Microsoft JET Database Engine 錯(cuò)誤 ''80004005'' 未指定的錯(cuò)誤的完美解決方法
Microsoft JET Database Engine 錯(cuò)誤 ''80004005'' 未指定的錯(cuò)誤的完美解決方法...2007-03-03
值得收藏的一些HTML、JavaScript、ASP代碼...2006-10-10
你是否有時(shí)想知道什么人訪問(wèn)你的站點(diǎn)，什么時(shí)間，IP地址等。下面我就這個(gè)問(wèn)題向大家來(lái)闡述一下。2011-02-02
在基于瀏覽器/服務(wù)器的應(yīng)用環(huán)境中，在瀏覽器中上傳各種類(lèi)型的文件一直是困擾用戶(hù)文件管理應(yīng)用的難題之一。常用的實(shí)現(xiàn)方法是利用在RFC1867中引入的一個(gè)新類(lèi)型：File以及ADO Stream對(duì)象。本文對(duì)上述上傳方法及實(shí)現(xiàn)原理作了論述，并給出了具體解決實(shí)例。2015-09-09