Check for news with katakana

Access search (80040e14 memory overflow) caused by 26 Japanese Katakana) the solution is as follows: when there are multiple, the SQL statement contains the [field] like % aaaaa %

= 26 Japanese Katakana resulting in Access search (80040e14/memory overflow) solution = Japanese when there are multiple characters, the SQL statement contains the [field] like % aaaaa %

= 26 Japanese KatakanaSolution to Access search (80040e14/memory overflow) =

When there are too many threads, there are too many threads, too many threads.
When the field contains the 26JapaneseWhen multiple characters exist, the SQL statement contains
[Field] like % aaaaa % or inStr (1, [field], aaaaa, 1)> 0
Such a query has no reason
"Microsoft JET Database Engine error 80040e14 memory overflow" error
Other Jet SQL function commands are not tested. errors may occur when they are related to character search and location matching.

Search for relevant information and find that Microsoft engineers confirmed the Access bug. It may be that the syntax relationships are all Microsoft's stuff.
Run inStr (1,JapaneseHirakana variable, "aaaaa", 1) Errors still occur
Microsoft VBScript runtime error 800a0005 invalid process call or parameter: instr

There is no search. It is so painful that the Access-based Forum website cannot be searched.
A friend yelled at a strange thing yesterday and his music database could not be searched. It was good to have only 30000 records.
Undoubtedly,JapaneseKatakanaIt is a curse. It takes several minutes to include the aboveJapaneseReplace "? "Successful search recovery
Find the largest node network dvBBS AC version of the Forum program user group for testing.JapaneseAn error occurred while searching after posting
The error "80040e14 memory overflow" is found online!

A simple and effective solution:
Encoding and decoding of the 26 characters may be inefficient. The test is not difficult and the speed impact is not too great.

Encoding:

Function Jencode (byVal iStr)
If isnull (iStr) or isEmpty (iStr) then
Jencode = ""
Exit function
End if
Dim F, I, E
F = array ("inline ", "success ",_
"Effect", "allow ", "Province", "Province ",_
"Success", "fail ")
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

Decoding:

Function Juncode (byVal iStr)
If isnull (iStr) or isEmpty (iStr) then
Juncode = ""
Exit function
End if
Dim F, I, E
F = array ("inline ", "success ",_
"Effect", "allow ", "Province", "Province ",_
"Success", "fail ")
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

Note: It is inconvenient to directly use characters (windows is not installed yetJapaneseSupported). The commented out part is defined as chr (-23804 )...

BenNewsThree pages in total, currently on page 1st 1 2 3