怎样把一个表中的数据依次读入combo控件并显示出来。谢了,

解决方案 »

  1.   

    combo.additem "你要加的项目"
      

  2.   

    rs.open "select 字段名 from tablename",conn,adopenkeyset,adlockreadonly
    for i=1 to rs.recordcount
        combobox1.additem rs!字段名 &""
    next i
    set rs=nothing
      

  3.   

    表名.movefirst
    for i=0 to 表名.recordcount-1
       combo1.additem 表名.fields(所需列)
       表名.movenext
    next i
      

  4.   

    rs.open "select 字段名 from tablename",conn,adopenkeyset,adlockreadonly
    rs.movefirst
    do while not rs.eof
        combobox1.additem rs![字段名] &""
        rs.movenext        '这行很重要哦
    loop
    rs.close
    set rs=nothing
      

  5.   

    rs.open "select * from table",conn,1,1
    combobox1.clear
    for i = 1 to rs.recordcount
    combobox1.additem rs("dd")
    rs.movenext
    next
      

  6.   

    rs.open "select * from table",conn,1,1
    combobox1.clear
    for i = 1 to rs.recordcount
    combobox1.additem rs("dd")
    rs.movenext
    next
      

  7.   

    在问一个问题
    access中中文字段名,能否用在此处?????