使用记录集在VB6中填充DBCOMBO

我需要填充一个dbcombo，我已经写了这个

Private Sub cargamunicipios()

   Conexao_Banco

   Dim rs As New ADODB.Recordset

   SQL = "select código , nome from aux_municipios"

   rs.Open SQL, cn

   DBCombo4.RowSource = rs

End Sub

recorset可以正常工作，但是有mistmach类型，填充dbcombo的正确代码是什么？？？

---

感谢Alejnadro

我相信

Rowsource

属性应该指向数据控件的名称，该控件用作DBcombo控件列表部分的项源

您应该在设计时将记录集分配给数据控件，并确保DBCombo的rowsource属性分配给该数据控件，但它在运行时不可用

因此，不是：

DBCombo4.RowSource=rs

您应该使用将记录集分配给datacontrol的Recordsource属性（其中ADODC是数据控件的名称）：

在设计视图中-将DB组合的Rowsource设置为数据控件：

ADODC.RecordSource = rs

DBCombo4.RowSource = ADODC

DBcombo控件（数据绑定）仅适用于ADO数据控件，而使用示例代码下面的DataCombo（数据列表）

Private Sub cargamunicipios()
    Conexao_Banco
        Dim rs As New ADODB.Recordset
        SQL = "select código , nome from aux_municipios"
    rs.Open SQL, cn
    With DBCombo4
        .RowSource = rs
        .ListField = "código"
        .BoundColumn = "name"
    End With
End Sub

---

DBCombo是一个遗留在VB6中的旧DAO控件，用于与VB5兼容。您应该改用较新的DataCombo。