77家的会客2010

日文导致Access搜索(80040e14/内存溢出)的解决[zt]
Weather:多云 ,南风 4-5级,-4~5℃

==26个日文片假名导致Access搜索(80040e14/内存溢出)的解决办法==

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;
当字段内包含了这26个日文字符任意一个多个时,就会导致在执行SQL语句中包含了
[字段] like '%aaaaa%'inStr(1,[字段],'aaaaa',1)>0
这样的查询时,毫无道理的出现了
"Microsoft JET Database Engine 错误 '80040e14' 内存溢出"的错误
其他Jet SQL函数命令未作测试,大概与字符搜索定位匹配相关的都可能出错

搜索相关资料得知被微软工程师证实是Access的bug,可能是语法关系都是微软的东东
在vbs中 执行inStr(1,日文平假名变量,"aaaaa",1)依然要出现错误
Microsoft VBScript 运行时错误 错误 '800a0005' 无效的过程调用或参数: 'instr'


没有搜索,因这几个字符出现Access的论坛网站搜索无法进行,何等痛苦
昨天一朋友大叫怪事,他的音乐数据库无法搜索了,只有30000条记录时是好的
毫无疑问,日文片假名是祸根,花几分钟把有包含上面的日文替换成"?"搜索顺利恢复
找来论坛程序用户群最大的动网dvBBS AC版本 7.0SP2 版测试,同样有这个日文发帖后 导致无法搜索并且运行时出错的问题
线上去搜索 '80040e14' 内存溢出" 的错误 多的是!

一简单有效的解决办法:
对这26个字符进行编码和解码,可能效率感觉不理想,测试下来问题不大,速度影响不是太大

编码:

 

Function Jencode(byVal iStr)
if isnull(iStr) or isEmpty(iStr) then
  Jencode=""
  Exit function
end if
dim F,i,E
' F=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;")
  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))
  Jencode=iStr
  for i=0 to 25
   Jencode=replace(Jencode,F(i),E(i))
  next
End Function


解码:

 

Function Juncode(byVal iStr)
if isnull(iStr) or isEmpty(iStr) then
  Juncode=""
  Exit function
end if
dim F,i,E
' F=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;")
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))
  Juncode=iStr
for i=0 to 25
  Juncode=replace(Juncode,E(i),F(i))'□
next
End Function



注意,如果直接使用字符不方便(windows还没装日文支持),注释掉的部分提供有 chr(-23804) ..这样的定义

这样
1.
表单输入保存时,使用Jencode()将这26个字符先编码再保存(为什么是这26个字符,经过全部测试87个平假名89个片假名最终认定的)

Jn0; 即 chr(-23116) 编码为 Jn1
2.
显示时,则使用 Juncode() 函数进行解码,还原日文片假名显示
3.
搜索关键字,也要使用 Jencode() 进行编码后再放入 like里
where [Topic] like '%Jencode(kewwords)%' 使用
才能保证搜索的值和编码过的数据库字段内容匹配

==================================

PS:
也可以使用正则表达式来改写上面的两个函数,或许效率还要更高些
再就是如果 压根不使用日文,也不需要搜索日文,则解码部分可以不用,保存数据实直接把这26个片假名字符替换为空字符或任一字符,比如"□"
抛砖引玉,如果有更本质的真正的好方法,谢分享

附:
----------------------------
平假名87个 asc值
-23391 --> -23316
unicode 3040-309F

ぁあぃいぅうぇえぉお
かがきぎくぐけげこご
さざしじすずせぜそぞ
ただちぢっつづてでと
どなにぬねのはばぱひ
びぴふぶぷへべぺほぼ
ぽまみむめもゃやゅゆ
ょよらりるれろゎわゐ
ゑをん゛゜ゝゞ
------------------------------
片假名89个 asc值
-23135 -> -23059
unicode 30A0-30FF

ァアィイゥウェエォオ
カJn1;キJn2;クJn3;ケJn4;コJn0;
サJn5;シJn6;スJn7;セJn25;ソJn24;
タJn23;チJn22;ッツJn8;テJn9;ト
Jn10;ナニヌネノハJn21;Jn15;ヒ
Jn14;Jn20;フJn19;Jn13;ヘJn12;Jn18;ホJn17;
Jn11;マミムメモャヤュユ
ョヨラリルレロヮワヰ
ヱヲンJn16;ヵヶーヽヾ
================补充 修改的版本===========================

添加一个编码解码参数codeType
都使用一个函数
使用chr()不直接使用日文字符
这样~ 够简洁了吧?

疑点: 显示日文是不会出错的,保存到数据库也不会出错
只有SQL使用 like 和 inStr 的时候 才会出错 这个与显示无关!
还有在vbs里使用 inStr(1,str,"aaa",1)这样按字符搜索也会错
改为 inStr(lcase(str),"aaa") 就不会出错

如果一定得用 inStr(1,str,"aaa",1) 字符搜索语法
则一定要在先inStr() 后 jncode() 的顺序 否则会出错

一点问题都没有! 注意到这几点绝对没错!

rs("TopicStr")=Jncode(TopicStr,true) 'encode 保存到数据库的资料
DisplayStr=Jncode(rs("TopicStr"),false) 'uncode    '显示到页面的标题

Function Jncode(byVal iStr,codeType)
       if isnull(iStr) or isEmpty(iStr) or iStr="" then
              Jncode=""
              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
       Jncode=iStr
End Function



================补充 修改的版本2 改用unicode===========================

添加一个编码解码参数codeType
都使用一个函数
使用chr()不直接使用日文字符
这样~ 够简洁了吧?

疑点: 显示日文是不会出错的,保存到数据库也不会出错
只有SQL使用 like 和 inStr 的时候 才会出错 这个与显示无关!
还有在vbs里使用 inStr(1,str,"aaa",1)这样按字符搜索也会错
改为 inStr(lcase(str),"aaa") 就不会出错

如果一定得用 inStr(1,str,"aaa",1) 字符搜索语法
则一定要在先inStr() 后 jncode() 的顺序 否则会出错

一点问题都没有! 注意到这几点绝对没错!

rs("TopicStr")=Jncode(TopicStr,true) 'encode 保存到数据库的资料
DisplayStr=Jncode(rs("TopicStr"),false) 'uncode '显示到页面的标题

Function Jncode(byVal iStr,codeType)
if isnull(iStr) or isEmpty(iStr) or iStr="" then
  Jncode="" : 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(chrw(12468),chrw(12460),chrw(12462),chrw(12464),_
    chrw(12466),chrw(12470),chrw(12472),chrw(12474),_
    chrw(12485),chrw(12487),chrw(12489),chrw(12509),_
    chrw(12505),chrw(12503),chrw(12499),chrw(12497),_
    chrw(12532),chrw(12508),chrw(12506),chrw(12502),_
    chrw(12500),chrw(12496),chrw(12482),chrw(12480),_
    chrw(12478),chrw(12476))
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
Jncode=iStr
End Function


===========================================
Blueidea.com web team member V37(PaintBlue.Net) / 转贴注明出处

请注意:为了方便发布,已经将上面的部分内容改成全角,使用时请注意改成半角字符

历史上的今天: [2005/12/06]情感世界-爱

[日文导致Access搜索(80040e14/内存溢出)的解决[zt]]的回复

Shutra 于 2006-12-06 22:05:50 发表 | IP:61.170.208.*
日文内码很搞的,没中文处理方便。  
柠檬园主 于 2006-12-07 09:25:57 发表 | IP:210.83.202.*
是啊,前两天BLOG搜索就出现问题了,我还以为是服务器问题,后来才想起来是刚加了日文的内容.
littlenew 于 2007-06-21 14:09:41 发表 | IP:59.40.86.*

好像不止这一个方面吧。我的文章有9000多篇,而我在搜索文章内容时也会出现这个错误,是不是文章太多了,也会导致这个错误呀。如果我搜索的字符数多于某个值时,就出现“内存溢出”,而只搜索两个或三个字符时,却是正常的。

4#   柠檬园主 于 2007-06-21 20:48:25 发表 | IP:221.201.146.*

没试过长字符串,不过上面说的就是针对日文出现这种情况的解决办法。

按你说的,应该是会出现的,比如说你输入的字符长度超过字段最大值的时候,肯定是会溢出的。

5#   littlenew 于 2007-06-22 12:51:01 发表 | IP:219.133.186.*

不可能的,文章内容当然是text类型的了,用的是access。

搜索的超过十个字符的话,就出现这样的问题了。而只输入三个字符但不会出现任何的错误,正常显示。有点怪。只是很慢而已。

6#   柠檬园主 于 2007-06-23 19:41:10 发表 | IP:221.201.145.*

那你应该把错误代号COPY下来,然后去微软网站搜索一下看看。

刚才试了一下,我这儿超过10个字符搜索也不会溢出,不知道到底是什么原因,是不是我采用UTF-8编码的原因?

Post a Comment~