Question

vb6 查询结果显示到listbox中！

form1 中有一个list1 把下面查询到的多条记录循环显示在listbox中
Call cf_openconn
sql = "select * from employee where fullname='" & Trim(Text1.Text) & "'"
cf_rs.Open sql, cf_conn, adOpenDynamic, adLockOptimistic
If cf_rs.EOF Then
Text2.Text = “没有找到"
cf_rs.Close
Else
在这里 把查询到的多条记录显示在listbox中，谢谢！
cf_rs.Close
End If

Answer 1

Do While Not cf_rs.EOF
List1.AddItem cf_rs(0) & " " & cf_rs(1) 'cf_rs(0)为第一个字段，cf_rs(1)为第二个字段，自己改吧。
cf_rs.MoveNext
Loop