在Access查詢中是可以直接調(diào)用自定義函數(shù)的,這可以幫助我們解決實(shí)際工作中一些特殊的查詢統(tǒng)計(jì)。
(相關(guān)推薦:access數(shù)據(jù)庫學(xué)習(xí))
舉例:
問:如何統(tǒng)計(jì)某些詞語在歌詞中出現(xiàn)在次數(shù)?
第一步:建表
具體的表見下圖
第二步:編寫自定義函數(shù)
具體的函數(shù)如下。這里有一個(gè)知識(shí)點(diǎn),就是Split函數(shù),這個(gè)以后我們?cè)僦v,這里先提一下。
[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)?&?“””?&?“出現(xiàn)次數(shù):”?&?countChar?&?vbCrLf Next?i End?Function [/code]
第三步:建查詢
具體的查詢我們還是來看下面的截圖
sql語句:
select 歌名, 歌詞,分詞, WordFrequency([歌詞],[分詞]) AS 詞頻 FROM 表2;
最后,我們來看一下運(yùn)行結(jié)果
? 版權(quán)聲明
文章版權(quán)歸作者所有,未經(jīng)允許請(qǐng)勿轉(zhuǎn)載。
THE END
喜歡就支持一下吧
相關(guān)推薦