木子屋
 

标题: 增加、修改和删除ACCESS表和字段实例教程

作者: dnawo

日期: 2007-04-02 08:50 AM

分类: Web编程

内容: 本例主要讲述如何应用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)
%>

+ 查看当前日志评论 (1)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms

标题: 增加、修改和删除ACCESS表和字段实例教程

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.031 ms