asp對表access表字段的操作

2014/11/8 1:52:071347 閱讀

刪除字段

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前三段