如何在Excel VBA中将查询结果存储为整数

Question

我在combobox1_change事件中编写了一个查询

 Private Sub ComboBox1_Change()

   On Error GoTo UserForm_Initialize_Err
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   Dim result As Integer
   cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
         "Data Source=C:UsersinkapbDesktopEPC DatabaseEPC TOOL.mdb"
   rst.Open "SELECT [Project_Id] FROM [Project Details] WHERE [Project Name] = '" & Me.ComboBox2.Value & "' ;", _
         cnn, adOpenStatic


UserForm_Initialize_Exit:
On Error Resume Next
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Exit Sub
UserForm_Initialize_Err:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"
Resume UserForm_Initialize_Exit

End Sub

上面查询的结果是整数，请告诉我如何将查询结果存储到result（int）变量中。

Answer 1

您可以这样阅读：

rst.Open ....
dim value as long
if not rst.eof then 
     value = rst.collect(0)
else
    ''no rows
end if