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