填充DBCOMBO與記錄

Question

我需要填充一個dbcombo VB6，我已經寫這篇

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

你應該使用記錄分配給您的數據控件的記錄源財產（其中ADODC是您的數據控件的名稱）：

ADODC.RecordSource = rs 

並在設計視圖中 - 將數據庫組合的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