ACCESS 中如何解决中文、汉字、文字转拼音的问题？

如何解决中文、汉字、文字转拼音的问题？

<script language="javascript" type="text/javascript"> function addtitle(){ var straddtitle = "如何解决中文、汉字、文字转拼音的问题？"; if (straddtitle.length!==0){ document.title=document.title + "《" + straddtitle + "》；专题号：72FAB01E1BDCECF3"; } } </script>

专题地址： http://access911.net/?kbid;72FAB01E1BDCECF3

简述： 如何解决中文、汉字、文字转拼音的问题？《函数》   阅读前需掌握： 熟练掌握 VBA 编程   难度等级： <script language="javascript" src="/rewrite.asp?mode=writelevel&l=10" type="text/javascript"> </script> 10

方法一： 可以用 ASC 得到汉字的 ASCII 码，然后判断其所在的区间。 Function CreatePYTalbe()     Dim strSql As String     Dim strTableName As String     Dim Conn As ADODB.Connection     Set Conn = CurrentProject.Connection               strTableName = "Py6"     Conn.BeginTrans     If IsNull(DLookup("name", "msysobjects", "name='" & strTableName & "' and type=1")) = True Then         strSql = "create table " & strTableName & "(ID AUTOINCREMENT(1,1),PinYin text(15),ASCcode LONG)"         Conn.Execute strSql     End If          Dim strSqls() As String                              '---------- SQL 代码开始 ----------                             ReDim Preserve strSqls(1)     strSqls(1) = "insert into " & strTableName & "(PinYin,AscCode) values('a',-20319)"     ReDim Preserve strSqls(2)     strSqls(2) = "insert into " & strTableName & "(PinYin,AscCode) values('ai',-20317)"     ReDim Preserve strSqls(3)     strSqls(3) = "insert into " & strTableName & "(PinYin,AscCode) values('an',-20304)"     ReDim Preserve strSqls(4)     strSqls(4) = "insert into " & strTableName & "(PinYin,AscCode) values('ang',-20295)"     ReDim Preserve strSqls(5)     strSqls(5) = "insert into " & strTableName & "(PinYin,AscCode) values('ao',-20292)"     ReDim Preserve strSqls(6)     strSqls(6) = "insert into " & strTableName & "(PinYin,AscCode) values('ba',-20283)"     ReDim Preserve strSqls(7)     strSqls(7) = "insert into " & strTableName & "(PinYin,AscCode) values('bai',-20265)"     ReDim Preserve strSqls(8)     strSqls(8) = "insert into " & strTableName & "(PinYin,AscCode) values('ban',-20257)"     ReDim Preserve strSqls(9)     strSqls(9) = "insert into " & strTableName & "(PinYin,AscCode) values('bang',-20242)"     ReDim Preserve strSqls(10)     strSqls(10) = "insert into " & strTableName & "(PinYin,AscCode) values('bao',-20230)"     ReDim Preserve strSqls(11)     strSqls(11) = "insert into " & strTableName & "(PinYin,AscCode) values('bei',-20051)"     ReDim Preserve strSqls(12)     strSqls(12) = "insert into " & strTableName & "(PinYin,AscCode) values('ben',-20036)"     ReDim Preserve strSqls(13)     strSqls(13) = "insert into " & strTableName & "(PinYin,AscCode) values('beng',-20032)"     ReDim Preserve strSqls(14)     strSqls(14) = "insert into " & strTableName & "(PinYin,AscCode) values('bi',-20026)"     ReDim Preserve strSqls(15)     strSqls(15) = "insert into " & strTableName & "(PinYin,AscCode) values('bian',-20002)"     ReDim Preserve strSqls(16)     strSqls(16) = "insert into " & strTableName & "(PinYin,AscCode) values('biao',-19990)"     ReDim Preserve strSqls(17)     strSqls(17) = "insert into " & strTableName & "(PinYin,AscCode) values('bie',-19986)"     ReDim Preserve strSqls(18)     strSqls(18) = "insert into " & strTableName & "(PinYin,AscCode) values('bin',-19982)"     ReDim Preserve strSqls(19)     strSqls(19) = "insert into " & strTableName & "(PinYin,AscCode) values('bing',-19976)"     ReDim Preserve strSqls(20)     strSqls(20) = "insert into " & strTableName & "(PinYin,AscCode) values('bo',-19805)"     ReDim Preserve strSqls(21)     strSqls(21) = "insert into " & strTableName & "(PinYin,AscCode) values('bu',-19784)"     ReDim Preserve strSqls(22)     strSqls(22) = "insert into " & strTableName & "(PinYin,AscCode) values('ca',-19775)"     ReDim Preserve strSqls(23)     strSqls(23) = "insert into " & strTableName & "(PinYin,AscCode) values('cai',-19774)"     ReDim Preserve strSqls(24)     strSqls(24) = "insert into " & strTableName & "(PinYin,AscCode) values('can',-19763)"     ReDim Preserve strSqls(25)     strSqls(25) = "insert into " & strTableName & "(PinYin,AscCode) values('cang',-19756)"     ReDim Preserve strSqls(26)     strSqls(26) = "insert into " & strTableName & "(PinYin,AscCode) values('cao',-19751)"     ReDim Preserve strSqls(27)     strSqls(27) = "insert into " & strTableName & "(PinYin,AscCode) values('ce',-19746)"     ReDim Preserve strSqls(28)     strSqls(28) = "insert into " & strTableName & "(PinYin,AscCode) values('ceng',-19741)"     ReDim Preserve strSqls(29)     strSqls(29) = "insert into " & strTableName & "(PinYin,AscCode) values('cha',-19739)"     ReDim Preserve strSqls(30)     strSqls(30) = "insert into " & strTableName & "(PinYin,AscCode) values('chai',-19728)"     ReDim Preserve strSqls(31)     strSqls(31) = "insert into " & strTableName & "(PinYin,AscCode) values('chan',-19725)"     ReDim Preserve strSqls(32)     strSqls(32) = "insert into " & strTableName & "(PinYin,AscCode) values('chang',-19715)"     ReDim Preserve strSqls(33)     strSqls(33) = "insert into " & strTableName & "(PinYin,AscCode) values('chao',-19540)"     ReDim Preserve strSqls(34)     strSqls(34) = "insert into " & strTableName & "(PinYin,AscCode) values('che',-19531)"     ReDim Preserve strSqls(35)     strSqls(35) = "insert into " & strTableName & "(PinYin,AscCode) values('chen',-19525)"     ReDim Preserve strSqls(36)     strSqls(36) = "insert into " & strTableName & "(PinYin,AscCode) values('cheng',-19515)"     ReDim Preserve strSqls(37)     strSqls(37) = "insert into " & strTableName & "(PinYin,AscCode) values('chi',-19500)"     ReDim Preserve strSqls(38)     strSqls(38) = "insert into " & strTableName & "(PinYin,AscCode) values('chong',-19484)"     ReDim Preserve strSqls(39)     strSqls(39) = "insert into " & strTableName & "(PinYin,AscCode) values('chou',-19479)"     ReDim Preserve strSqls(40)     strSqls(40) = "insert into " & strTableName & "(PinYin,AscCode) values('chu',-19467)"     ReDim Preserve strSqls(41)     strSqls(41) = "insert into " & strTableName & "(PinYin,AscCode) values('chuai',-19289)"     ReDim Preserve strSqls(42)     strSqls(42) = "insert into " & strTableName & "(PinYin,AscCode) values('chuan',-19288)"     ReDim Preserve strSqls(43)     strSqls(43) = "insert into " & strTableName & "(PinYin,AscCode) values('chuang',-1928)"     ReDim Preserve strSqls(44)     strSqls(44) = "insert into " & strTableName & "(PinYin,AscCode) values('chui',-19275)"     ReDim Preserve strSqls(45)     strSqls(45) = "insert into " & strTableName & "(PinYin,AscCode) values('chun',-19270)"     ReDim Preserve strSqls(46)     strSqls(46) = "insert into " & strTableName & "(PinYin,AscCode) values('chuo',-19263)"     ReDim Preserve strSqls(47)     strSqls(47) = "insert into " & strTableName & "(PinYin,AscCode) values('ci',-19261)"     ReDim Preserve strSqls(48)     strSqls(48) = "insert into " & strTableName & "(PinYin,AscCode) values('cong',-19249)"     ReDim Preserve strSqls(49)     strSqls(49) = "insert into " & strTableName & "(PinYin,AscCode) values('cou',-19243)"     ReDim Preserve strSqls(50)     strSqls(50) = "insert into " & strTableName & "(PinYin,AscCode) values('cu',-19242)"     ReDim Preserve strSqls(51)     strSqls(51) = "insert into " & strTableName & "(PinYin,AscCode) values('cuan',-19238)"     ReDim Preserve strSqls(52)     strSqls(52) = "insert into " & strTableName & "(PinYin,AscCode) values('cui',-19235)"     ReDim Preserve strSqls(53)     strSqls(53) = "insert into " & strTableName & "(PinYin,AscCode) values('cun',-19227)"     ReDim Preserve strSqls(54)     strSqls(54) = "insert into " & strTableName & "(PinYin,AscCode) values('cuo',-19224)"     ReDim Preserve strSqls(55)     strSqls(55) = "insert into " & strTableName & "(PinYin,AscCode) values('da',-19218)"     ReDim Preserve strSqls(56)     strSqls(56) = "insert into " & strTableName & "(PinYin,AscCode) values('dai',-19212)"     ReDim Preserve strSqls(57)     strSqls(57) = "insert into " & strTableName & "(PinYin,AscCode) values('dan',-19038)"     ReDim Preserve strSqls(58)     strSqls(58) = "insert into " & strTableName & "(PinYin,AscCode) values('dang',-19023)"     ReDim Preserve strSqls(59)     strSqls(59) = "insert into " & strTableName & "(PinYin,AscCode) values('dao',-19018)"     ReDim Preserve strSqls(60)     strSqls(60) = "insert into " & strTableName & "(PinYin,AscCode) values('de',-19006)"     ReDim Preserve strSqls(61)     strSqls(61) = "insert into " & strTableName & "(PinYin,AscCode) values('deng',-19003)"     ReDim Preserve strSqls(62)     strSqls(62) = "insert into " & strTableName & "(PinYin,AscCode) values('di',-18996)"     ReDim Preserve strSqls(63)     strSqls(63) = "insert into " & strTableName & "(PinYin,AscCode) values('dian',-18977)"     ReDim Preserve strSqls(64)     strSqls(64) = "insert into " & strTableName & "(PinYin,AscCode) values('diao',-18961)"     ReDim Preserve strSqls(65)     strSqls(65) = "insert into " & strTableName & "(PinYin,AscCode) values('die',-18952)"     ReDim Preserve strSqls(66)     strSqls(66) = "insert into " & strTableName & "(PinYin,AscCode) values('ding',-18783)"     ReDim Preserve strSqls(67)     strSqls(67) = "insert into " & strTableName & "(PinYin,AscCode) values('diu',-18774)"     ReDim Preserve strSqls(68)     strSqls(68) = "insert into " & strTableName & "(PinYin,AscCode) values('dong',-18773)"     ReDim Preserve strSqls(69)     strSqls(69) = "insert into " & strTableName & "(PinYin,AscCode) values('dou',-18763)"     ReDim Preserve strSqls(70)     strSqls(70) = "insert into " & strTableName & "(PinYin,AscCode) values('du',-18756)"     ReDim Preserve strSqls(71)     strSqls(71) = "insert into " & strTableName & "(PinYin,AscCode) values('duan',-18741)"     ReDim Preserve strSqls(72)     strSqls(72) = "insert into " & strTableName & "(PinYin,AscCode) values('dui',-18735)"     ReDim Preserve strSqls(73)     strSqls(73) = "insert into " & strTableName & "(PinYin,AscCode) values('dun',-18731)"     ReDim Preserve strSqls(74)     strSqls(74) = "insert into " & strTableName & "(PinYin,AscCode) values('duo',-18722)"     ReDim Preserve strSqls(75)     strSqls(75) = "insert into " & strTableName & "(PinYin,AscCode) values('e',-18710)"     ReDim Preserve strSqls(76)     strSqls(76) = "insert into " & strTableName & "(PinYin,AscCode) values('en',-18697)"     ReDim Preserve strSqls(77)     strSqls(77) = "insert into " & strTableName & "(PinYin,AscCode) values('er',-18696)"     ReDim Preserve strSqls(78)     strSqls(78) = "insert into " & strTableName & "(PinYin,AscCode) values('fa',-18526)"     ReDim Preserve strSqls(79)     strSqls(79) = "insert into " & strTableName & "(PinYin,AscCode) values('fan',-18518)"     ReDim Preserve strSqls(80)     strSqls(80) = "insert into " & strTableName & "(PinYin,AscCode) values('fang',-18501)"     ReDim Preserve strSqls(81)     strSqls(81) = "insert into " & strTableName & "(PinYin,AscCode) values('fei',-18490)"     ReDim Preserve strSqls(82)     strSqls(82) = "insert into " & strTableName & "(PinYin,AscCode) values('fen',-18478)"     ReDim Preserve strSqls(83)     strSqls(83) = "insert into " & strTableName & "(PinYin,AscCode) values('feng',-18463)"     ReDim Preserve strSqls(84)     strSqls(84) = "insert into " & strTableName & "(PinYin,AscCode) values('fo',-18448)"     ReDim Preserve strSqls(85)     strSqls(85) = "insert into " & strTableName & "(PinYin,AscCode) values('fou',-18447)"     ReDim Preserve strSqls(86)     strSqls(86) = "insert into " & strTableName & "(PinYin,AscCode) values('fu',-18446)"     ReDim Preserve strSqls(87)     strSqls(87) = "insert into " & strTableName & "(PinYin,AscCode) values('ga',-18239)"     ReDim Preserve strSqls(88)     strSqls(88) = "insert into " & strTableName & "(PinYin,AscCode) values('gai',-18237)"     ReDim Preserve strSqls(89)     strSqls(89) = "insert into " & strTableName & "(PinYin,AscCode) values('gan',-18231)"     ReDim Preserve strSqls(90)     strSqls(90) = "insert into " & strTableName & "(PinYin,AscCode) values('gang',-18220)"     ReDim Preserve strSqls(91)     strSqls(91) = "insert into " & strTableName & "(PinYin,AscCode) values('gao',-18211)"     ReDim Preserve strSqls(92)     strSqls(92) = "insert into " & strTableName & "(PinYin,AscCode) values('ge',-18201)"     ReDim Preserve strSqls(93)     strSqls(93) = "insert into " & strTableName & "(PinYin,AscCode) values('gei',-18184)"     ReDim Preserve strSqls(94)     strSqls(94) = "insert into " & strTableName & "(PinYin,AscCode) values('gen',-18183)"     ReDim Preserve strSqls(95)     strSqls(95) = "insert into " & strTableName & "(PinYin,AscCode) values('geng',-18181)"     ReDim Preserve strSqls(96)     strSqls(96) = "insert into " & strTableName & "(PinYin,AscCode) values('gong',-18012)"     ReDim Preserve strSqls(97)     strSqls(97) = "insert into " & strTableName & "(PinYin,AscCode) values('gou',-17997)"     ReDim Preserve strSqls(98)     strSqls(98) = "insert into " & strTableName & "(PinYin,AscCode) values('gu',-17988)"     ReDim Preserve strSqls(99)     strSqls(99) = "insert into " & strTableName & "(PinYin,AscCode) values('gua',-17970)"     ReDim Preserve strSqls(100)     strSqls(100) = "insert into " & strTableName & "(PinYin,AscCode) values('guai',-17964)"     ReDim Preserve strSqls(101)     strSqls(101) = "insert into " & strTableName & "(PinYin,AscCode) values('guan',-17961)"     ReDim Preserve strSqls(102)     strSqls(102) = "insert into " & strTableName & "(PinYin,AscCode) values('guang',-17950)"     ReDim Preserve strSqls(103)     strSqls(103) = "insert into " & strTableName & "(PinYin,AscCode) values('gui',-17947)"     ReDim Preserve strSqls(104)     strSqls(104) = "insert into " & strTableName & "(PinYin,AscCode) values('gun',-17931)"     ReDim Preserve strSqls(105)     strSqls(105) = "insert into " & strTableName & "(PinYin,AscCode) values('guo',-17928)"     ReDim Preserve strSqls(106)     strSqls(106) = "insert into " & strTableName & "(PinYin,AscCode) values('ha',-17922)"     ReDim Preserve strSqls(107)     strSqls(107) = "insert into " & strTableName & "(PinYin,AscCode) values('hai',-17759)"     ReDim Preserve strSqls(108)     strSqls(108) = "insert into " & strTableName & "(PinYin,AscCode) values('han',-17752)"     ReDim Preserve strSqls(109)     strSqls(109) = "insert into " & strTableName & "(PinYin,AscCode) values('hang',-17733)"     ReDim Preserve strSqls(110)     strSqls(110) = "insert into " & strTableName & "(PinYin,AscCode) values('hao',-17730)"     ReDim Preserve strSqls(111)     strSqls(111) = "insert into " & strTableName & "(PinYin,AscCode) values('he',-17721)"     ReDim Preserve strSqls(112)     strSqls(112) = "insert into " & strTableName & "(PinYin,AscCode) values('hei',-17703)"     ReDim Preserve strSqls(113)     strSqls(113) = "insert into " & strTableName & "(PinYin,AscCode) values('hen',-17701)"     ReDim Preserve strSqls(114)     strSqls(114) = "insert into " & strTableName & "(PinYin,AscCode) values('heng',-17697)"     ReDim Preserve strSqls(115)     strSqls(115) = "insert into " & strTableName & "(PinYin,AscCode) values('hong',-17692)"     ReDim Preserve strSqls(116)     strSqls(116) = "insert into " & strTableName & "(PinYin,AscCode) values('hou',-17683)"     ReDim Preserve strSqls(117)     strSqls(117) = "insert into " & strTableName & "(PinYin,AscCode) values('hu',-17676)"     ReDim Preserve strSqls(118)     strSqls(118) = "insert into " & strTableName & "(PinYin,AscCode) values('hua',-17496)"     ReDim Preserve strSqls(119)     strSqls(119) = "insert into " & strTableName & "(PinYin,AscCode) values('huai',-17487)"     ReDim Preserve strSqls(120)     strSqls(120) = "insert into " & strTableName & "(PinYin,AscCode) values('huan',-17482)"     ReDim Preserve strSqls(121)     strSqls(121) = "insert into " & strTableName & "(PinYin,AscCode) values('huang',-17468)"     ReDim Preserve strSqls(122)     strSqls(122) = "insert into " & strTableName & "(PinYin,AscCode) values('hui',-17454)"     ReDim Preserve strSqls(123)     strSqls(123) = "insert into " & strTableName & "(PinYin,AscCode) values('hun',-17433)"     ReDim Preserve strSqls(124)     strSqls(124) = "insert into " & strTableName & "(PinYin,AscCode) values('huo',-17427)"     ReDim Preserve strSqls(125)     strSqls(125) = "insert into " & strTableName & "(PinYin,AscCode) values('ji',-17417)"     ReDim Preserve strSqls(126)     strSqls(126) = "insert into " & strTableName & "(PinYin,AscCode) values('jia',-17202)"     ReDim Preserve strSqls(127)     strSqls(127) = "insert into " & strTableName & "(PinYin,AscCode) values('jian',-17185)"     ReDim Preserve strSqls(128)     strSqls(128) = "insert into " & strTableName & "(PinYin,AscCode) values('jiang',-16983)"     ReDim Preserve strSqls(129)     strSqls(129) = "insert into " & strTableName & "(PinYin,AscCode) values('jiao',-16970)"     ReDim Preserve strSqls(130)     strSqls(130) = "insert into " & strTableName & "(PinYin,AscCode) values('jie',-16942)"     ReDim Preserve strSqls(131)     strSqls(131) = "insert into " & strTableName & "(PinYin,AscCode) values('jin',-16915)"     ReDim Preserve strSqls(132)     strSqls(132) = "insert into " & strTableName & "(PinYin,AscCode) values('jing',-16733)"     ReDim Preserve strSqls(133)     strSqls(133) = "insert into " & strTableName & "(PinYin,AscCode) values('jiong',-16708)"     ReDim Preserve strSqls(134)     strSqls(134) = "insert into " & strTableName & "(PinYin,AscCode) values('jiu',-16706)"     ReDim Preserve strSqls(135)     strSqls(135) = "insert into " & strTableName & "(PinYin,AscCode) values('ju',-16689)"     ReDim Preserve strSqls(136)     strSqls(136) = "insert into " & strTableName & "(PinYin,AscCode) values('juan',-16664)"     ReDim Preserve strSqls(137)     strSqls(137) = "insert into " & strTableName & "(PinYin,AscCode) values('jue',-16657)"     ReDim Preserve strSqls(138)     strSqls(138) = "insert into " & strTableName & "(PinYin,AscCode) values('jun',-16647)"     ReDim Preserve strSqls(139)     strSqls(139) = "insert into " & strTableName & "(PinYin,AscCode) values('ka',-16474)"     ReDim Preserve strSqls(140)     strSqls(140) = "insert into " & strTableName & "(PinYin,AscCode) values('kai',-16470)"     ReDim Preserve strSqls(141)     strSqls(141) = "insert into " & strTableName & "(PinYin,AscCode) values('kan',-16465)"     ReDim Preserve strSqls(142)     strSqls(142) = "insert into " & strTableName & "(PinYin,AscCode) values('kang',-16459)"     ReDim Preserve strSqls(143)     strSqls(143) = "insert into " & strTableName & "(PinYin,AscCode) values('kao',-16452)"     ReDim Preserve strSqls(144)     strSqls(144) = "insert into " & strTableName & "(PinYin,AscCode) values('ke',-16448)"     ReDim Preserve strSqls(145)     strSqls(145) = "insert into " & strTableName & "(PinYin,AscCode) values('ken',-16433)"     ReDim Preserve strSqls(146)     strSqls(146) = "insert into " & strTableName & "(PinYin,AscCode) values('keng',-16429)"     ReDim Preserve strSqls(147)     strSqls(147) = "insert into " & strTableName & "(PinYin,AscCode) values('kong',-16427)"     ReDim Preserve strSqls(148)     strSqls(148) = "insert into " & strTableName & "(PinYin,AscCode) values('kou',-16423)"     ReDim Preserve strSqls(149)     strSqls(149) = "insert into " & strTableName & "(PinYin,AscCode) values('ku',-16419)"     ReDim Preserve strSqls(150)     strSqls(150) = "insert into " & strTableName & "(PinYin,AscCode) values('kua',-16412)"     ReDim Preserve strSqls(151)     strSqls(151) = "insert into " & strTableName & "(PinYin,AscCode) values('kuai',-16407)"     ReDim Preserve strSqls(152)     strSqls(152) = "insert into " & strTableName & "(PinYin,AscCode) values('kuan',-16403)"     ReDim Preserve strSqls(153)     strSqls(153) = "insert into " & strTableName & "(PinYin,AscCode) values('kuang',-16401)"     ReDim Preserve strSqls(154)     strSqls(154) = "insert into " & strTableName & "(PinYin,AscCode) values('kui',-16393)"     ReDim Preserve strSqls(155)     strSqls(155) = "insert into " & strTableName & "(PinYin,AscCode) values('kun',-16220)"     ReDim Preserve strSqls(156)     strSqls(156) = "insert into " & strTableName & "(PinYin,AscCode) values('kuo',-16216)"     ReDim Preserve strSqls(157)     strSqls(157) = "insert into " & strTableName & "(PinYin,AscCode) values('la',-16212)"     ReDim Preserve strSqls(158)     strSqls(158) = "insert into " & strTableName & "(PinYin,AscCode) values('lai',-16205)"     ReDim Preserve strSqls(159)     strSqls(159) = "insert into " & strTableName & "(PinYin,AscCode) values('lan',-16202)"     ReDim Preserve strSqls(160)     strSqls(160) = "insert into " & strTableName & "(PinYin,AscCode) values('lang',-16187)"     ReDim Preserve strSqls(161)     strSqls(161) = "insert into " & strTableName & "(PinYin,AscCode) values('lao',-16180)"     ReDim Preserve strSqls(162)     strSqls(162) = "insert into " & strTableName & "(PinYin,AscCode) values('le',-16171)"     ReDim Preserve strSqls(163)     strSqls(163) = "insert into " & strTableName & "(PinYin,AscCode) values('lei',-16169)"     ReDim Preserve strSqls(164)     strSqls(164) = "insert into " & strTableName & "(PinYin,AscCode) values('leng',-16158)"     ReDim Preserve strSqls(165)     strSqls(165) = "insert into " & strTableName & "(PinYin,AscCode) values('li',-16155)"     ReDim Preserve strSqls(166)     strSqls(166) = "insert into " & strTableName & "(PinYin,AscCode) values('lia',-15959)"     ReDim Preserve strSqls(167)     strSqls(167) = "insert into " & strTableName & "(PinYin,AscCode) values('lian',-15958)"     ReDim Preserve strSqls(168)     strSqls(168) = "insert into " & strTableName & "(PinYin,AscCode) values('liang',-15944)"     ReDim Preserve strSqls(169)     strSqls(169) = "insert into " & strTableName & "(PinYin,AscCode) values('liao',-15933)"     ReDim Preserve strSqls(170)     strSqls(170) = "insert into " & strTableName & "(PinYin,AscCode) values('lie',-15920)"     ReDim Preserve strSqls(171)     strSqls(171) = "insert into " & strTableName & "(PinYin,AscCode) values('lin',-15915)"     ReDim Preserve strSqls(172)     strSqls(172) = "insert into " & strTableName & "(PinYin,AscCode) values('ling',-15903)"     ReDim Preserve strSqls(173)     strSqls(173) = "insert into " & strTableName & "(PinYin,AscCode) values('liu',-15889)"     ReDim Preserve strSqls(174)     strSqls(174) = "insert into " & strTableName & "(PinYin,AscCode) values('long',-15878)"     ReDim Preserve strSqls(175)     strSqls(175) = "insert into " & strTableName & "(PinYin,AscCode) values('lou',-15707)"     ReDim Preserve strSqls(176)     strSqls(176) = "insert into " & strTableName & "(PinYin,AscCode) values('lu',-15701)"     ReDim Preserve strSqls(177)     strSqls(177) = "insert into " & strTableName & "(PinYin,AscCode) values('lv',-15681)"     ReDim Preserve strSqls(178)     strSqls(178) = "insert into " & strTableName & "(PinYin,AscCode) values('luan',-15667)"     ReDim Preserve strSqls(179)     strSqls(179) = "insert into " & strTableName & "(PinYin,AscCode) values('lue',-15661)"     ReDim Preserve strSqls(180)     strSqls(180) = "insert into " & strTableName & "(PinYin,AscCode) values('lun',-15659)"     ReDim Preserve strSqls(181)     strSqls(181) = "insert into " & strTableName & "(PinYin,AscCode) values('luo',-15652)"     ReDim Preserve strSqls(182)     strSqls(182) = "insert into " & strTableName & "(PinYin,AscCode) values('ma',-15640)"     ReDim Preserve strSqls(183)     strSqls(183) = "insert into " & strTableName & "(PinYin,AscCode) values('mai',-15631)"     ReDim Preserve strSqls(184)     strSqls(184) = "insert into " & strTableName & "(PinYin,AscCode) values('man',-15625)"     ReDim Preserve strSqls(185)     strSqls(185) = "insert into " & strTableName & "(PinYin,AscCode) values('mang',-15454)"     ReDim Preserve strSqls(186)     strSqls(186) = "insert into " & strTableName & "(PinYin,AscCode) values('mao',-15448)"     ReDim Preserve strSqls(187)     strSqls(187) = "insert into " & strTableName & "(PinYin,AscCode) values('me',-15436)"     ReDim Preserve strSqls(188)     strSqls(188) = "insert into " & strTableName & "(PinYin,AscCode) values('mei',-15435)"     ReDim Preserve strSqls(189)     strSqls(189) = "insert into " & strTableName & "(PinYin,AscCode) values('men',-15419)"     ReDim Preserve strSqls(190)     strSqls(190) = "insert into " & strTableName & "(PinYin,AscCode) values('meng',-15416)"     ReDim Preserve strSqls(191)     strSqls(191) = "insert into " & strTableName & "(PinYin,AscCode) values('mi',-15408)"     ReDim Preserve strSqls(192)     strSqls(192) = "insert into " & strTableName & "(PinYin,AscCode) values('mian',-15394)"     ReDim Preserve strSqls(193)     strSqls(193) = "insert into " & strTableName & "(PinYin,AscCode) values('miao',-15385)"     ReDim Preserve strSqls(194)     strSqls(194) = "insert into " & strTableName & "(PinYin,AscCode) values('mie',-15377)"     ReDim Preserve strSqls(195)     strSqls(195) = "insert into " & strTableName & "(PinYin,AscCode) values('min',-15375)"     ReDim Preserve strSqls(196)     strSqls(196) = "insert into " & strTableName & "(PinYin,AscCode) values('ming',-15369)"     ReDim Preserve strSqls(197)     strSqls(197) = "insert into " & strTableName & "(PinYin,AscCode) values('miu',-15363)"     ReDim Preserve strSqls(198)     strSqls(198) = "insert into " & strTableName & "(PinYin,AscCode) values('mo',-15362)"     ReDim Preserve strSqls(199)     strSqls(199) = "insert into " & strTableName & "(PinYin,AscCode) values('mou',-15183)"     ReDim Preserve strSqls(200)     strSqls(200) = "insert into " & strTableName & "(PinYin,AscCode) values('mu',-15180)"     ReDim Preserve strSqls(201)     strSqls(201) = "insert into " & strTableName & "(PinYin,AscCode) values('na',-15165)"     ReDim Preserve strSqls(202)     strSqls(202) = "insert into " & strTableName & "(PinYin,AscCode) values('nai',-15158)"     ReDim Preserve strSqls(203)     strSqls(203) = "insert into " & strTableName & "(PinYin,AscCode) values('nan',-15153)"     ReDim Preserve strSqls(204)     strSqls(204) = "insert into " & strTableName & "(PinYin,AscCode) values('nang',-15150)"     ReDim Preserve strSqls(205)     strSqls(205) = "insert into " & strTableName & "(PinYin,AscCode) values('nao',-15149)"     ReDim Preserve strSqls(206)     strSqls(206) = "insert into " & strTableName & "(PinYin,AscCode) values('ne',-15144)"     ReDim Preserve strSqls(207)     strSqls(207) = "insert into " & strTableName & "(PinYin,AscCode) values('nei',-15143)"     ReDim Preserve strSqls(208)     strSqls(208) = "insert into " & strTableName & "(PinYin,AscCode) values('nen',-15141)"     ReDim Preserve strSqls(209)     strSqls(209) = "insert into " & strTableName & "(PinYin,AscCode) values('neng',-15140)"     ReDim Preserve strSqls(210)     strSqls(210) = "insert into " & strTableName & "(PinYin,AscCode) values('ni',-15139)"     ReDim Preserve strSqls(211)     strSqls(211) = "insert into " & strTableName & "(PinYin,AscCode) values('nian',-15128)"     ReDim Preserve strSqls(212)     strSqls(212) = "insert into " & strTableName & "(PinYin,AscCode) values('niang',-15121)"     ReDim Preserve strSqls(213)     strSqls(213) = "insert into " & strTableName & "(PinYin,AscCode) values('niao',-15119)"     ReDim Preserve strSqls(214)     strSqls(214) = "insert into " & strTableName & "(PinYin,AscCode) values('nie',-15117)"     ReDim Preserve strSqls(215)     strSqls(215) = "insert into " & strTableName & "(PinYin,AscCode) values('nin',-15110)"     ReDim Preserve strSqls(216)     strSqls(216) = "insert into " & strTableName & "(PinYin,AscCode) values('ning',-15109)"     ReDim Preserve strSqls(217)     strSqls(217) = "insert into " & strTableName & "(PinYin,AscCode) values('niu',-14941)"     ReDim Preserve strSqls(218)     strSqls(218) = "insert into " & strTableName & "(PinYin,AscCode) values('nong',-14937)"     ReDim Preserve strSqls(219)     strSqls(219) = "insert into " & strTableName & "(PinYin,AscCode) values('nu',-14933)"     ReDim Preserve strSqls(220)     strSqls(220) = "insert into " & strTableName & "(PinYin,AscCode) values('nv',-14930)"     ReDim Preserve strSqls(221)     strSqls(221) = "insert into " & strTableName & "(PinYin,AscCode) values('nuan',-14929)"     ReDim Preserve strSqls(222)     strSqls(222) = "insert into " & strTableName & "(PinYin,AscCode) values('nue',-14928)"     ReDim Preserve strSqls(223)     strSqls(223) = "insert into " & strTableName & "(PinYin,AscCode) values('nuo',-14926)"     ReDim Preserve strSqls(224)     strSqls(224) = "insert into " & strTableName & "(PinYin,AscCode) values('o',-14922)"     ReDim Preserve strSqls(225)     strSqls(225) = "insert into " & strTableName & "(PinYin,AscCode) values('ou',-14921)"     ReDim Preserve strSqls(226)     strSqls(226) = "insert into " & strTableName & "(PinYin,AscCode) values('pa',-14914)"     ReDim Preserve strSqls(227)     strSqls(227) = "insert into " & strTableName & "(PinYin,AscCode) values('pai',-14908)"     ReDim Preserve strSqls(228)     strSqls(228) = "insert into " & strTableName & "(PinYin,AscCode) values('pan',-14902)"     ReDim Preserve strSqls(229)     strSqls(229) = "insert into " & strTableName & "(PinYin,AscCode) values('pang',-14894)"     ReDim Preserve strSqls(230)     strSqls(230) = "insert into " & strTableName & "(PinYin,AscCode) values('pao',-14889)"     ReDim Preserve strSqls(231)     strSqls(231) = "insert into " & strTableName & "(PinYin,AscCode) values('pei',-14882)"     ReDim Preserve strSqls(232)     strSqls(232) = "insert into " & strTableName & "(PinYin,AscCode) values('pen',-14873)"     ReDim Preserve strSqls(233)     strSqls(233) = "insert into " & strTableName & "(PinYin,AscCode) values('peng',-14871)"     ReDim Preserve strSqls(234)     strSqls(234) = "insert into " & strTableName & "(PinYin,AscCode) values('pi',-14857)"     ReDim Preserve strSqls(235)     strSqls(235) = "insert into " & strTableName & "(PinYin,AscCode) values('pian',-14678)"     ReDim Preserve strSqls(236)     strSqls(236) = "insert into " & strTableName & "(PinYin,AscCode) values('piao',-14674)"     ReDim Preserve strSqls(237)     strSqls(237) = "insert into " & strTableName & "(PinYin,AscCode) values('pie',-14670)"     ReDim Preserve strSqls(238)     strSqls(238) = "insert into " & strTableName & "(PinYin,AscCode) values('pin',-14668)"     ReDim Preserve strSqls(239)     strSqls(239) = "insert into " & strTableName & "(PinYin,AscCode) values('ping',-14663)"     ReDim Preserve strSqls(240)     strSqls(240) = "insert into " & strTableName & "(PinYin,AscCode) values('po',-14654)"     ReDim Preserve strSqls(241)     strSqls(241) = "insert into " & strTableName & "(PinYin,AscCode) values('pu',-14645)"     ReDim Preserve strSqls(242)     strSqls(242) = "insert into " & strTableName & "(PinYin,AscCode) values('qi',-14630)"     ReDim Preserve strSqls(243)     strSqls(243) = "insert into " & strTableName & "(PinYin,AscCode) values('qia',-14594)"     ReDim Preserve strSqls(244)     strSqls(244) = "insert into " & strTableName & "(PinYin,AscCode) values('qian',-14429)"     ReDim Preserve strSqls(245)     strSqls(245) = "insert into " & strTableName & "(PinYin,AscCode) values('qiang',-14407)"     ReDim Preserve strSqls(246)     strSqls(246) = "insert into " & strTableName & "(PinYin,AscCode) values('qiao',-14399)"     ReDim Preserve strSqls(247)     strSqls(247) = "insert into " & strTableName & "(PinYin,AscCode) values('qie',-14384)"     ReDim Preserve strSqls(248)     strSqls(248) = "insert into " & strTableName & "(PinYin,AscCode) values('qin',-14379)"     ReDim Preserve strSqls(249)     strSqls(249) = "insert into " & strTableName & "(PinYin,AscCode) values('qing',-14368)"     ReDim Preserve strSqls(250)     strSqls(250) = "insert into " & strTableName & "(PinYin,AscCode) values('qiong',-14355)"     ReDim Preserve strSqls(251)     strSqls(251) = "insert into " & strTableName & "(PinYin,AscCode) values('qiu',-14353)"     ReDim Preserve strSqls(252)     strSqls(252) = "insert into " & strTableName & "(PinYin,AscCode) values('qu',-14345)"     ReDim Preserve strSqls(253)     strSqls(253) = "insert into " & strTableName & "(PinYin,AscCode) values('quan',-14170)"     ReDim Preserve strSqls(254)     strSqls(254) = "insert into " & strTableName & "(PinYin,AscCode) values('que',-14159)"     ReDim Preserve strSqls(255)     strSqls(255) = "insert into " & strTableName & "(PinYin,AscCode) values('qun',-14151)"     ReDim Preserve strSqls(256)     strSqls(256) = "insert into " & strTableName & "(PinYin,AscCode) values('ran',-14149)"     ReDim Preserve strSqls(257)     strSqls(257) = "insert into " & strTableName & "(PinYin,AscCode) values('rang',-14145)"     ReDim Preserve strSqls(258)     strSqls(258) = "insert into " & strTableName & "(PinYin,AscCode) values('rao',-14140)"     ReDim Preserve strSqls(259)     strSqls(259) = "insert into " & strTableName & "(PinYin,AscCode) values('re',-14137)"     ReDim Preserve strSqls(260)     strSqls(260) = "insert into " & strTableName & "(PinYin,AscCode) values('ren',-14135)"     ReDim Preserve strSqls(261)     strSqls(261) = "insert into " & strTableName & "(PinYin,AscCode) values('reng',-14125)"     ReDim Preserve strSqls(262)     strSqls(262) = "insert into " & strTableName & "(PinYin,AscCode) values('ri',-14123)"     ReDim Preserve strSqls(263)     strSqls(263) = "insert into " & strTableName & "(PinYin,AscCode) values('rong',-14122)"     ReDim Preserve strSqls(264)     strSqls(264) = "insert into " & strTableName & "(PinYin,AscCode) values('rou',-14112)"     ReDim Preserve strSqls(265)     strSqls(265) = "insert into " & strTableName & "(PinYin,AscCode) values('ru',-14109)"     ReDim Preserve strSqls(266)     strSqls(266) = "insert into " & strTableName & "(PinYin,AscCode) values('ruan',-14099)"     ReDim Preserve strSqls(267)     strSqls(267) = "insert into " & strTableName & "(PinYin,AscCode) values('rui',-14097)"     ReDim Preserve strSqls(268)     strSqls(268) = "insert into " & strTableName & "(PinYin,AscCode) values('run',-14094)"     ReDim Preserve strSqls(269)     strSqls(269) = "insert into " & strTableName & "(PinYin,AscCode) values('ruo',-14092)"     ReDim Preserve strSqls(270)     strSqls(270) = "insert into " & strTableName & "(PinYin,AscCode) values('sa',-14090)"     ReDim Preserve strSqls(271)     strSqls(271) = "insert into " & strTableName & "(PinYin,AscCode) values('sai',-14087)"     ReDim Preserve strSqls(272)     strSqls(272) = "insert into " & strTableName & "(PinYin,AscCode) values('san',-14083)"     ReDim Preserve strSqls(273)     strSqls(273) = "insert into " & strTableName & "(PinYin,AscCode) values('sang',-13917)"     ReDim Preserve strSqls(274)     strSqls(274) = "insert into " & strTableName & "(PinYin,AscCode) values('sao',-13914)"     ReDim Preserve strSqls(275)     strSqls(275) = "insert into " & strTableName & "(PinYin,AscCode) values('se',-13910)"     ReDim Preserve strSqls(276)     strSqls(276) = "insert into " & strTableName & "(PinYin,AscCode) values('sen',-13907)"     ReDim Preserve strSqls(277)     strSqls(277) = "insert into " & strTableName & "(PinYin,AscCode) values('seng',-13906)"     ReDim Preserve strSqls(278)     strSqls(278) = "insert into " & strTableName & "(PinYin,AscCode) values('sha',-13905)"     ReDim Preserve strSqls(279)     strSqls(279) = "insert into " & strTableName & "(PinYin,AscCode) values('shai',-13896)"     ReDim Preserve strSqls(280)     strSqls(280) = "insert into " & strTableName & "(PinYin,AscCode) values('shan',-13894)"     ReDim Preserve strSqls(281)     strSqls(281) = "insert into " & strTableName & "(PinYin,AscCode) values('shang',-13878)"     ReDim Preserve strSqls(282)     strSqls(282) = "insert into " & strTableName & "(PinYin,AscCode) values('shao',-13870)"     ReDim Preserve strSqls(283)     strSqls(283) = "insert into " & strTableName & "(PinYin,AscCode) values('she',-13859)"     ReDim Preserve strSqls(284)     strSqls(284) = "insert into " & strTableName & "(PinYin,AscCode) values('shen',-13847)"     ReDim Preserve strSqls(285)     strSqls(285) = "insert into " & strTableName & "(PinYin,AscCode) values('sheng',-13831)"     ReDim Preserve strSqls(286)     strSqls(286) = "insert into " & strTableName & "(PinYin,AscCode) values('shi',-13658)"     ReDim Preserve strSqls(287)     strSqls(287) = "insert into " & strTableName & "(PinYin,AscCode) values('shou',-13611)"     ReDim Preserve strSqls(288)     strSqls(288) = "insert into " & strTableName & "(PinYin,AscCode) values('shu',-13601)"     ReDim Preserve strSqls(289)     strSqls(289) = "insert into " & strTableName & "(PinYin,AscCode) values('shua',-13406)"     ReDim Preserve strSqls(290)     strSqls(290) = "insert into " & strTableName & "(PinYin,AscCode) values('shuai',-13404)"     ReDim Preserve strSqls(291)     strSqls(291) = "insert into " & strTableName & "(PinYin,AscCode) values('shuan',-13400)"     ReDim Preserve strSqls(292)     strSqls(292) = "insert into " & strTableName & "(PinYin,AscCode) values('shuang',-1339)"     ReDim Preserve strSqls(293)     strSqls(293) = "insert into " & strTableName & "(PinYin,AscCode) values('shui',-13395)"     ReDim Preserve strSqls(294)     strSqls(294) = "insert into " & strTableName & "(PinYin,AscCode) values('shun',-13391)"     ReDim Preserve strSqls(295)     strSqls(295) = "insert into " & strTableName & "(PinYin,AscCode) values('shuo',-13387)"     ReDim Preserve strSqls(296)     strSqls(296) = "insert into " & strTableName & "(PinYin,AscCode) values('si',-13383)"     ReDim Preserve strSqls(297)     strSqls(297) = "insert into " & strTableName & "(PinYin,AscCode) values('song',-13367)"     ReDim Preserve strSqls(298)     strSqls(298) = "insert into " & strTableName & "(PinYin,AscCode) values('sou',-13359)"     ReDim Preserve strSqls(299)     strSqls(299) = "insert into " & strTableName & "(PinYin,AscCode) values('su',-13356)"     ReDim Preserve strSqls(300)     strSqls(300) = "insert into " & strTableName & "(PinYin,AscCode) values('suan',-13343)"     ReDim Preserve strSqls(301)     strSqls(301) = "insert into " & strTableName & "(PinYin,AscCode) values('sui',-13340)"     ReDim Preserve strSqls(302)     strSqls(302) = "insert into " & strTableName & "(PinYin,AscCode) values('sun',-13329)"     ReDim Preserve strSqls(303)     strSqls(303) = "insert into " & strTableName & "(PinYin,AscCode) values('suo',-13326)"     ReDim Preserve strSqls(304)     strSqls(304) = "insert into " & strTableName & "(PinYin,AscCode) values('ta',-13318)"     ReDim Preserve strSqls(305)     strSqls(305) = "insert into " & strTableName & "(PinYin,AscCode) values('tai',-13147)"     ReDim Preserve strSqls(306)     strSqls(306) = "insert into " & strTableName & "(PinYin,AscCode) values('tan',-13138)"     ReDim Preserve strSqls(307)     strSqls(307) = "insert into " & strTableName & "(PinYin,AscCode) values('tang',-13120)"     ReDim Preserve strSqls(308)     strSqls(308) = "insert into " & strTableName & "(PinYin,AscCode) values('tao',-13107)"     ReDim Preserve strSqls(309)     strSqls(309) = "insert into " & strTableName & "(PinYin,AscCode) values('te',-13096)"     ReDim Preserve strSqls(310)     strSqls(310) = "insert into " & strTableName & "(PinYin,AscCode) values('teng',-13095)"     ReDim Preserve strSqls(311)     strSqls(311) = "insert into " & strTableName & "(PinYin,AscCode) values('ti',-13091)"     ReDim Preserve strSqls(312)     strSqls(312) = "insert into " & strTableName & "(PinYin,AscCode) values('tian',-13076)"     ReDim Preserve strSqls(313)     strSqls(313) = "insert into " & strTableName & "(PinYin,AscCode) values('tiao',-13068)"     ReDim Preserve strSqls(314)     strSqls(314) = "insert into " & strTableName & "(PinYin,AscCode) values('tie',-13063)"     ReDim Preserve strSqls(315)     strSqls(315) = "insert into " & strTableName & "(PinYin,AscCode) values('ting',-13060)"     ReDim Preserve strSqls(316)     strSqls(316) = "insert into " & strTableName & "(PinYin,AscCode) values('tong',-12888)"     ReDim Preserve strSqls(317)     strSqls(317) = "insert into " & strTableName & "(PinYin,AscCode) values('tou',-12875)"     ReDim Preserve strSqls(318)     strSqls(318) = "insert into " & strTableName & "(PinYin,AscCode) values('tu',-12871)"     ReDim Preserve strSqls(319)     strSqls(319) = "insert into " & strTableName & "(PinYin,AscCode) values('tuan',-12860)"     ReDim Preserve strSqls(320)     strSqls(320) = "insert into " & strTableName & "(PinYin,AscCode) values('tui',-12858)"     ReDim Preserve strSqls(321)     strSqls(321) = "insert into " & strTableName & "(PinYin,AscCode) values('tun',-12852)"     ReDim Preserve strSqls(322)     strSqls(322) = "insert into " & strTableName & "(PinYin,AscCode) values('tuo',-12849)"     ReDim Preserve strSqls(323)     strSqls(323) = "insert into " & strTableName & "(PinYin,AscCode) values('wa',-12838)"     ReDim Preserve strSqls(324)     strSqls(324) = "insert into " & strTableName & "(PinYin,AscCode) values('wai',-12831)"     ReDim Preserve strSqls(325)     strSqls(325) = "insert into " & strTableName & "(PinYin,AscCode) values('wan',-12829)"     ReDim Preserve strSqls(326)     strSqls(326) = "insert into " & strTableName & "(PinYin,AscCode) values('wang',-12812)"     ReDim Preserve strSqls(327)     strSqls(327) = "insert into " & strTableName & "(PinYin,AscCode) values('wei',-12802)"     ReDim Preserve strSqls(328)     strSqls(328) = "insert into " & strTableName & "(PinYin,AscCode) values('wen',-12607)"     ReDim Preserve strSqls(329)     strSqls(329) = "insert into " & strTableName & "(PinYin,AscCode) values('weng',-12597)"     ReDim Preserve strSqls(330)     strSqls(330) = "insert into " & strTableName & "(PinYin,AscCode) values('wo',-12594)"     ReDim Preserve strSqls(331)     strSqls(331) = "insert into " & strTableName & "(PinYin,AscCode) values('wu',-12585)"     ReDim Preserve strSqls(332)     strSqls(332) = "insert into " & strTableName & "(PinYin,AscCode) values('xi',-12556)"     ReDim Preserve strSqls(333)     strSqls(333) = "insert into " & strTableName & "(PinYin,AscCode) values('xia',-12359)"     ReDim Preserve strSqls(334)     strSqls(334) = "insert into " & strTableName & "(PinYin,AscCode) values('xian',-12346)"     ReDim Preserve strSqls(335)     strSqls(335) = "insert into " & strTableName & "(PinYin,AscCode) values('xiang',-12320)"     ReDim Preserve strSqls(336)     strSqls(336) = "insert into " & strTableName & "(PinYin,AscCode) values('xiao',-12300)"     ReDim Preserve strSqls(337)     strSqls(337) = "insert into " & strTableName & "(PinYin,AscCode) values('xie',-12120)"     ReDim Preserve strSqls(338)     strSqls(338) = "insert into " & strTableName & "(PinYin,AscCode) values('xin',-12099)"     ReDim Preserve strSqls(339)     strSqls(339) = "insert into " & strTableName & "(PinYin,AscCode) values('xing',-12089)"     ReDim Preserve strSqls(340)     strSqls(340) = "insert into " & strTableName & "(PinYin,AscCode) values('xiong',-12074)"     ReDim Preserve strSqls(341)     strSqls(341) = "insert into " & strTableName & "(PinYin,AscCode) values('xiu',-12067)"     ReDim Preserve strSqls(342)     strSqls(342) = "insert into " & strTableName & "(PinYin,AscCode) values('xu',-12058)"     ReDim Preserve strSqls(343)     strSqls(343) = "insert into " & strTableName & "(PinYin,AscCode) values('xuan',-12039)"     ReDim Preserve strSqls(344)     strSqls(344) = "insert into " & strTableName & "(PinYin,AscCode) values('xue',-11867)"     ReDim Preserve strSqls(345)     strSqls(345) = "insert into " & strTableName & "(PinYin,AscCode) values('xun',-11861)"     ReDim Preserve strSqls(346)     strSqls(346) = "insert into " & strTableName & "(PinYin,AscCode) values('ya',-11847)"     ReDim Preserve strSqls(347)     strSqls(347) = "insert into " & strTableName & "(PinYin,AscCode) values('yan',-11831)"     ReDim Preserve strSqls(348)     strSqls(348) = "insert into " & strTableName & "(PinYin,AscCode) values('yang',-11798)"     ReDim Preserve strSqls(349)     strSqls(349) = "insert into " & strTableName & "(PinYin,AscCode) values('yao',-11781)"     ReDim Preserve strSqls(350)     strSqls(350) = "insert into " & strTableName & "(PinYin,AscCode) values('ye',-11604)"     ReDim Preserve strSqls(351)     strSqls(351) = "insert into " & strTableName & "(PinYin,AscCode) values('yi',-11589)"     ReDim Preserve strSqls(352)     strSqls(352) = "insert into " & strTableName & "(PinYin,AscCode) values('yin',-11536)"     ReDim Preserve strSqls(353)     strSqls(353) = "insert into " & strTableName & "(PinYin,AscCode) values('ying',-11358)"     ReDim Preserve strSqls(354)     strSqls(354) = "insert into " & strTableName & "(PinYin,AscCode) values('yo',-11340)"     ReDim Preserve strSqls(355)     strSqls(355) = "insert into " & strTableName & "(PinYin,AscCode) values('yong',-11339)"     ReDim Preserve strSqls(356)     strSqls(356) = "insert into " & strTableName & "(PinYin,AscCode) values('you',-11324)"     ReDim Preserve strSqls(357)     strSqls(357) = "insert into " & strTableName & "(PinYin,AscCode) values('yu',-11303)"     ReDim Preserve strSqls(358)     strSqls(358) = "insert into " & strTableName & "(PinYin,AscCode) values('yuan',-11097)"     ReDim Preserve strSqls(359)     strSqls(359) = "insert into " & strTableName & "(PinYin,AscCode) values('yue',-11077)"     ReDim Preserve strSqls(360)     strSqls(360) = "insert into " & strTableName & "(PinYin,AscCode) values('yun',-11067)"     ReDim Preserve strSqls(361)     strSqls(361) = "insert into " & strTableName & "(PinYin,AscCode) values('za',-11055)"     ReDim Preserve strSqls(362)     strSqls(362) = "insert into " & strTableName & "(PinYin,AscCode) values('zai',-11052)"     ReDim Preserve strSqls(363)     strSqls(363) = "insert into " & strTableName & "(PinYin,AscCode) values('zan',-11045)"     ReDim Preserve strSqls(364)     strSqls(364) = "insert into " & strTableName & "(PinYin,AscCode) values('zang',-11041)"     ReDim Preserve strSqls(365)     strSqls(365) = "insert into " & strTableName & "(PinYin,AscCode) values('zao',-11038)"     ReDim Preserve strSqls(366)     strSqls(366) = "insert into " & strTableName & "(PinYin,AscCode) values('ze',-11024)"     ReDim Preserve strSqls(367)     strSqls(367) = "insert into " & strTableName & "(PinYin,AscCode) values('zei',-11020)"     ReDim Preserve strSqls(368)     strSqls(368) = "insert into " & strTableName & "(PinYin,AscCode) values('zen',-11019)"     ReDim Preserve strSqls(369)     strSqls(369) = "insert into " & strTableName & "(PinYin,AscCode) values('zeng',-11018)"     ReDim Preserve strSqls(370)     strSqls(370) = "insert into " & strTableName & "(PinYin,AscCode) values('zha',-11014)"     ReDim Preserve strSqls(371)     strSqls(371) = "insert into " & strTableName & "(PinYin,AscCode) values('zhai',-10838)"     ReDim Preserve strSqls(372)     strSqls(372) = "insert into " & strTableName & "(PinYin,AscCode) values('zhan',-10832)"     ReDim Preserve strSqls(373)     strSqls(373) = "insert into " & strTableName & "(PinYin,AscCode) values('zhang',-10815)"     ReDim Preserve strSqls(374)     strSqls(374) = "insert into " & strTableName & "(PinYin,AscCode) values('zhao',-10800)"     ReDim Preserve strSqls(375)     strSqls(375) = "insert into " & strTableName & "(PinYin,AscCode) values('zhe',-10790)"     ReDim Preserve strSqls(376)     strSqls(376) = "insert into " & strTableName & "(PinYin,AscCode) values('zhen',-10780)"     ReDim Preserve strSqls(377)     strSqls(377) = "insert into " & strTableName & "(PinYin,AscCode) values('zheng',-10764)"     ReDim Preserve strSqls(378)     strSqls(378) = "insert into " & strTableName & "(PinYin,AscCode) values('zhi',-10587)"     ReDim Preserve strSqls(379)     strSqls(379) = "insert into " & strTableName & "(PinYin,AscCode) values('zhong',-10544)"     ReDim Preserve strSqls(380)     strSqls(380) = "insert into " & strTableName & "(PinYin,AscCode) values('zhou',-10533)"     ReDim Preserve strSqls(381)     strSqls(381) = "insert into " & strTableName & "(PinYin,AscCode) values('zhu',-10519)"     ReDim Preserve strSqls(382)     strSqls(382) = "insert into " & strTableName & "(PinYin,AscCode) values('zhua',-10331)"     ReDim Preserve strSqls(383)     strSqls(383) = "insert into " & strTableName & "(PinYin,AscCode) values('zhuai',-10329)"     ReDim Preserve strSqls(384)     strSqls(384) = "insert into " & strTableName & "(PinYin,AscCode) values('zhuan',-10328)"     ReDim Preserve strSqls(385)     strSqls(385) = "insert into " & strTableName & "(PinYin,AscCode) values('zhuang',-1032)"     ReDim Preserve strSqls(386)     strSqls(386) = "insert into " & strTableName & "(PinYin,AscCode) values('zhui',-10315)"     ReDim Preserve strSqls(387)     strSqls(387) = "insert into " & strTableName & "(PinYin,AscCode) values('zhun',-10309)"     ReDim Preserve strSqls(388)     strSqls(388) = "insert into " & strTableName & "(PinYin,AscCode) values('zhuo',-10307)"     ReDim Preserve strSqls(389)     strSqls(389) = "insert into " & strTableName & "(PinYin,AscCode) values('zi',-10296)"     ReDim Preserve strSqls(390)     strSqls(390) = "insert into " & strTableName & "(PinYin,AscCode) values('zong',-10281)"     ReDim Preserve strSqls(391)     strSqls(391) = "insert into " & strTableName & "(PinYin,AscCode) values('zou',-10274)"     ReDim Preserve strSqls(392)     strSqls(392) = "insert into " & strTableName & "(PinYin,AscCode) values('zu',-10270)"     ReDim Preserve strSqls(393)     strSqls(393) = "insert into " & strTableName & "(PinYin,AscCode) values('zuan',-10262)"     ReDim Preserve strSqls(394)     strSqls(394) = "insert into " & strTableName & "(PinYin,AscCode) values('zui',-10260)"     ReDim Preserve strSqls(395)     strSqls(395) = "insert into " & strTableName & "(PinYin,AscCode) values('zun',-10256)"     ReDim Preserve strSqls(396)     strSqls(396) = "insert into " & strTableName & "(PinYin,AscCode) values('zuo',-10254)"     '---------- SQL 代码结束 ----------                                    Debug.Print UBound(strSqls)     Dim i As Long     For i = 1 To UBound(strSqls)         Conn.Execute strSqls(i)     Next     Conn.CommitTrans    End Function   方法二： 也可以直接用一对一的方法来判断 http://access911.net/down/software/PinYinZiKu.rar (99KB) Public Function GetPinYin(ByVal strWords As String, Optional ByVal intMod As Integer) As String     Dim i As Long     Dim i1 As Long     Dim strA As String     Dim strB As String          i1 = Len(Nz(strWords, ""))     If i1 = 0 Then         GetPinYin = ""         Exit Function     End If     For i = 1 To i1         strA = Mid(strWords, i, 1)         If Asc(strA) < 0 Or Asc(strA) > 255 Then             Select Case intMod             '0  表示取全拼             '1  表示取首字母             Case 0                 strB = strB & Nz(DLookup("py2", "winpy", "chs='" & strA & "'"), strA)                 DoEvents             Case 1                 strB = strB & Left(Nz(DLookup("py2", "winpy", "chs='" & strA & "'"), strA), 1)                 DoEvents             End Select         End If     Next     Debug.Print strWords     GetPinYin = strB End Function   access911.net 原创文章，作者本人对文章保留一切权利。 如需转载必须征得作者同意并注明本站链接