在VB中，combo怎么样从sql数据库中读取数据呢！

Question

你好！
    怎么样让VB中的combo从sql数据库的table1里读取出字段为name的值呢！

Answer 1

 If Rs.State <> adStateClosed Then Rs.Close
 rs.open "select [name] from table1",conn, adOpenStatic, adLockOptimistic
 
 for i=1 to rs.recordcount
   combol1.additem Trim(rs(0)&"")
   rs.movenext
 next i
 

Answer 2

不知道能不能重复发.虽说问题是一样的.'把combox命名为CobGroup         CobGroup.Clear         StrSql   =   "select   名称   from   房台部门表" 
        Set   Rs   =   ExcuteSql(StrSql)'此处函数为自定义查询数据库语句 
        While   Not   Rs.eof 
                CobGroup.AddItem   Rs.Fields("名称") 
                Rs.MoveNext 
        Wend 
        
        CobGroup.ListIndex   =   0

Answer 3

不好意思，小弟初学，我照一楼的写了一下，可总报错！
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As StringPrivate Sub Form_Load()
Dim i As Integer
If rst.State <> adStateClosed Then rst.Close
rst.Open "select [name] from department", conn, adOpenStatic, adLockOptimistic
For i = 1 To rst.RecordCount
Combo1.AddItem Trim(rst(0) & "")
rst.MoveNext
Next iEnd Sub各位能帮我看一下是怎么回事吗！

Answer 4

Dim   conn   As   ADODB.Connection 
Dim   rst   As   ADODB.Recordset 
Dim   sql   As   String '要加一个常量定义
const adStateClosed   = 0Private   Sub   Form_Load() 
  Dim   i   As   Integer 
  '打开数据库连接
  set conn = new adodb.connection
  conn.open "这里面写你的数据库连接串"
  '打开表
  set rst = new adodb.recordset
  
  If   rst.State   <>   adStateClosed   Then   rst.Close 
  rst.Open   "select   [name]   from   department",   conn,   adOpenStatic,   adLockOptimistic 
  For   i   =   1   To   rst.RecordCount 
    Combo1.AddItem   Trim(rst(0)   &   "") 
    rst.MoveNext 
  Next   i 
  '记得释放
  set rst = nothing
  set conn = nothing
End   Sub