Question

如何在access的VBA中，执行查询类的sql命令？

如何在access的VBA中，执行查询类的sql命令？
有一个窗体，我希望在一组合框选定一个值时，另一个文本框显示出另一个表中一个列与组合框中的内容相对应的记录里另一个行的值。代码几何？

Answer 1

在组合框的change事件里写类似如下代码：

以下代码的意思是：combo是显示供应商的一个组合框，通过选择供应商，在Text4里面显示该供应商的总订单数。

Private Sub Combo0_Change()
    Dim 供应商ID
    供应商ID = Combo0.Value
    
    Dim sql As String, rs As Recordset
    sql = "select count(*) as cnt  from [采购订单] where [供应商 ID]=" & 供应商ID '查询的SQL语句。
    Set rs = CurrentDb.OpenRecordset(sql)
    Text4.SetFocus
    Text4.Text = rs.Fields(0)
End Sub

追问

　　提示找不到recordset这个类型？

追答

使用这个是一下： ADODB.Recordset 或者Dao.Recordset