Question

VB6.0 如何实现通过TEXTBOX输入字段名，COMBOBOX显示字段下的内容，请注明程序代码

VB6.0 如何实现通过TEXTBOX输入字段名，COMBOBOX显示字段下的内容，请注明程序代码

Answer 1

dim rs as new adodb.recordset
combo1.clear
rs.opend "select " & text1.text & " from tb ",cnn
do until rs.eof
combo1.additem rs(0) & ""
rs.movenext
loop
rs.close

Answer 2

为什么不用DataCombo和ADO直接连呢？也不需要代码。