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