显示在LISTBOX控件上的只是表的字段，如现在只显示“课程名称”，而不显示语文、英语。。。。我是想取表的内容啊---应该怎么解决呀？

Question

Private Sub Form_Load()
Dim strTMp As String
Dim i As Integer
Dim fldCount As Integer
'打开学生信息表记录集
     Set rsInfoInput = New ADODB.Recordset
            With rsInfoInput
                .CursorType = adOpenStatic
                .LockType = adLockOptimistic                .Open "select * from uStudBaseInfo", conDB
            End With
' 打开课程信息表记录集
    Set rsuCoursesInfo = New ADODB.Recordset
            With rsuCoursesInfo
                .CursorType = adOpenStatic
                .LockType = adLockOptimistic                .Open "select * from uCoursesInfo", conDB
            End WithstrTMp = "select 课程名称 from uCoursesInfo"
rsuCoursesInfo.Close
rsuCoursesInfo.Open strTMp
fldCount = rsuCoursesInfo.Fields.Count
For i = 0 To fldCount - 1
    strTMp = rsuCoursesInfo.Fields(i).Name
    ListPC.AddItem strTMp
Next iEnd Sub　　

Answer 1

For i = 0 To fldCount - 1
    strTMp = rsuCoursesInfo.Fields(i)
    ListPC.AddItem strTMp
Next i

Answer 2

改我上面的内容
strTMp = "select 课程名称 from uCoursesInfo"
rsuCoursesInfo.Open strTMp,conDB,3,2
fldCount = rsuCoursesInfo.Fields.Count
For i = 0 To fldCount - 1
    strTMp = rsuCoursesInfo.Fields(0)
    ListPC.AddItem strTMp
    rsuCoursesInfo.movenext
Next i
rsuCoursesInfo.close
conDB.close问题已经解决记得 结分哦~~~~~

Answer 3

strTMp = "select 课程名称 from uCoursesInfo"
rsuCoursesInfo.Open strTMp,conDB,3,2
fldCount = rsuCoursesInfo.Fields.Count
do while not rsuCoursesInfo.eof
For i = 0 To fldCount - 1
    strTMp = rsuCoursesInfo.Fields(0)
    ListPC.AddItem strTMp
    
Next i
rsuCoursesInfo.movenext'如果还是不行，就把你的数据库结构贴出来大家参考一下好给你意见啊！！
loop
rsuCoursesInfo.close
conDB.close

Answer 4

干脆用listview不就行了，其实用listbox显示出来的看起来并不好看

Answer 5

楼上的代码都有错，不移动表指针咋行呢？!strTMp = "select 课程名称 from uCoursesInfo"
rsuCoursesInfo.Open strTMp,conDB,3,2
rsuCoursesInfo.MoveFirst
do while not rsuCoursesInfo.Eof    ListPC.AddItem rsuCoursesInfo.Fields("课程名称")    rsuCoursesInfo.MoveNextlooprsuCoursesInfo.close
conDB.close

Answer 6

高手就是高手~~~TO Jhzyz(Frank Feng黑名单上的人 ，非常感谢，问题已经解决
现在开始发分啦~~~~~：wdwd05(☆VB-小伙~)   8分辛苦分~~ ：）
winnerwang(彷徨)     2分辛苦分~~ ：）
Jhzyz(Frank Feng黑名单上的人)   90分~~~~~十分感谢各位的帮助，以后还要请诸位在次论坛上罩着我啊--多谢~~~