Question

在vb中根据指定的查询条件查询ACCESS数据库中符合条件的记录，查询结果在LISTLIEW控件中显示。需要详细代

查询条件可以只满足其中一条，或两条都满足。

Answer 1

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前
你那样的话 第一条记录不会添加上 而到了最后一条语句 就出错了
这是个逻辑的问题 楼上的回答也犯了这个错误哦

Answer 2

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

Answer 3

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

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

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

追问

输入框：Text1、Text2控件，查询结果显示在LISTVIEW中，数据库中的标明是：学生信息表。查询控件是Cmd1控件。本人刚学VB实在不会写，希望可以帮帮忙，万分感谢。

追答

sql="select * from [学生信息表] where [系]='" & text1.text & "'" and [年级]='" & text2.text & "'"

追问

If Combo1.Text "" And Text1.Text = "" Then
SQL = "select * from 表3：学生基本信息表 where 所在系部=' " & Trim(Combo1.Text) & " ' "
Set rs = db.OpenRecordset(SQL)
Do While Not rs.EOF
rs.MoveNext
Set itm = ListView1.ListItems.Add
itm.Text = rs!所在系部
itm.SubItems(1) = rs!班级
itm.SubItems(2) = rs!学号
Loop
End If
错误：itm.Text = rs!所在系部，无当前记录

追答

If Trim(cobname.Text) = "admin" And Trim(Txtsec.Text) = "admin" Then
MsgBox "当前以管理员模式进入软件." & vbCrLf & "请在用户操作里注册新用户或进行其它操作!", vbInformation, "-提 示-"
way = rs.Fields("skinway")
SkinH_Attach
SkinH_AttachEx App.Path & way, ""
Call closers
Unload frmlogo
frmmain.Show

这是我的一段登陆代码,,你参考下.

追问

我不需要登陆代码，需要的是查询数据的代码。

追答

举一反三..你的意思没有给我说明白.所以我没有办法按你的意思,,,把代码完完全全,正正确确的写出来.