本例主要讲述如何应用Create、Drop和Alter语句增加、删除ACCESS数据表和字段,代码及注释如下: <% '增加、删除数据表和字段 '增加数据表:Create Table 表名(字段名 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 字段名 type[(size)][not null] '删除字段:Alter Table 表名 Drop Column 字段名 Dim objConn,strsql Set objConn = Server.CreateObject("ADODB.Connection") objConn.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("zzksycn.mdb") 'mytable为表名,myfield为字段名 strsql = "Create table mytable(id counter primary key,name char(20),url char(50),hits short)" objConn.execute(strsql) strsql = "Alter table mytable add column myfield text(50)" objConn.execute(strsql) strsql = "Alter table mytable drop column myfield" objConn.execute(strsql) strsql = "Drop table mytable" objConn.execute(strsql) %>
|