Question

VB要怎么用COMBO BOX控件显示数据库内容

Private Sub Form_Load()
Dim rs As New ADODB.Recordset Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mct.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from mct WHERE qu='" + Combo1.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then '将qu信息添加到COMBO BOX控件当中

Do While Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF
Combo1.AddItem (Adodc1.Recordset.Fields(2))
Adodc1.Recordset.MoveNext
Loop
Combo1.Refresh
Else Combo1.AddItem "1"
End If
End Sub 这段代码怎么不能记COMBO1里显示出数据QU字段的内容啊

Answer 1

你的程序思路好像不对吧，查询条件来源于Combo1，结果又要显示在Combo1??以下几个地方有问题：1、Do While Not Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF 这句使用是错误的，如果要用也要在Not后加括号才能达到想要的效果：Do While Not (Adodc1.Recordset.EOF And Not Adodc1.Recordset.BOF)2、引用字段最好不要用数字，用字段名，这样改变数据库结构不受影响。Combo1.AddItem (Adodc1.Recordset.Fields(2))改为：
Combo1.AddItem (Adodc1.Recordset.Fields(“qu"))
3、字段名不要使用Name、User这样的名字，如果使用了这样的名字，SQL语句中要使用[]括号括起来。rs.Open "select user from people", Cnn, 1, 3 改为：rs.Open "select [user] from people", Cnn, 1, 3