在線(xiàn)客服
24小時(shí)免費(fèi)咨詢(xún)電話(huà)：18978941786
客服時(shí)間：上午9：30~下午6點(diǎn)
當(dāng)前位置：首頁(yè)>> 技術(shù)文章 >> ASP學(xué)習(xí) >> 如何應(yīng)用Create、Drop和Alter語(yǔ)句增加、刪除ACCESS表和字段
如何應(yīng)用Create、Drop和Alter語(yǔ)句增加、刪除ACCESS表和字段
收藏 分享 發(fā)布日期:2012-2-12 16:30:51 編輯:admin 文章來(lái)源: 點(diǎn)擊率:
本例主要講述如何應(yīng)用Create、Drop和Alter語(yǔ)句增加、刪除ACCESS表和字段
<%
''''''''''''''''''''''''''''''''''''
' 增加、刪除表和字段
' ├Create Table 表名(field1 type[(size)] [null|not null] [default eExpression] [primary key][,field2...])
' type:counter;text(num);char(num),varchart(num);memo;short;long;single;double;date/time;logical;currency;oleobject
' ├Drop Table 表名
' ├Alter Table 表名 Add Column field type[(size)][not null]
' ├Alter Table 表名 Drop Column field
''''''''''''''''''''''''''''''''''''
Dim objConn,strsql
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("webjxcom.mdb")
strsql = "Create table mzwucom(id counter primary key,name char(20),url char(50),hits short)"
objConn.execute(strsql)
strsql = "Alter table mzwucom add column field1 text(20)"
objConn.execute(strsql)
strsql = "Alter table mzwucom add column field2 text(20)"
objConn.execute(strsql)
strsql = "Alter table mzwucom drop column field2"
objConn.execute(strsql)
strsql = "drop table mzwucom"
objConn.execute(strsql)
%>
