...记录,查询结果在LISTLIEW控件中显示。需要详细代

发布网友 发布时间：2024-10-13 23:20

我来回答

共3个回答

热心网友 时间：2024-10-14 00:29

Do While Not rs.EOF
rs.MoveNext
Set itm = ListView1.ListItems.Add
itm.Text = rs!所在系部
itm.SubItems(1) = rs!班级
itm.SubItems(2) = rs!学号
Loop

改成
Do While Not rs.EOF
Set itm = ListView1.ListItems.Add
itm.Text = rs!所在系部
itm.SubItems(1) = rs!班级
itm.SubItems(2) = rs!学号
rs.MoveNext
Loop
把 rs.MoveNext 移到 loop前
你那样的话 第一条记录不会添加上 而到了最后一条语句 就出错了
这是个逻辑的问题 楼上的回答也犯了这个错误哦

热心网友 时间：2024-10-14 00:34

Dim conn As ADODB.Connection '定义连接对象
Dim rs As ADODB.Recordset '定义记录集对象
实例化:
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
打开连接:
conn.Open "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=检测中心计算机维修耗材统计系统;Data Source=ZHBI007\JCZX"
rs.Open "select * from IP地址 where 单位 = '" & Trim(Text1.Text) & "'", conn, adOpenKeyset, adLockOptimistic

'最后就是你说的把“产品名称” 显示到combox中了

While rs.EOF = False
Combo1.AddItem rs.Fields("IP地址")
rs.MoveNext
Wend

热心网友 时间：2024-10-14 00:30

给你一个提示吧..详细代码自己写...哪有这样的事,..都不知道你的那些控件名称,杂给你详细???

sql="select * from [student] where [系]='" & text1.text & "'" and [年级]='" & text2.text & "'"
'上面一句是查询用的..

'下面一句是把查出来的记录写以LIST中的.
do while not rs.eof
rs.movenext
listview1.addnew rs.files ("0")
loop