问个简单的DataField问题

Question

请问如果让combo1 里面绑定表中一列的数据？？ 最好有代码

Answer 1

最简单
additem "1.ffff"
additem "2.bbbb"
常用的方法
sql = "select 字段 from 表"
combo1.datasource = sql数组方法
 
dim ff(n) as string
ff(1) = "1.ffff"
ff(2) = "2.bbbb"for i = 1 to n
  additem ff(nn)
next i
相关内容在网上很多,查找一下方便的很.

Answer 2

两种方法
  1.用adodc控件和combo控件绑定，就可以实现
      adodc 连接数据源及数据表
      combo 有两个属性 datasource 选择adodc,datafield选择表的列
  2.用代码实现
    你试试这样做，引用ado 
    Dim Con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set Con = New ADODB.Connection
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
    Con.Open strCon
    Set rs = New ADODB.Recordset
    '添加记录
    combo1.clear
    strsql="select a from table"
    rs.Open strsql, Con, adOpenKeyset, adLockOptimistic      
    do while not rs.eof
       combo1.additem rs(0)     
       rs.movenext
    loop