代码之家 › 专栏 › 技术社区 › Kunal

从VB Access“表达式中未定义的函数<函数名>”调用UDF(Sql服务器)

ms-access-2010 vba sql-server-2008-r2 ms-access

Kunal · 技术社区 · 10 年前

我试图从访问中的Vb代码调用udf(SQL服务器)。连接到数据库成功,我能够在SQL server表上运行查询。然而,当我尝试调用UDF时,它会向我抛出一个错误: 未定义函数 .

请参见以下代码:

Private Sub cmd_Login_Click()
    ' some code here
    Set db = CurrentDb()

    sSQL = "SELECT UserID FROM TBL_User_Login WHERE UserName = '" & cbo_User & "' AND Status = 0"
    Set recset = db.OpenRecordset(sSQL)


    recset.Close
    Set rectset = Nothing

    sSQL = "SELECT fn_validate_user(" & gb_UserId & ",'" & Hash(Me.txt_Password + cbo_User) & "') AS PasswordValid"
    Set recset = db.OpenRecordset(sSQL)  ' this is where i get error for undefined function fn_validate_user
    PasswordValid = recset("PasswordValid")

有人能看看我是不是遗漏了什么吗。

1 回复 | 直到 4 年前

Gord Thompson 10 年前

在Access中运行标准查询时,它首先由Access数据库引擎处理,即使该查询引用ODBC链接表。访问可以识别通道用户定义函数(使用VBA创建),但它不知道SQL Server用户定义函数。

为了使用SQL Server用户定义的函数,需要使用传递查询。顾名思义,它绕过Access数据库引擎,将查询直接发送到远程数据库(通过ODBC)。要执行此操作的VBA代码如下所示:

Dim db As DAO.Database, qdf As DAO.QueryDef, recset As DAO.Recordset
Dim sSQL As String, PasswordValid As Boolean
Set db = CurrentDb
sSQL = "SELECT fn_validate_user(" & gb_UserId & ",'" & Hash(Me.txt_Password + cbo_User) & "') AS PasswordValid"
Set qdf = db.CreateQueryDef("")
' get .Connect property from existing ODBC linked table
qdf.Connect = db.TableDefs("TBL_User_Login").Connect
qdf.ReturnsRecords = True
qdf.SQL = sSQL
Set recset = qdf.OpenRecordset(dbOpenSnapshot)
PasswordValid = recset.Fields("PasswordValid").Value
recset.Close
Set recset = Nothing
Set qdf = Nothing

推荐文章

ANAND AGRAWAL · MS Access中的VBA中不接受变量名

7 年前

spriore · Access 2010:同一查询中的计数和不同计数

7 年前

Elia · 为每个ID选择前三行

7 年前

Kendal · MS Access:在多条件查找字段中仅查询一个条件

7 年前

Chris1313 · Microsoft Access表单-列表框、文本框(两个表)

7 年前

Houcine Adsens · 如果所有复选框都为FALSE,则访问VBA

7 年前

dmorgan20 · 从userform获取名称的SQL

7 年前

A_Alrumaidh · MS Access-选择不存在于同一表中的记录

7 年前

Summer044 · Access/VB自定义导航按钮-按日期转到下一个/上一个

7 年前

Shawn Koh · 如何以连续形式启用数据表的过滤器三角形按钮

7 年前