如何把数据填充到combobox

Question

假设有表table包含列 col1,col2,col3,改表有5条纪录，怎么样把这5条记录的col1填充到combobox?

Answer 1

dim rst as new adodb.recordset
dim cnn as new adodb.connection
cnn.open "provider=msdasql.1;.................."
rst.open "select col1 from table",cnn,adopendynamic,adlockpessimistic
rst.movefirst
while not rst.eof
    combobox.additem "" & rst.fields(0).value & ""
rst.movenext
wend
rst.close

Answer 2

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
    Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("FirstName")
        Rs.MoveNext
    Loop
   CN.Close

Answer 3

Dim strSQL As String
   dim conn as ADODB.Connection
   dim rs as ADODB.Recordset   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   
   strSQL = App.Path & "\A.mdb"
   strSQL = Replace(strSQL, "\\", "\")
   
   With conn
       If .State = adStateOpen Then
          .Close
       End If
       .CursorLocation = adUseClient
       .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strSQL
       .Open
   End With
     
   With rs
       .Open "SELECT Coll FROM Table;", conn, adOpenStatic, adLockOptimistic
       If .BOF And .EOF Then
          Exit Sub
       End If
       .MoveFirst
   End With
   
   Do Until rs.EOF
   With Combo1
       .AddItem rs.Fields("Coll")
       rs.MoveNext
   End With
   Loop
   '退出时
   rs.close
   conn.close
   set rs=nothing
   set conn=nothing