Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> 函数  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702102
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

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

作者:cg1  摘自:access911.net  :cg1  更新日期:2005-7-4  浏览人次:

 

方法一:


可以用 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 原创文章,作者本人对文章保留一切权利。
如需转载必须征得作者同意并注明本站链接

 

 
相关文章
     没有手动相关文章
     如何用VBA转换ACCESS97数据库到2000 2003 2007格式?
     如何实现行列的转换?有关交叉表的应用
     用代码证明窗体在记录跳转时触发了多少个事件
     关于单位“缇”与“像素”的转换,以及缇与其他单位(例如:厘米)之间的转换
     如何计算两个时间间隔并转换成“N天N小时N分N秒”这样的形式?
     新手来看:如何进行二进制到六十二进制向十进制的转换?
     VBA与T-SQL之间的函数比较;SQL Server的SQL语句如何在ACCESS中使用?
     SQL SERVER 与ACCESS、EXCEL的数据转换
     数字转二进制文本,十进制二进制互转
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利