Question

VB中按Access表中记录筛选数据

我做的是试题库系统 我把选题条件（题型、题数、难度、知识点）存到一个表中，想按照这个表的内容 从试题库表中筛选出合适的试题！！ 达到随机抽题的效果！！！谁能帮帮我啊！！谢谢了！
我找到得一段代码如下 但是始终都有问题
Dim i, j As Integer
Do While Not Data3.Recordset.EOF
If IsNull(Data3.Recordset.nandu) Then
If IsNull(Data3.Recordset.zhishidian) Then
Data2.RecordSource = "select*from 试题库 where (tag<>'1'or isnull(tag))" & "and trim(tixing)=" & Trim(Data3.Recordset.tixing)
Else
Data2.RecordSource = "selce*from 试题库 where(tag<>'1'or isnull(tag))" & "and trim(tixing)=" & Trim(Data3.Recordset.tixing) & "and trim(zhishidian)=" & Trim(Data3.Recordset.zhishidian)
End If
Else
If IsNull(Data3.Recordset.zhishidian) Then
Data2.RecordSource = "selce*from 试题库 where(tag<>'1'or isnull(tag))" & "and trim(tixing)=" & Trim(Data3.Recordset.tixing) & "and nandu=" & Trim(Data3.Recordset.nandu)
Else
Data2.RecordSource = "select*from 试题库 where(tag<>'1'or isnull(tag))" & "and trim(tixing)=" & Trim(Data3.Recordset.tixing) & "and trim(zhishidian)=" & Trim(Data3.Recordset.zhishidian) & "and nandu=" & Trim(Data3.Recordset.nandu)

Answer 1

找到的代码？适合你吗？你应该按自己的思路编写代码！给你一点建议，希望有助于你解决问题。
1、建立试题库时，自己应该根据出题要求，查询方式设计等因素好试题库的结构。（比如索引号按章节/或题型编号，1-20为第一章试题；21-35为第二章试题等等）
2、抽题时按题数（n个题）先在相应的章节/或题型编号内产生n个随机编号，然后按随机数抽题。
强调一点：按上述方式产生试卷，关键点是如何确定建立数据库的结构。