[SQL] 어떻게 VBA에서 변수로 SQL 쿼리의 결과를 저장하려면?

어떻게 VBA에서 변수로 SQL 쿼리의 결과를 저장하려면?

나는 SELECT 문을 실행하고 변수 (값 1 만 1 개 기록이다) 그것의 결과를 넣어합니다.

이 액세스에 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

해결법

1. ==============================

   1.단순히 기능이 레코드에서 값을 반환 있습니다 :

   단순히 기능이 레코드에서 값을 반환 있습니다 :

   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
   

from https://stackoverflow.com/questions/23992226/how-to-save-the-result-of-a-sql-query-into-a-variable-in-vba by cc-by-sa and MIT license