如何将ACCESS中的一个字段内容加到COMBOX中?谢了.

Question

Dim sql As String
    Dim rs As New ADODB.Recordset
    
    sql = "Select * From 班级信息表 Order By ID Desc"
    rs.CursorLocation = adUseClient
    rs.Open sql, Conn, adOpenDynamic, adLockPessimistic
    If Not (rs.EOF = True And rs.bof = True) Then
        Do Until rs.EOF = True
        cbobanji.AddItem rs.Fields("班级编号").Value
        rs.MoveNext
        Loop
    cbobanji.ListIndex = 0
    End If
    rs.Close: Set rs = Nothing

Answer 1

如果你是用的是ADO控件，可以直接将combox与它进行绑定如果用的是ADO对象就用楼上说的那种方法

Answer 2

用sql语句找到，然后把找到的信息一个个添加进去

Answer 3

不是吧 今天怎么都来晚了啊同意各位朋友说的那就是 passer_wave(路人) 说的了

Answer 4

同意，但简单一点：Dim sql As String
    Dim rs As New ADODB.Recordset
    
    sql = "Select * From 班级信息表 Order By ID Desc"
    rs.CursorLocation = adUseClient
    rs.Open sql, Conn, adOpenDynamic, adLockPessimistic
    if rs.recordcount<>0 then
       rs.movefrist
        Do while not rs.eof
        cbobanji.AddItem rs.Fields("班级编号").Value
        rs.MoveNext
        Loop
    cbobanji.ListIndex = 0
    End If
    rs.Close: Set rs = Nothing