delphi 中怎么使用access自定义函数

Question

access自定义函数如下：Public Function return_sl()
     Dim sr As String  '声明一个整型变量
    Set db = CurrentDb() '指定数据库为当前数据库
    Set recname = db.OpenRecordset("select * from sd ") '将对应地区“XM”表读入记录集
    Set strname = recname![sj] '指定记录集“姓名字段”    Do Until recname.EOF
        sr = sr + " " + strname  ‘把姓名字段循环相加
        recname.MoveNext
    Loop    return_sl = sr ’返回相加的结果    recname.CloseEnd Function我在adoquery里写'select return_sl() from 表' 为什么提示我函数未定义
我在access里测试是好用的 
这是为什么 难道需要其他的设置吗 还是adoquery不支持access自定义函数不懂

Answer 1

http://access911.net/index.asp?board=4&recordid=77FAB51E14DCCSDN以前也有很多人问过,看了下,最后好像没有直接的解决方法,也有人说不支持楼主也可以google下看看只能祝楼主好运了

Answer 2

不支持,ACCESS自定义函数是VBA实现的,而你用DELPHI连ACCESS数据库,一般是用JET数据库引擎,与VBA毛关系没有