兼容mysql, sqlserver

SC 环境增加 一个常数  DBT_ ="access"  '表示当前数据库的类型, 枚举: access, sqlserver, mysql

SC 环境增加一个函数 function ST_(s) 这个函数用于不同数据库的Select Top 语句的兼容.

     如果你的 sql 语句里面包含了 select top n ..., 你必须把你的 语句用ST_函数处理一下, 如:

     sql="select Top 10 * from ac"

     sql=ST_(sql)  ' 这时如果数据库类型为MySQL 则 sql 变成 "select * from ac LIMIT 10"
     注意, 如果你的SQL语句里面有多个TOP关键字,你必须把SQL语句拆分成单独的只包含一个top 关键字的语句后再合并.

     如果你的 sql 语句包含了 字符串字段的 链接如: select acid + '   ' + actitle from ac 也请使用ST_函数.

     因为mySQL 不支持使用 + 加号来进行字符串链接, 字符串链接MySQL是使用concat 函数, ST_会在内部进行帮你转换(需要升级平台到2012.10.20之后的版本).

     注意ST_函数的一下局限:

     1. ST_只能处理 第一个Select 后的内容, 如果有Select嵌套,则需要先用ST_处理后再嵌套,例如:

         SQL=ST_("select * from (select top 10 * from ac)") 这样是无效的,应该改为:

         SQL="select * from (" & ST_("select top 10 * from ac")  &  ")")

        

         SQL="select * from (select acid +' ' + actitle from ac)" 也应该参照上一句来更改         

 

     2. 为了避免 concat 转换时候, 数字类型的相加混淆 , ST_只会对包含有单引号的字段部分进行concat转换处理

         例如: SQL=ST_("select acid,acptitle + actitle from ac") 这样的结果是sql语句不会改变, 你必须更改为:

                  SQL=ST_("select acid, ''+acptitle + actitle from ac"), 这样ST_才会认为''+acptitle + actitle 需要concat处理

 

SC 环境修改了GetRS_() 函数,在内部增加了:

  if lcase(DBT_="mysql") then

      GetRS_.CursorLocation=3

  end if

  一下问题中如果牵涉到  CursorLocation的,均已经由平台统一处理,但是必须注意:

  A.  SC虚拟机(即SC环境,)必须是最新2012-10-15以上版本的, http://www.4Fang.net/4ff/sc_setup.exe 下载更新

  B.  必须通过 GetRS_() 来获得Recordset对象

 

 

1.识别符
mysql识别符是 ``;sql server识别符是[].
mysql下表名或者字段名用[]包围，都会出错。例如：
create table [tbl] (id int);
alter table tbl add [f1] text;

***解决方式: 在SQL语句中避免使用 "[]" 来包裹字段名和表名, 如果字段名和表名是关键字, 必须区别不同的数据库对待

 

2.定义自增字段
mysql定义自增字段用 auto_increment；sql server用indentity(1,1)

***解决方式:增加字段时, 必须区分不同的数据库书写不同的ＳＱＬ语句

3.注释
mysql注释符 -- comments,注释内容和注释符号要留个空格，不然没有注释效果(命令行界面下验证）;sql server注释符与注释内容间有无空格皆可。如 --comments  -- comments

***解决方式: 统一使用注释内容和注释符号之间多留一个空格的兼容方式

 

4.取字符串长度函数
mysql用length(str);sql server用len(str)

***解决方式: 已经通过mysql的自定义函数统一一次性解决,编程人员可以不理会,直接使用 len() 函数即可

5.数据类型text 整类型unsiged
mysql的text数据类型,有65KB的存储空间,longtext有4G存储空间;sql server的Text数据类型有2G存储空间。
mysql的整型数据类型可以指定unsigned，获得更大的取值范围。如 amount int unsigned
***解决方式: 我们统一使用text就可以了,除非我们可以预见某个字段数据量超过65K,则使用longtext类型

6.增加多个字段
mysql要加括号
包围字段列表 例如：
  MS sql：alter table t add f1 int,f2 int,f3 int;

  Mysql: alter table t add (f1 int,f2 int,f3 int);

***解决方式:必须按不同数据库的要求进行区分书写, 没有兼容的方式

7.like子句
  Mysql select ...like,like 子句不支持[0-9]这样的匹配方式，它有扩展正则表达式子句 rlike 支持 . * [] ^ $ {n}等元字符。

  Ms sql: select * from teacher where tname like 'C[0-9][0-9]'; -- 没问题，可以匹配到 C02 C29 ...  Mysql: select * from teacher where tname like 'C[0-9][0-9]'; -- 不会出错，但是like会认为要匹配字符串 C[0-9][0-9] 所以没结果返回  Mysql: select * from teacher where tname rlike '^C[0-9]{2}$'; -- rlike子句的等价写法

***解决方式:　区别数据库对待,　这种情况我们极少用到,只在ｂａｓｅｄａｔａｃｏｍｍｏｎ中用到

8.rs.recordCount
ado连接mysql,sql server数据库，打开rs对象默认的游标位置都是服务端游标。
sql server: rs.open "select * from company",cn,1,1  -- rs.recordCount返回正确的记录数
sql server: rs.open "select * from company",cn,1,1  -- rs.recordCount返回-1，解决方法：在rs.open之前 设置 rs.cursorLocation=3  或rs.cursorLocation=aduseClient。注：cursorLocation在记录集打开之前是可读可写的。打开记录集后为只读。可通过connection对象或recordset对象设置 如：cn.cursorLocation=3, rs.cursorLocation=3

***解决方式:碰到这种问题,把改成rs.cursorLocation=3

9.rs.addnew ....rs.update问题
如product表有数据如下：
Pname
产品A
产品B

SC页面：
rs.open "select * from product" cn,1,3
rs.addnew
rs("Pname")="产品C"
rs.update
response.write rs("Pname")  '结果显示 产品B 而不是新记录的值

***解决方法：rs.open语句前设置游标位置为客户端游标 rs.cursorLocation=3

若用循环语句批量增加记录数很多 例如超过80条，如：
rs.open "select * from product" cn,1,3
for i=1 to 200
rs.addnew
rs("Pname")="产品"&i
rs.update
next

***解决方式:设置客户端游标后还是会有部分记录不能增加进去的情况,这时应把设置lockType=4，rs.update改用rs.updateBatch

10.rs.update多条记录的问题
同样是product表，更新一条记录马上去更新的值没问题；通过循环更新多条记录，就马上取更新后的值有问题。
rs.open "select * from product" cn,1,3
rs("Pname")=rs("Pname")&"modified" '游标位于第一条记录
rs.update
response.write rs("Pname")  '结果为修改后的新值

更新多条记录的情况：
rs.open "select * from product" cn,1,3
do while not rs.eof
rs("Pname")=rs("Pname")&"modified" '游标位于第一条记录
rs.update
rs.movenext
loop

response.write "<h2>更新后的结果</h2><br>"
rs.movefirst
do while not rs.eof
response.write rs("Pname")&"<br>"
loop
'此时显示的是更新前的数据

***解决方法：在rs.open语句之前，设置为客户端游标 rs.cursorLocation=3

 

11. select count(*) from mytable 返回的记录的值的数据类型是VBS不能识别的, 必须用Clng函数强制转换后才能进行运算和比较:

 

     rs.open "select count(*) from mytable",cn

     if rs(0)>0 then    ''这样会导致VBS引擎崩溃 应该改成:

     if clng(rs(0))>0 then

 

 12. 使用记录集修改操作

   

   打开记录集的语句如为 sql = " select invoiceitem.lo as lo  from invoice,invoiceitem where invoice.id = invoiceitem.iid "

    rs.open sql,cn,1,3

    rs("lo") = 2

    rs.update

 

   这种情况下将会报出 "缺少更新或刷新的键列信息" 错误，如是有主外键关系的请使用 inner join 语句联接打开需要修改的记录集

   sql = "select invoiceitem.lo as lo from invoice inner join invoiceitem on invoice.id = invoiceitem.iid "

 

 13 .mysql判断字段是否存在有简单的方法 只需要 rs.open "describe yourtbl yourFiled" ,cn,1,3
      if not rs.eof then 字段存在