ACCESS数据库遇日文时内存溢出的最简单处理办法

ACCESS有个BUG，那就是在使用 like 搜索时如果遇到日文就会出现“内存溢出”的问题，提示“80040e14/内存溢出”。 

导致出问题的26个日文：

ゴ ガ ギ グ ゲ ザ ジ ジ ヅ デ ド ポ ベ プ ビ パ ヴ ボ ペ ブ ピ バ ヂ ダ ゾ ゼ 

下面是目前最简单的解决函数：

'日文过滤转换
Function Jncode(Istr)
    Dim japArr,ArrNum
    japArr=Array("ゴ","ガ","ギ","グ","ゲ","ザ","ジ","ジ","ヅ","デ","ド","ポ","ベ","プ","ビ","パ","ヴ","ボ","ペ","ブ","ピ","バ","ヂ","ダ","ゾ","ゼ")
    For ArrNum=0 to Ubound(japArr)
        Istr=Replace(Istr,japArr(ArrNum),"&#"&AscW(japArr(ArrNum))&";")
    Next
    Jncode=Istr
End Function

使用办法：数据入库时加入此函数转换。

OK。输出不用转换，能自动显示26个日文原样。