如果你是需要表里的一个字段下的所有记录给你个参考
希望对你有帮助
Do While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset.Fields("区域")
Adodc1.Recordset.MoveNext
Loop
'===================
Do While Not Adodc3.Recordset.EOF
Combo3.AddItem Adodc3.Recordset.Fields("房屋类型") & ""
Adodc3.Recordset.MoveNext
Loop
上面一段是将一个表里“区域”字段下的所有查询到的记录添加到combo1中!你参考一下!
下面一段也是同理!
再给你一个代码参考一下!是把表中某一条记录中的一个字段下的一个记录显示到指定text中
= adCmdText
Adodc2.RecordSource = "select * from czfy where 区域 = '" & Combo1.Text & "'"
Adodc2.Refresh
text1.text = Adodc2.Recordset.Fields("区域") & ""
把查询到的区域显示在text1中