如何把数据库中符合条件的记录additem到listbox里我现在懵了请说吧

lixingyuaaa 2003-01-14 09:47:45
Dim PRO As String
Dim sqlsTr As String
Dim XingMing As String
PRO = "Provider=SQLOLEDB.1;Password=760619;Persist Security Info=True;User ID=sa;Initial Catalog=webofficeSQL;Data Source=210.46.97.77"
varConn.CursorLocation = adUseClient
varConn.Mode = adModeUnknown
varConn.Open PRO
varRS.LockType = adLockBatchOptimistic
varRS.CursorType = adOpenKeyset
Set varRS.ActiveConnection = varConn
sqlsTr = "select * from dbo.jiaoxue_zongjie where 授课年级='2000'"
varRS.Open sqlsTr
'从这里往下如何来写呢
'如何把数据库中符合条件的记录additem到listbox里我现在懵了请说吧??????????????????????????????
For I = 0 To varRS.Fields.Count
'关键是这一条

List1.AddItem varRS.Fields(6).Item


'Next I
'谢谢
...全文
5 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Ouyangyifeiczy 2003-01-14
while not varRS.eof
list1.additem varRS.Fields!字段名
list1.itemdata(list1.newindex)=varrs.fields('需要与该字段关联的ID')
varRS.MoveNext
wend
varrs.close
set varrs=nothing

回复
bu_wen 2003-01-14
不要用count
用 eof 和 判断..
可以这么写
do while not varRS.eof
list1.additem varRS.Fields!字段名
varRS.MoveNext
loop
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告