datacombo必须绑定到控件吗

Posted 2020-09-07 谁能告诉我是对还是错

想让datacombo控件显示数据库中表的一列,必须要先添加adodc控件吗?直接用代码赋值datacombo的属性不行吗?

 

可以通过自定义一个数据源，不使用控件也是可以的，不过方法比较麻烦，需要你对数据源的概念有一定理解。

下面是一段参考代码

Private Sub Form_Load()
    Dim Conn As ADODB.Connection ‘定义一个数据链接对象
    Dim Rs As ADODB.Recordset ‘定义一个记录集对象，用于保存数据源
    Set Conn = CreateObject("ADODB.Connection") ‘这两行是用于创建对象使用的
    Set Rs = CreateObject("ADODB.Recordset")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\My Documents\mydata.mdb" ‘打开一个链接，这里D:\My Documents\mydata.mdb是数据库的路径，你需要根据自己实际的情况修改这个字符串
    Rs.Open "select * from stars", Conn, 1, 3 ‘数据链接成功以后，需要选择数据，这里是一个SQL语句，，通过这个命令，可以从数据库中选取自己希望得到的数据
    Set DataCombo1.DataSource = Rs.DataSource ‘将获得的记录集的数据源，并链接到datacombo1上
    DataCombo1.DataField = "str1"  ‘设置自己希望得到的字段

    ‘通过上面的设定，可以不使用控件就绑定数据源，不过因为没有控件，所以操作会变得很复杂
End Sub