Question

VB中combo1.list怎么连接到数据库，详细代码，谢谢

Answer 1

这个没有绑定列表的属性，要用dataCombo控件，它多两个属性listField，rowsource

控件全名是Microsoft DataList Controls 6.0 (OLEDB)，里面有两个控件。

Private Sub Command1_Click()
    Dim Rs As New Recordset
    Const cntString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\User Documents\Master\My Documents\Tencent Files\2978454279\FileRecv\txl\txl.mdb;Persist Security Info=False" '数据库文件名自己改一下
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from Tbl_Txb", cntString, adOpenStatic, adLockReadOnly    '表名也改一下
    Set DataCombo1.RowSource = Rs'绑定数据源
    DataCombo1.ListField = "姓名"    '表字段名也改一下
End Sub

列表项的选择并没有与记录指针同步，所以这么绑定意义不大，与直接从表中读取数据一项一项的添加没什么差别。

在设计窗体时RowSource也可以绑定到Adodc控件