判断数据库里存在的BIG5码
时间:2009-04-09 18:31:00
判断函数如下:
Public Function CheckBIG(strSource As String) As Boolean
Dim idx As Long
Dim ByteTemp() As Byte
CheckBIG = False
For idx = 1 To Len(strSource)
ByteTemp = StrConv(Mid(strSource, idx, 1), vbFromUnicode)
If UBound(ByteTemp) > 0 Then
If (ByteTemp(1) >= 64) And (ByteTemp(1) <= 126) Then
CheckBIG = True
Exit For
End If
End If
Next idx
End Function
标签:编码,数据库,函数
0
投稿
猜你喜欢
Access函数大全
2009-12-23 19:22:00
几种修复ACCESS数据库的实用方法
2008-11-20 17:37:00
如何利用SQL Server数据库快照形成报表
2009-01-15 11:55:00
70+漂亮且极具亲和力的导航菜单设计推荐[译]
2009-02-23 13:15:00
IE10增强对HTML5和CSS3的支持
2011-09-16 20:16:28
将设计执行到底—记Qzone项目组视觉设计标注的前前后后
2009-04-19 13:22:00
Web开发技术发展史话
2011-04-25 19:16:00
教你用压缩技术给SQL Server备份文件瘦身
2009-03-05 14:59:00
如何在ADSI中查询用户属性?
2010-06-17 12:53:00
link 和 style 元素在 HTML 文档中的位置
2008-06-02 13:56:00
YUI3.3.0 中 transition 事件的变化
2011-06-16 20:51:45
使用 TRUNCATE TABLE 删除所有行
2008-04-24 19:20:00
如何解决MySQL的客户端不支持鉴定协议
2008-11-27 17:10:00
Oracle误添加数据文件删除方法
2009-07-02 12:21:00
Mozilla专有JavaScript扩展之一(__noSuchMethod__)
2009-03-01 12:45:00
SQL0290N表空间状态问题:停顿的独占处理
2008-12-26 17:24:00
XML 增、删、改和查示例
2008-09-05 17:12:00
asp防范SQL注入攻击的函数
2008-03-11 12:23:00
浅谈Javascript中的事件流和事件绑定
2009-07-20 17:13:00
JavaScript 组件之旅(二):编码实现和算法
2009-10-09 14:24:00