一个有关把数据库的内容当作combox的选项的问题

Question

想把数据库的内容当作combox的选项
高手指点一下阿
我是新手
谢谢了

Answer 1

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
......
rs.Open "select DISTINCT fld from tb", _
cn, adOpenKeyset, adLockOptimistic 'DISTINCT语句添加不重复的字段
If rs.RecordCount > 0 Then
    While Not rs.EOF
        combo1.AddItem rs!fld
        rs.MoveNext
    Wend
End If
rs.Close

Answer 2

我没有用ado
用的是vb自带的data控件
这个怎么做？
先谢谢了

Answer 3

Dim cn,rs,sql,indexFlagOn Error GoTo Nextcombo1.Clear
indexFlag=1Set cn=CreatObject("Adodb.Connection")
Set rs=CreatObject("Adodb.recordset")sql="select * from 表"rs.Open sql,cn,adOpenKeyset, adLockOptimistic combo1.AddItem "", 0If Rs.RecordCount >0 Then
   Do Until Rs.Eof
      combo1.Additem rs.("xxx").value,indexFlag
      combo1.ListIndex = indexFlag
      indexFlag=indexFlag+1
   Loop
End If---------------------------------------------
多么简单明了的代码挖，啥控件都不用，你非用什么data什么地干嘛哇？

Answer 4

我用ado试验了一下，怎么开始还可以
后来我又在另外一个窗体上加了后就不行了？
郁闷