str="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("kong.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.Open str
创建ACCESS表或添加字段
sql="create table mytb (id autoincrement primary key,文本型 varchar(10) default hbh,长整型 Int default 123,整型 SmallInt,备注型 MEMO,备注型2 Note,日期 date default Now(),是否 yesno)"
例：
创建表myta及字段
sql="create table mytb (ID autoincrement primary key,姓名 varchar(8),年龄 SmallInt,文章 Note,日期 date default Now())"
在现有的表myta中增加字段
sql="alter table mytb add column 地址 varchar(200)"
修改字段
sql="alter table mytb Alter column 地址 Note"
删除字段
sql="alter table mytb drop 地址"
删除表
sql="Drop table mytb"
conn.execute(sql)
|
