想让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
时间: 2024-10-25 00:03:59