个人觉得ACCESS可算目前最好的桌面数据库了,别看ACCESS比不上SQLSERVER和ORACLE等大东东,但是对于一些少量数据的处理,绝对比他们好用。
正好有这样一个需求:将中文转化成HTML的转义字符,以便在一些非中文编码的页面中可以显示,就是将中文的UNICODE编码写成&#十进制编码;的格式,于是写了一个VBSCRIPT函数实现这个功能:
'把中文转化成HTML转义字符的VBSCRIPT函数
Function ConvertChinese(str)
Dim nLen
nLen = Len(str)
Dim i
Dim strResult
strResult = ""
Dim nValue
For i=1 To nLen
nValue = Ascw(Mid(str, i, 1))
If nValue<0 Then
nValue = 65536 + nValue
End If
strResult = strResult & ("&#" & nValue & ";")
Next
ConvertChinese = strResult
End Function
然后,需要转化的数据在ACCESS中,如何就直接在ACCESS中转换呢?
在ACCESS中点击模块,新建一个,粘贴进VBSCRIPT的代码,保存模块。OK,ACCESS中就能够直接使用这个函数了,就这样简单!
新建一个查询,视图中选择SQL视图,输入这样的SQL语句:
SELECT UserName, ConvertChinese(UserName)
FROM User;
执行看看,函数执行的效果看见了吧!
分享到:
相关推荐
海量VBA自定义函数,希望大家能喜欢。在excel,access开发时非常有用
在ACCESS中点Visual Basic ,添加模块,将以下代码复制粘贴到通用部分,即可在该数据库查询中使用函数 getdxje(金额字段)实现人民币金额大写转换。
ACCESS高级操作 Access函数大全 access中有效性规则的写法 设置表中数据的格式
access基本函数介绍。 类型 函数名 函数格式 说明 算 术 函 数 绝对值 Abs(<数值表达式>) 返回数值表达式的绝对值 取整 Int(<数值表达式>) 返回数值表达式的整数部分值,参考为负值时返回大于等于参数值的第一个...
不开表获取数据自定义函数.xlsm
在ACCESS中自定义函数,提取不含中文的字符,如英文及符号等。
在使用ACCESS做本地数据开发的时候,经常会用到的一些access函数
全面的access的日期和时间函数 1.Cdate(日期表达式) 将日期表达式转换成日期类型的数据。 日期表达式是任何可以解释成日期的表达式,包含日期文字,可以看作日期的字符串以及从函数返回的日期。 比如:myDate = ...
ACCESS里自定义公式简单用法, 巧用Dlookup函数
Access运算符和函数.pdf
access函数大全access函数大全access函数大全access函数大全access函数大全access函数大全
ACCESS 函数,!
Access_日期时间函数第2版_儿化韵, Access_日期时间函数第2版_儿化韵
在一次项目中,项目已经就快完了,需求有来了,要求要按指定的方式排序,通过id,时间等进行正排序,倒排序 ...,适合于oracle,mySql,SqlServer,access等数据库中使用,我上传的文件有相关的例子,很容易看懂。
在ACCESS中通过小写人民币转大写ACCESS函数可以把金额这项数据作为汉字显示或打印。支票、电汇凭证、记账凭证。
Access函数汇总将VBA编程所需的主要函数作了详细的介绍.
一、Access常用内置SQL函数---日期时间函数 1.CDate 说明:将字符串转化成为日期 举例:select CDate("2008/4/5") 2.Date 说明:返回当前日期 举例:select Date() 3.DateAdd 说明:将指定日期加上某个日期 举例:...
Access函数大全.pdf
声明一个自定义函数,注册ODBC数据源; 自定义函数:实现Access数据源的ODBC注册
Access中各类函数使用详解,是使用Access数据库应用开发者的好帮手。