请教：答者给分！

Question

请问如何在vb中加载窗体时，如何把数据库中的某一字段中（例如：课程ID）的所有字段加入到期vb的下拉列表框中？

Answer 1

下面是在窗体启动时添加组信息到listview中的例子，你可以参照一下Private Sub Form_Load()Dim rsGroup As New ADODB.Recordset'//恢复数据库连接
ResumeCnnFiles'//检索所有组
With rsGroup
.CursorLocation = adUseServer
.CursorType = adOpenStatic
.LockType = adLockPessimistic
.Open "SELECT * FROM dictionary WHERE style_id=5", cnnFiles
End With'//添加组信息到列表中
Do Until rsGroup.EOF
    Set itemX = lstvwGroup.ListItems.Add(, "group" & rsGroup("id"), rsGroup("item"), "group", "group")
    rsGroup.MoveNext
LoopEnd Sub

Answer 2

Private Sub Form_Load()
   sql = "select * from gzlx"
   Set rs = New ADODB.Recordset
   rs.Open sql, conn, 3, 3
   Do While Not rs.EOF
        Cbobase.AddItem rs("id")
        rs.MoveNext
   LoopEnd Sub

Answer 3

在窗口的LOAD事件里写添加的代码就行了.

Answer 4

谢谢 forever_chang(寒冬月夜裸奔狂)！
 和ccone1111() ！