Access中使用自定义函数（菜鸟级）

     个人觉得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;

   执行看看，函数执行的效果看见了吧！

评论

1 楼 cheunjq 2016-07-12  

同样的操作，为什么我的显示函数不存在，晕。