asp对表access表字段的操作

2014/11/8 1:52:071337 阅读

删除字段

dim cmd 
set cmd=server.createobject ("adodb.command") 
set cmd.activeconnection =conn 
Sqlj="alter table product drop column "&zd&""
cmd.commandtext =sqlj
cmd.execute sqlj 



增加字段


dim cmd 
set cmd=server.createobject ("adodb.command") 
set cmd.activeconnection =conn 
Sqlj="alter table 表名 add column 字段 varchar(20)"
cmd.commandtext =sqlj
cmd.execute sqlj 


检测字段是否存在：


sqlbb="select   *   from   表名"
Set   RSbb=Conn.Execute(sqlbb)
for   i   =   0   to   RSbb.Fields.Count   -   1
if   RSbb.Fields(i).Name="字段"   then
'处理方式
Exit For
end   if
Next
rsbb.close
set rsbb=nothing

下一条：PHPCMSv9专题静态路径修改

上一条：vb asp截取ip前三段