上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
增加、修改和删除ACCESS表和字段实例教程
编辑:dnawo 日期:2007-04-02
本例主要讲述如何应用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 表名 Alter 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("db1.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 Alter column field1 text(200)"
objConn.execute(strsql)
strsql = "Alter table mzwucom drop column field2"
objConn.execute(strsql)
strsql = "drop table mzwucom"
objConn.execute(strsql)
%>
''''''''''''''''''''''''''''''''''''
' 增加、修改和删除表和字段
' ├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 表名 Alter 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("db1.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 Alter column field1 text(200)"
objConn.execute(strsql)
strsql = "Alter table mzwucom drop column field2"
objConn.execute(strsql)
strsql = "drop table mzwucom"
objConn.execute(strsql)
%>
评论: 1 | 引用: 0 | 查看次数: 4433
发表评论
请登录后再发表评论！
