SQLite UDF - VBA 回调

使用SQLite UDF可以在VBA中进行回调操作，这为我们在代码中使用自定义函数提供了便利。在本文中，我们将介绍SQLite UDF的基本概念，并提供一个案例代码来演示其用法。

vba
Sub TestSQLiteUDF()
    Dim con As New SQLite3
    Dim db As Database
    Dim strSQL As String
    
    ' 打开数据库
    Set db = con.OpenDatabase("C:\path\to\database.db")
    
    ' 注册自定义函数
    db.Execute "CREATE FUNCTION Average(a, b) RETURNS REAL " & _
               "DETERMINISTIC NO SQL RETURN (a + b) / 2"
    
    ' 使用自定义函数
    strSQL = "SELECT Average(10, 20)"
    Debug.Print db.OpenRecordset(strSQL).Fields(0).Value
    
    ' 关闭数据库
    db.Close
End Sub