用like查询带有日文片假名报“内存溢出”的解决办法

小知识：什么是日文片假名？



日语的写法有假名和汉字两种。
就像中国的汉字和拼音一样，你写汉字能够看懂，写拼音就更能知道了
而假名又分两种 片假名和平假名。
如这样写的是：あ、い、う、え、お 平假名。
这样写的是：ア、イ、ウ、ェ，ォ 片假名。
他们都是表示同一个，只是写法不一样而已。



一、替换法：把数据存储到数据库前把26个日文片假名替换成其他编码，从数据库读取出来后再反替换回来。函数示例如下：



编码方式，用于把表单数据存储到数据库之前：JPcode(iStr,true)
解码方式，用于从数据库读取出来之后的显示：JPcode(iStr,false)

函数：
Function JPcode(byVal iStr,codeType)
 If isNull(iStr) or isEmpty(iStr) or iStr = "" Then
  JPcode = "" : Exit function
 End If
 Dim F,i,E
 E = array("Jn0;","Jn1;","Jn2;","Jn3;","Jn4;","Jn5;","Jn6;",_
         "Jn7;","Jn8;","Jn9;","Jn10;","Jn11;","Jn12;","Jn13;",_
         "Jn14;","Jn15;","Jn16;","Jn17;","Jn18;","Jn19;","Jn20;",_
         "Jn21;","Jn22;","Jn23;","Jn24;","Jn25;")
 F = array(chr(-23116),chr(-23124),chr(-23122),chr(-23120),_
         chr(-23118),chr(-23114),chr(-23112),chr(-23110),_
          chr(-23099),chr(-23097),chr(-23095),chr(-23075),_
         chr(-23079),chr(-23081),chr(-23085),chr(-23087),_
         chr(-23052),chr(-23076),chr(-23078),chr(-23082),_
         chr(-23084),chr(-23088),chr(-23102),chr(-23104),_
         chr(-23106),chr(-23108))
       If codyType Then
  For i=0 to 25 iStr = Replace(iStr,F(i),E(i)) Next
       Else
  For i=0 to 25 iStr = Replace(iStr,E(i),F(i)) Next
       End If
       JPcode = iStr
End Function

注意：使用关键字进行搜索时，也要使用JPcode(iStr,true)进行编码后再放入like语句里使用
例如：where [Topic] like '%" & JPcode(keyword) & "%'
才能保证搜索的值和编码过的数据库字段内容匹配。

二、不要使用like语句，例：
把会报错的SQL：where title like '%keyword%'
换成：where InStr(1,LCase(Title),LCase('keyword'),0)<>0