access查询中调用自定义函数的方法是什么

欧非资源网：安全、免费、专业放心的资源下载站！ 最新软件|软件分类

您的位置：欧非资源网 > 其他专区 > Access > access查询中调用自定义函数的方法是什么

access查询中调用自定义函数的方法是什么 时间：2020-12-13 22:51作者：admin来源：未知人气：309我要评论(0)

在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;

最后，我们来看一下运行结果

文章评论

查看所有0条评论>>

分类索引