在Access查询中是可以直接调用自定义函数的，这可以帮助我们解决实际工作中一些特殊的查询统计。
（相关推荐：access数据库学习）
举例：
问：如何统计某些词语在歌词中出现在次数？
第一步：建表
具体的表见下图
第二步：编写自定义函数
具体的函数如下。这里有一个知识点，就是Split函数，这个以后我们再讲，这里先提一下。
[code=vb] Public Function WordFrequency(ByVal Lyric As String, ByVal Word As String) As String Dim arr As Variant Dim brr As Variant Dim i As Long Dim countChar As Long If Lyric = “” Or Word = “” Then Exit Function If InStrRev(Word, “|”) = 0 Then Exit Function arr = Split(Word, “|”) For i = 0 To UBound(arr) - 1 brr = Split(Lyric, arr(i)) countChar = UBound(brr) - LBound(brr) WordFrequency = WordFrequency & ““” & arr(i) & “”” & “出现次数：” & countChar & vbCrLf Next i End Function [/code]
第三步：建查询
具体的查询我们还是来看下面的截图
sql语句：
select 歌名, 歌词,分词, WordFrequency([歌词],[分词]) AS 词频 FROM 表2;
最后，我们来看一下运行结果
© 版权声明
文章版权归作者所有，未经允许请勿转载。
THE END
喜欢就支持一下吧
相关推荐
