Question

我需要填充一个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

Answer 1

我认为Rowsource属性应该指向数据控件名称，该名称用作DBcombo控件列表部分的项目源。

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

所以而不是：

DBCombo4.RowSource = rs

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

ADODC.RecordSource = rs

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

DBCombo4.RowSource = ADODC

Answer 2

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

使用记录集在VB6中填充DBCOMBO

2 个答案: