|
热门文章 |
|
|
|
相关文章 |
|
没有相关文章 |
|
|
ASP代码实现直接增加、删除ACCESS表和字段 |
来源:360个人图书馆 更新时间:2010/9/5 9:39:13 阅读次数:
字体:[大 中 小大 中 小大 中 小] 我要投稿 |
本例主要讲述如何应用Create、Drop和Alter语句增加、删除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) %> |
上一篇文章: ASP操作XML文件的主要方法和实现下一篇文章: ASP关键字高亮函数 |
|
|