文章·资料 电脑软件 手机软件 网站源码




    本 站 搜 索
   推 荐 文 章        More...
华硕易电脑(ASUS Eee PC 10..
先来段开场白:为了外出携带方便..
Acronis True Image 使用..
  一款可以在Windows下使用..
Norton Ghost 使用详解
一、分区备份   使用Ghost..
    文 章 阅 读 排 行
世界各国所使用的国际域名..
域名缩写 国家/地区 ..
关于 Firefox 在中国持续..
亲爱的 Firefox 用户及 Firefox..
全国各地、公共 DNS 服务器
排序 地区/公司名称 ..
Microsoft SQL Server 2000..
  对于第一次安装 Microsoft ..
Windows 系统安装或备份时 ..
【ISO 文件】 ISO 文件其实..
Windows PE 系统安装微软..
如果电脑没有光驱,或者没有把..
ASP 网页编码 GB2312 转换..
1、用记事本打开文件(如果整站..
腾讯:难以承受之痛的背后..
亲爱的网吧管理员:   在此,..
SATA 硬盘分区设置与安装..
  随着i865、i875、KT600等..
Windows XP 安装界面修改..
安装装界面----也就是安装复制..
 文 章 信 息
解决 Access 数据库中搜索日文的问题
评论()〗〖留言〗〖收藏
〖文章分类:电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项
Function fuckjp(value_)
’此函数为老康自我需要而做,并不代表中国人民共和国政府之观点
’本人并不知道Japan是什么鸟意思
’本函数可用于简单的防止Access数据库因为含有这26个该死的日文字符而造成不能查询操作
’当然,使用此函数前请确定你不太在乎录入数据库的数据少几个日文字符

Dim fuckjapan
fuckjapan = replace(value_,"ゴ","?")
fuckjapan = replace(fuckjapan,"ガ","?")
fuckjapan = replace(fuckjapan,"ギ","?")
fuckjapan = replace(fuckjapan,"グ","?")
fuckjapan = replace(fuckjapan,"ゲ","?")
fuckjapan = replace(fuckjapan,"ザ","?")
fuckjapan = replace(fuckjapan,"ジ","?")
fuckjapan = replace(fuckjapan,"ズ","?")
fuckjapan = replace(fuckjapan,"ヅ","?")
fuckjapan = replace(fuckjapan,"デ","?")
fuckjapan = replace(fuckjapan,"ド","?")
fuckjapan = replace(fuckjapan,"ポ","?")
fuckjapan = replace(fuckjapan,"ベ","?")
fuckjapan = replace(fuckjapan,"プ","?")
fuckjapan = replace(fuckjapan,"ビ","?")
fuckjapan = replace(fuckjapan,"パ","?")
fuckjapan = replace(fuckjapan,"ヴ","?")
fuckjapan = replace(fuckjapan,"ボ","?")
fuckjapan = replace(fuckjapan,"ペ","?")
fuckjapan = replace(fuckjapan,"ブ","?")
fuckjapan = replace(fuckjapan,"ピ","?")
fuckjapan = replace(fuckjapan,"バ","?")
fuckjapan = replace(fuckjapan,"ヂ","?")
fuckjapan = replace(fuckjapan,"ダ","?")
fuckjapan = replace(fuckjapan,"ゾ","?")
fuckjapan = replace(fuckjapan,"ゼ","?")
fuckjp = fuckjapan

End Function

文章作者:未知  更新日期:2006-09-18
〖文章浏览:〗〖发送文章〗〖打印文章