如何将 SQL 查询的结果保存到 VBA 中的变量中?

问题描述

我想执行一个 select 语句并将它的结果(只有 1 个记录和 1 个值)放在一个变量中.

I want to execute a select statement and put the result of it (which is only 1 record with 1 value) in a variable.

这是访问中的 VBA 代码.

Private Sub Child_Click()
   Dim Childnummer As Integer
   Dim childnaam As String
   Childnummer = Me.Keuzelijst21.Value
   DoCmd.Close
   DoCmd.OpenForm "submenurubrieken", acNormal, , " rubrieknummer = " & Childnummer & ""
   childnaam = rubrieknaamSQL(Childnummer)
   Forms!submenurubrieken.Tv_rubrieknaam.Value = childnaam
End Sub

Public Function rubrieknaamSQL(Child As Integer)
   Dim rst As DAO.Recordset
   Dim strSQL As String
   strSQL = "SELECT rubrieknaam FROM dbo_tbl_rubriek where rubrieknummer = " & Child & ""
   Set rst = CurrentDb.OpenRecordset(strSQL)
End Function

推荐答案

只需让您的函数从 Recordset 返回值:

Simply have your Function return the value from the Recordset:

Public Function rubrieknaamSQL(Child As Integer)
   Dim rst As DAO.Recordset
   Dim strSQL As String
   strSQL = "SELECT rubrieknaam FROM dbo_tbl_rubriek where rubrieknummer = " & Child & ""
   Set rst = CurrentDb.OpenRecordset(strSQL)
   ' new code:
   rubrieknaamSQL = rst!rubrieknaam
   rst.Close
   Set rst = Nothing
End Function

这篇关于如何将 SQL 查询的结果保存到 VBA 中的变量中?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！