数据库表中记录添加到combo

Question

数据库中有张login表，表中有字段username
我想把username中所有的记录添加进combo
请问如何具体实现，谢谢！！！

Answer 1

   rs.Open "select * from login", conn, adOpenStatic, adLockReadOnly, adCmdText     
   Dim iTotal As Integer, i As Integer
   iTotal = rs.RecordCount
   For i = 1 To iTotal
       Combo1.AddItem rs.Fields("username").Value
       rs.MoveNext
   Next

Answer 2

  Dim Cnn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  
  Cnn.Open "provider=microsoft.jet.oledb.4.0;data source=c:\aaa.mdb"
  sqlstr = 
  rs.Open "select * from [login]", Cnn, adOpenKeyset, adLockOptimistic
    
  rs.MoveFirst
  Do While rs.EOF = False
    Combo1.AddItem rs.Fields("username")
    rs.MoveNext
  Loop  rs.Close
  Set rs = Nothing  cnn.close
  set cnn=nothing

Answer 3

  Dim Cnn As New ADODB.Connection 
  Dim rs As New ADODB.Recordset   
  Cnn.Open "provider=microsoft.jet.oledb.4.0;data source=c:\aaa.mdb" 
  rs.Open "select * from [login]", Cnn, adOpenKeyset, adLockOptimistic 
  rs.MoveFirst 
  Do While rs.EOF = False 
    Combo1.AddItem rs.Fields("username") 
    rs.MoveNext 
  Loop   rs.Close 
  Set rs = Nothing   cnn.close 
  set cnn=nothing 

Answer 4

可以用楼上朋友的循环添加法，也可以用数据源绑定法。就是添加一个数据源，让这个数据源市combobox的数据提供者就可以了。

Answer 5

Private Sub Combo1_Click()          Dim strSQL     As String            '定义字符串用于SQL查询
          Dim conn     As ADODB.Connection   '定义ADODB连接对象用于连接到SQL数据库
          Dim user_name     As ADODB.Command  '定义ADODB命令对象用于执行SQL查询
          Dim rsjieguo     As ADODB.Recordset '定义ADODB记录对象用于访问查询内容
         
          Set conn = New ADODB.Connection      '连接并打开本地SQL服务器的Libray数据库
          Set user_name = New ADODB.Command
          conn.ConnectionString = strCnn
          conn.Open
          
          Set user_name.ActiveConnection = conn  '设置活动连接conn ="pride..."就是连接数据库的语句
          Set rsjieguo = New ADODB.Recordset
          strSQL = "select username from login where username='" & Combo1.Text & "'"   '编写SQL语句并执行查询
          user_name.CommandText = strSQL
          Set rsjieguo = device.Execute()
          
          n1 = rsjieguo!username              '将username传给combo
          
          conn.Close
           End Sub

Answer 6

不好意思，倒数第三行Set rsjieguo = device.Execute() 的device 应该改成 user_name。

Answer 7

这句也可以不要了。  n1 = rsjieguo!username              '将username传给combo