將從VBA運行的sql select語句存儲在數字變量中

Question

我正在創建一個動態傳遞查詢，為此，我首先需要查詢我的本地數據庫並獲取一個ID。 此ID是我將在查詢的WHERE子句中通過查詢的內容。

我的字符串：

getCorpID = "SELECT corpID " & _
            "FROM dbo_corp " & _
            "WHERE name = " & Forms.frmMain.Combo4.Value

然后，我嘗試做類似於以下操作：

CorpID (integer) = docmd.runsql (getCorpID)

我意識到，但是docmd runsql不適用於select語句，甚至不返回值。 我可以使用什么來運行我的字符串

getCorpId

as sql並將結果（每次都會是一個結果，每次只有一個結果）存儲在我的變量CorpID中

謝謝。

Answer 1

考慮使用Recordset ：

Dim dbs As DAO.Database
Dim rsSQL As DAO.Recordset
Dim getCorpID As String
Dim CorpID 

Set dbs = CurrentDb


getCorpID = "SELECT corpID " & _
        "FROM dbo_corp " & _
        "WHERE name = " & Forms.frmMain.Combo4.Value
Set rsSQL = dbs.OpenRecordset(getCorpID , dbOpenSnapshot)
rsSQL.MoveFirst
CorpID = rsSQL.Fields("corpID")