如何在访问中使用 VB 从选择查询中填充组合框？

Posted 2023-04-19

【中文标题】如何在访问中使用 VB 从选择查询中填充组合框？

【英文标题】：How to populate combo box from a select Query using VB in access?

【发布时间】：2018-07-16 17:56:12

【问题描述】：

我是 VB 新手，并试图从选择查询的结果中填充组合框，该结果从另一个组合框获取值，我正在尝试的代码是：

Private Sub addPartsButtonForm_Click()

    ssql = "SELECT * FROM EquipmentTbl WHERE [EquipmentID] = '" & Me.equipmentCombo.Column(0) & "'"
    Me!comboParts = ssql

    Me.comboParts.Requery

End Sub

当我按下按钮时，我在组合框中得到以下结果：

SELECT * FROM EquipmentTbl WHERE [EquipmentID] = '34'

虽然它给了我确切的设备 ID，但预期是其他的东西。请帮帮我

【参考方案1】：

设置组合 RowSource。此外，如果字段是数字，则不需要引号。

Dim sSql As String
    sSql = "SELECT * FROM EquipmentTbl WHERE [EquipmentID] = " & Me.equipmentCombo.Column(0) 

     Me.comboParts.RowSource = ""
    Me.comboParts.RowSource = sSql

【讨论】：

感谢先生的回复....我现在收到“标准中的数据类型不匹配”的错误。这背后有什么原因吗？ :(

谢谢。所以是整数，这就是我收到类型不匹配错误的原因？

@MuhammadHamaadLatif 是的，对于 Integer Long - 没有引号，对于字符串使用 '' ，对于日期使用 # date #