在vb中如何检索库中的值放如listbox中？并且。。。。

Question

通过sql中的游标，把值取出，通过list1.AddItem “变量值” 语句，插入listbox中

Answer 1

dim i as long
i=0
do until rs.eof or rs.bof
   list1.additem rs("name"),i
   rs.movenext
   i=i+1
loopsub list1_click()
    if list1.listindex<>-1 then
       sql="select * from tables where name = '" & trim(list1.list(list1.listindex)) & "'"       '查询。。
    end if
end sub

Answer 2

to Cooly(苦力虽然不报错，但是list中无数据，代码如下，是放在form_load中么
Private Sub Form_Load()
Dim conn As Connection
Dim rs As Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "dsn=UserManage"
sql = "select kucunthingname from kucun "
rs.Open sql, conn
Dim i As Long
i = 0
Do Until rs.EOF Or rs.BOF
   List1.AddItem rs("kucunthingname"), i
   rs.MoveNext
   i = i + 1
Loop
End Sub

Answer 3

在End Sub前加一句Msgbox i
看看是多少?

Answer 4

对不起，是我自己的问题，谢谢，可是这个list怎么不是下拉的，是滚动的呀？

Answer 5

要下拉的要用ComboBox, 设定ComboBox的Style为DropDown list
Do Until rs.EOF Or rs.BOF
   ComboBox1.AddItem rs("kucunthingname"), i
   rs.MoveNext
   i = i + 1
Loopif ComboBox1.listcount>0 then
   combobox1.text=combobox1.list(0)
end if

Answer 6

我如和得到combobox1中用户选的值呢，放入name中？不好意思，我昨天才接触vb，不要笑我