如何將我的select語句的結果存儲在一個變量中？

Question

我的代碼到目前爲止是這樣的。最後一行給我一個編譯錯誤：「聲明的預期結束」。

Dim strSql As String 
Dim groupId As String 

strSql = "Select ID from RevenueGroup where description = '" & ListO.Value & "'" 
groupId = CurrentProject.Connection.Execute strSql 

Answer 1

你還挺看着這樣的事情

Dim strSql As String 
Dim groupId As String 

strSql = "Select ID from RevenueGroup where description = '" & ListO.Value & "'" 

Dim rec As Recordset 
set rec= CurrentProject.Connection.Execute strSql 

groupId = rec(0) 

您需要查詢的結果設置爲一個記錄集，然後拉從它的結果的第一個值。沒有所有定義的變量，我不能完全編譯，但這應該是一個很好的模板。