组合框combo如何显示数据库中的内容？请大家帮忙。

Question

我在用VB6.0开发数据库管理系统，需要用一组合框显示表TABLE1中姓名字段的所有不重复记录。本人才疏学浅,请各位高手帮帮忙。

Answer 1

Dim con As Connection
Dim rst As Recordset
 Private Sub Command1_Click()
       rst.Open ("Select * from TABLE1")
       rst.MoveFirst
     While Not rst.EOF
     Combo1.AddItem rst.Fields("姓名")
     rst.MoveNext
   Wend
End SubPrivate Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
With con
    .Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
    .Open
End With
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.ActiveConnection = con
End Sub

Answer 2

请问在ADO中如何更新，也就是达到控件中Refresh方法的效果。

Answer 3

要显示不重复的记录，在select中加入关键字"distinct"

Answer 4

up
不过还要记住，在重新初始话的时候一定要用Combo1.clear