vb将数据写入combo1

Question

小弟想写个这样的构思，将数据写入数据库表里的同时，写到另一个form2中的combo1的list中，不知如何写？
请教了，谢！数据库是sql server 2000
或者是打开form2窗口时，combo1的list自动将表中的某一列内容漆添加上去，。
这二种方法，那一种更好一点。

Answer 1

第二种合理些，在Form_Load事件中查询数据库填写列表即可。

Answer 2

'方法二：
form2_load()
    dim rs as new adodb.recordset
    dim i as long
    if rs.state<>adstateclosed then rs.cloes
    rs.open "select aa from 表名",conn,adopenkeyset,adlockreadonly
    combo1.clear
    for i=1 to rs.recordcount
        combo1.additem rs!aa &""
        rs.movenext
    next i
    rs.close
end sub

Answer 3

Private Sub Form_Load()
    Dim rs As New ADODB.Recordset
    Dim i As Long
    Dim cnn As New ADODB.Connection
     cnn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password=sa;Initial catalog=db_base;Data Source=127.0.0.1"
     cnn.Open
     
    If rs.State <> adStateClosed Then
        rs.Close
        rs.Open "select itemname from itembase", cnn, adOpenKeyset, adLockReadOnly
        Combo1.Clear
        For i = 1 To rs.RecordCount
           Combo1.AddItem rs!itemname
           rs.MoveNext
           Next i
           rs.Close
    End If
    
           
End Sub
我这样写了，但没有反应，itemname 是表的列，
问题在哪？
请教！要设置i的值吗？
itemname有很多name
是否要排序ASC

Answer 4

Private Sub Form_Load()
  Dim rs As New ADODB.Recordset
  Dim i As Long
  Dim cnn As New ADODB.Connection
  cnn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;Password=sa;Initial catalog=db_base;Data Source=127.0.0.1"
  cnn.Open
    
  If rs.State <> adStateClosed Then
      rs.Close
  end if    '<---end if要加在这里
  rs.Open "select itemname from itembase", cnn, adOpenKeyset, adLockReadOnly
  Combo1.Clear
  For i = 1 To rs.RecordCount
      '代码缩进是良好的习惯
      Combo1.AddItem rs!itemname & ""
      rs.MoveNext
  Next i
  rs.Close
  

Answer 5

谢谢！
我还有二点没有搞懂，rs!和rs 的区别是什么？
还有我在from中加入ADD，运行为什么在窗体上是可见的。
谢！