问个简单的DataField问题

[zhizlm]

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

[ningyong58]

最简单
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
相关内容在网上很多,查找一下方便的很.

[zhizlm]

看不明白

[zhizlm]

还有其他答案吗？

[zhizlm]

？

[上官云峰]

两种方法
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