验证SQL 保留字或者关键字
来源:互联网 发布:企业家it 编辑:程序博客网 时间:2024/05/29 08:39
<script language="VBScript">
<!--
function keyword(str)
x="action,add,aggregate,all,alter,after,and,as,asc,avg,avg_row_length,auto_increment,between,bigint,bit,binary,blob,bool,both,by,cascade,case,char,character,change,check,checksum,column,columns,comment,constraint,create,cross,current_date,current_time,current_timestamp,data,database,databases,date,datetime,day,day_hour,day_minute,day_second,dayofmonth,dayofweek,dayofyear,dec,decimal,default,delayed,delay_key_write,delete,desc,describe,distinct,distinctrow,double,drop,end,else,escape,escaped,enclosed,enum,explain,exists,fields,file,first,float,float4,float8,flush,foreign,from,for,full,function,global,grant,grants,group,having,heap,high_priority,hour,hour_minute,hour_second,hosts,identified,ignore,in,index,infile,inner,insert,insert_id,int,integer,interval,int1,int2,int3,int4,int8,into,if,is,isam,join,key,keys,kill,last_insert_id,leading,left,length,like,lines,limit,load,local,lock,logs,long,longblob,longtext,low_priority,max,max_rows,match,mediumblob,mediumtext,mediumint,middleint,min_rows,minute,minute_second,modify,month,monthname,myisam,natural,numeric,no,not,null,on,optimize,option,optionally,or,order,outer,outfile,pack_keys,partial,password,precision,primary,procedure,process,processlist,privileges,read,real,references,reload,regexp,rename,replace,restrict,returns,revoke,rlike,row,rows,second,select,set,show,shutdown,smallint,soname,sql_big_tables,sql_big_selects,sql_low_priority_updates,sql_log_off,sql_log_update,sql_select_limit,sql_small_result,sql_big_result,sql_warnings,straight_join,starting,status,string,table,tables,temporary,terminated,text,then,time,timestamp,tinyblob,tinytext,tinyint,trailing,to,type,use,using,unique,unlock,unsigned,update,usage,values,varchar,variables,varying,varbinary,with,write,when,where,year,year_month,zerofill"
y=split(x,",")
for i=0 to ubound(y)
if str=y(i) then
keyword=y(i)&"属于保留字"
exit for
else
keyword=str&"不属于保留字"
end if
next
ERASE y
msgbox(keyword)
end function
Sub Button1_OnClick
Dim TheForm
Set TheForm = Document.ValidForm
If len(trim(TheForm.Text1.Value))<=0 Then
MsgBox "请输入"
Else
keyword(TheForm.Text1.Value)
End If
End Sub
-->
</script>
<!--
function keyword(str)
x="action,add,aggregate,all,alter,after,and,as,asc,avg,avg_row_length,auto_increment,between,bigint,bit,binary,blob,bool,both,by,cascade,case,char,character,change,check,checksum,column,columns,comment,constraint,create,cross,current_date,current_time,current_timestamp,data,database,databases,date,datetime,day,day_hour,day_minute,day_second,dayofmonth,dayofweek,dayofyear,dec,decimal,default,delayed,delay_key_write,delete,desc,describe,distinct,distinctrow,double,drop,end,else,escape,escaped,enclosed,enum,explain,exists,fields,file,first,float,float4,float8,flush,foreign,from,for,full,function,global,grant,grants,group,having,heap,high_priority,hour,hour_minute,hour_second,hosts,identified,ignore,in,index,infile,inner,insert,insert_id,int,integer,interval,int1,int2,int3,int4,int8,into,if,is,isam,join,key,keys,kill,last_insert_id,leading,left,length,like,lines,limit,load,local,lock,logs,long,longblob,longtext,low_priority,max,max_rows,match,mediumblob,mediumtext,mediumint,middleint,min_rows,minute,minute_second,modify,month,monthname,myisam,natural,numeric,no,not,null,on,optimize,option,optionally,or,order,outer,outfile,pack_keys,partial,password,precision,primary,procedure,process,processlist,privileges,read,real,references,reload,regexp,rename,replace,restrict,returns,revoke,rlike,row,rows,second,select,set,show,shutdown,smallint,soname,sql_big_tables,sql_big_selects,sql_low_priority_updates,sql_log_off,sql_log_update,sql_select_limit,sql_small_result,sql_big_result,sql_warnings,straight_join,starting,status,string,table,tables,temporary,terminated,text,then,time,timestamp,tinyblob,tinytext,tinyint,trailing,to,type,use,using,unique,unlock,unsigned,update,usage,values,varchar,variables,varying,varbinary,with,write,when,where,year,year_month,zerofill"
y=split(x,",")
for i=0 to ubound(y)
if str=y(i) then
keyword=y(i)&"属于保留字"
exit for
else
keyword=str&"不属于保留字"
end if
next
ERASE y
msgbox(keyword)
end function
Sub Button1_OnClick
Dim TheForm
Set TheForm = Document.ValidForm
If len(trim(TheForm.Text1.Value))<=0 Then
MsgBox "请输入"
Else
keyword(TheForm.Text1.Value)
End If
End Sub
-->
</script>
阅读全文
0 0
- 验证SQL 保留字或者关键字
- SQL Server 保留关键字
- SQL Server保留关键字
- sql server的保留关键字
- SQL Server 的保留关键字
- Sql 表名 与关键字(保留字)冲突
- Mysql 关键字-保留字
- MySQL保留字(关键字)
- Mysql 关键字 保留字
- JAVA关键字,保留字
- Mysql 关键字-保留字
- mysql关键字,保留字
- Mysql 关键字-保留字
- mysql 关键字 保留字
- Mysql 关键字-保留字
- mysql 关键字-保留字
- Mysql 关键字-保留字
- Mysql 关键字-保留字
- lwip协议的深入理解(结合目前主流的stm32,ti,esp8266等芯片讲解)
- 从IDC到云端架构迁移之路(GITC2016)
- Docker的安装,包括内核的升级(centos6内核太低需要升级到3.1以上)
- Yarn资源请求处理和资源分配原理解析
- Windows HLK安装
- 验证SQL 保留字或者关键字
- srping boot jar包启动报错:(IDE运行没有错误)java.lang.IllegalArgumentException
- ActiveMQ和spring整合,订阅主题和消息消费
- Kafka设计解析(五)- Kafka性能测试方法及Benchmark报告
- C++Primer第五版(习题答案详解)
- 连接池原来这么简单(一分钟系列)
- 接口 vs 抽象类
- SharePoint 2013 文档库“样式”变了
- OKhttp 小编程