大家是怎样在VB的SQL语句中使用自定义函数的？

假设自定义了一个函数MyFunc()
private function MyFunc(q1 as integer) as integer
....
end function

sSQL = "update 个人缴纳 with &myfunc(个人缴纳) FROM 部门表"

我们知道VB能够在它的SQL语句中使用VB内部那个统计函数Max、Min、Count等等，对于SQL语句中的自定义函数在VFP中我使用过，现在忘了，不知道如何写了，好像是用一些&标识的决不是像上面那个那么写的，出错！

怎样写上面那个sSQL语句，不一定就这个例子讨论。
只要给出部分代码或你自己的例子，说明如何在SQL语句中使用自定义函数即可。

13 个解决方案

#1

我以前在VFP中用过，现在忘记了；在VB使用的SQL语句中是如何使用使用自定义函数用于查询或更新表的？

#2

有人知道吗？

#3

Dim strSql As String
Dim intVal As Integer

intVal = Func(10)

strSql = _
  "UPDATE TABLE" & vbCrLf & _
  "SET" & vbCrLf & _
  "  FIELD = '" & intVal & vbCrLf & _
  "WHERE KEY = '" & strKey & "'"
'...

#4

顺便我还想问一下，该如何在VB的组合框的选项中引用函数，具体的写法是怎么样的？？？？

#5

TO:Intelement(智能元素)
你使用的实际上是变量intVal，不是直接使用像Max、Min、Count、Sum一样的SQL内部函数！？

#6

在SQL里写存储过程吧

#7

自定义函数一般都是在服务器端用吧。很少用在客户端，

#8

你还是用存储过程吧

#9

sSQL = "update 个人缴纳 with &myfunc(个人缴纳) FROM 部门表"

sSql="update table set ziduan1='" & ziduan1zhi &"',ziduan2=" &ziduan2zhi &" where ....."
ziduan1 char or varchar,datetime...
ziduan2 int,smallint....

#10

#11

sSQL = "update 个人缴纳 with '" & myfunc(个人缴纳) & "' FROM 部门表"

#12

TO：wjhtz(阿华)

sSQL = "update 个人缴纳 with '" & myfunc(个人缴纳) & "' FROM 部门表"
是㊣的吗？其中有那个单'号？

#13

哦，忘了，单引号不要！

#1