用递归函数再举个查询数据库的例子

当然可以！下面是一个使用递归函数查询数据库的示例：

Function QueryDatabase(query As String) As String
    ' 执行查询语句并获取结果
    ' 这里假设执行查询后返回的结果是一个字符串
    Dim result As String
    result = ExecuteQuery(query)
    
    ' 如果结果为空，递归终止
    If result = "" Then
        QueryDatabase = "没有找到匹配的结果。"
    Else
        ' 如果结果不为空，则继续查询下一页（假设每页10条记录）
        Dim nextPageQuery As String
        nextPageQuery = "SELECT * FROM table WHERE condition LIMIT 10 OFFSET " & (pageNumber + 1) * 10
        
        ' 递归调用查询下一页的函数
        Dim nextPageResult As String
        nextPageResult = QueryDatabase(nextPageQuery)
        
        ' 将当前页的结果和下一页的结果合并
        QueryDatabase = result & vbCrLf & nextPageResult
    End If
End Function

在这个示例中，`QueryDatabase` 函数接收一个查询语句 `query`，并执行该查询语句。如果查询结果为空，函数将返回一个提示消息。否则，它会构建一个查询下一页的语句，并递归调用自身来获取下一页的结果。最后，函数将当前页的结果和下一页的结果合并并返回。

请注意，在实际应用中，你需要根据具体的数据库和查询语言来编写相应的代码。这只是一个简单的示例，用于演示递归函数的概念。

希望这个示例对你有帮助！如果你还有其他问题，请随时提问。