combobox自动添加问题

Question

初学VB，不懂ado和dao，用dbgrid+data绑定数据库的办法来浏览数据，现在需要查询，请问combobox自动添加表中字段的语句怎么写？谢谢！

Answer 1

set combobox.datasourse=rs
combobox.datafield="字段"

Answer 2

strongfisher(Haiwolf) ：
代码能否说的再具体点？比如数据库为db，表结构为table1:field1;field2...，按下某个按纽时，data1.recordsource = select * form tabel1，此时添加combobox内容的代码应该怎么写？？？谢谢！

Answer 3

你连接数据库 是不是那个字段的所有的内容呀 ？
那你得用 Datacombo 你添加 Microsoft DataList Controls6.0(OLEDB)
然后 添加Datacombo 你用他连
 re.open"select * from table ",conset Datacombo1.dataSource = re
set Datacombo1.dataRowSource= re
datacombo1.ListField="字段"

Answer 4

combobox要添加什么内容？字段名？某字段的记录内容？

Answer 5

Dim oTD As DAO.TableDef
Dim lCount As Long, lCtr As LongSet oTD = db.TableDefs(TableName)
With oTD
    lCount = .Fields.Count
      For lCtr = 0 To lCount - 1
        combo1.Add .Fields(lCtr).Name
    Next
End With

Answer 6

我不懂dao啊，有没什么像绑定文本框一样简单的办法来直接让dbgrid绑定combobox？

Answer 7

不能用Combo，改用DataCombo就可以实现了
设Table表中有字段xh
  set datacombo.rowsource=rs
  datacombo.listfields="xh"

Answer 8

feiqinfeiwhw(ff) ：要用rs？？？不太明白

Answer 9

re.open"select m1,m2 from table ",con
do while not re.eof
   combo1.additem trim(m1)
   re.movenext
loop
re.close