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:\Users\inkapb\Desktop\EPC Database\EPC 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

如何将查询结果存储到Excel VBA中的整数中

1 个答案: