SQL语句的where字句中能用自定义函数吗？

renahu

扑腾 发表于 2023-12-30 17:42
能不能考虑在sql语句前面先运行自定义函数，然后将函数结果变量插入SQL语句呢？

我现在的解决办法就是先用sql把记录用简单方法取出来，再循环，这时候可以用自定义函数，就是分两步，很难用sql一次把想要的记录取出来。sql中是不能直接用自定义函数的，如果楞用，会提示未定义，非要用只能把自定义函数建立在access数据库中，然后在excel中建立access对象，再来用sql就可以了，但明显太慢，就算在access数据库中使用sql调用自定义函数都显得慢，就别说还要从excel中建立acess对象了

renahu

leeson7502 发表于 2023-12-31 11:57
你是试过了，不行，还是感觉它不行？

因为   &  ifExist &  中间的 ifExist 是把它当成变量的值与首位字符串相连，而 ifExist 是自定义函数的名子，不是变量，只有带上函数的参数才能取得值

一招秒杀

原来是什么数据，想得到什么结果，也许你想破头也搞不定的东西，别人随手就能用2-3种以上的方法瞬间秒杀。

renahu

1.     Dim myAcc As Object, rsResult As Object
   
2.     Set myAcc = CreateObject("access.application")
   
3.     myAcc.OpenCurrentDatabase App.Path & "\数据.accdb"     
   
4.     Set rsResult = CurrentDb.OpenRecordset(SQL)
   
5.     Do While Not rsResult.EOF
   
6.         ' 处理记录集中的数据
   
7.         ' ...
   
8. 
   
9.         ' 移动到下一条记录
   
10.         rsResult.MoveNext
    
11.     Loop
    

复制代码

用这个方法可以直接在sql中使用自定义函数，但前提是自定义函数要在access中的模块中先建立，我这里是在VB中运行的，ADODB不认sql中的自定义函数，只能分两步处理。建立access对象虽然可以调用带自定义函数的sql，但说实话速度太慢，不如ADODB

zpy2

renahu 发表于 2023-12-29 14:17
帮我看看这个SQL的where句子，哪里有问题，总报错，对where 语句中的规则还是不熟
" where CDate(日期)  ...

Access VBA可以在module里自定义函数在sql中执行。

zpy2

renahu 发表于 2023-12-30 15:55
只可惜通配符表示数字只能[1-9]取一位数，如果两位数或三位数还要分成几段用or连接，更麻烦，总体感觉就 ...

可惜通配符表示数字只能[1-9]取一位数，如果两位数或三位数还要分成几段用or连

换sqlite或者mysql支持正则表达式