VB6基本数据库应用（五）：数据的查找与筛选

同系列的第五篇，上一篇在：http://blog.csdn.net/jiluoxingren/article/details/9633139

数据的查找与筛选

第4篇发布到现在已经过了4天，很抱歉，学生党，还是悲催的高三，没办法，8月1就开学了。以后更新文章的速度可能会更慢，而且出完这套数据库教程之后，未来一年都可能不会有新的教程了。就我而言是想写下去，多写点的，一是记录下自己会的，另一方面把自己会的知识传播出去，不过高三这段时间可能力不从心了。

继续吧，看标题“包含表中局部数据的数据集，数据的查找”，看上去是两项内容，实际上是一项。查找，筛选，实际上都是为了获取我们需要的数据，而不是将所有数据都提取出来。在这一章，我们将再次体会到SQL：Select语句的强大。

取得表中前n个或前n%的记录

之前，我说过SQL：Select语句的一个简化的语法，这已经是第三章的内容了，还记得吗？复习一下：

SELECT fieldnamelist  FROM  tablename

要获得表中前n个或前n%个记录，尽管我们可以打开整张表的数据，然后在用循环显示数据的时候最大值为n，n为我们想要的条数这种方式来实现，但是SQL：Select语句提供一个直接的方法来让我们获得表中前n个或前n%个记录。这时候我们要扩充SQL：Select语句的语法了。我们来看新的语法：

SELECT TOP n [PRECENT] fieldnamelist  FROM  tablename

我们发现新的语法在fieldnamelist前面加入了TOP n [PRECENT]这一部分，TOP和PRECENT都是SQL的关键字，所以我也按照我之前所说的习惯：SQL语句的关键字用大写。需要先说[PRECENT]，[]这样的语法表示的是可选，也就是说TOP这样一个关键字加进去之后，n是必须的了，但是PRECENT依然是可选的，如果写上他，那n就代表前n%，是一个百分数，可取的范围是0<n<100；而如果没有PRECENT，那么n就代表前n条，可取的范围是0<n<4294967295，也就是说如果表中有10000000000（不用数了，比4294967295多一位数字）条记录（假设吧，Access一张表最多能有多少条记录真没查过，说不定最多只能有4294967295条，知道确切数字的告诉我一下，不过先假设他能储存不止4294967295条吧），那么你最多也只能选出前面4294967295条。

让我们来实践一下吧，假设我们要取出前30%的记录，那么我们可以这样写（还是在Student表，取出全部字段）

SELECT  TOP 30PRECENT  * FROM Student

前面说到的[PRECENT]的[]代表的是可省略，其实[]仅仅是语法表达的需要，实际上写SQL语句是不需要写上去的。就像我上面的SQL语句一样。

说完语法，照例是要上VB代码的。不上代码的话大家可能会产生疑惑，SQL的语法换了，那么这个SQL语句又应该写在哪里？？别急，下面会回答你这个问题。

数据的条件查找

要实现数据的查找，就必须要使用更复杂语法的SQL：Select语句。我们来看下面的语法：

SELECT fieldnamelist  FROM  tablename WHERE 条件

会发现，这个语法比最初的语法多了一个“WHERE 条件”，但又没有了第一节的TOP n [PRECENT]这一部分，实际上除了最初给出来的语法内容是必须的，其他都是可以根据需要增添上去的。就是这个条件实现了数据的查找，也就是实现了把我们需要的数据从表里面取出来，而不是像之前那样取出一张表的全部数据。语法中“条件”两个字实际上很虚无，到底这个条件怎么写呢？最简单的是“ 字段名='内容'”，留意里面的一对单引号，当内容是中文的时候就需要用单引号引起来，如果不是的话与一般来说可以不用单引号。一定要注意这是单引号！

我们来写一个语句实践一下吧。假设我们要找出Student表中的StudentName为“黄飞鸿”的记录，我们可以这样写：

SELECT  *  FROM Student  WHERE  StudentName='黄飞鸿'

前面 SELECT * FROMStudent 的部分之前已经说过，光是这样没有Where关键字就是选出全部的记录。WHEREStudentName='黄飞鸿'，就表示选出StudentName字段中内容为“黄飞鸿”的记录。

还是上面的实践中的例子，需要留意的是，认真看一下实践中我所写的SQL语句，Select后面跟着的字段名列表是用*的，也就是全部字段都选出来。然后再看我SQL语句后面的解释：“我们选出的是……的记录”，注意是记录，一个记录有多个字段的数据组成。所以，上面我写的语句的作用不仅仅是把StudentName字段中的“黄飞鸿”这个文本内容选了出来，同时还有StudentID字段中他所对应的的数据662356也被选了出来。这体现了数据库的对应关系。

现在来回答上一节的最后，提出的语法改变了，那么新的SQL语句又要写在什么地方的问题。其实还是老地方，其实每调用一次SQL：Select语句，无论是之前的简单语法，还是现在有Where的语法，甚至以后更复杂的语法，SQL：Select语句的作用都是返回一个数据集（如果符合Where条件的记录找不到，那这个数据集就是空的）。所以，所有的SQL：Select语句都可以作为参数传递给Recordset对象的Open方法。

照样，现在我们把实践中写的那个SQL语句作为参数传递给Recordset对象的Open方法，并显示在表格里。这个还是写在Load事件里吧。这次我把Load事件里的代码全都列出来，包括之前的连接数据库的，还有打开整张表的代码，这样做是为了给大家一个提醒，具体提醒是什么？认真看看注释吧，代码后面还会说的。

VB代码开始：

Private SubForm_Load()

'创建新的Connection对象

Set Cnn = NewADODB.Connection

'注意要记住该数据库目录为你数据库文件当前的位置

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=E:\Sample.mdb;Persist Security Info=False"

'创建新的Recordset对象

Set rec = NewADODB.Recordset

'打开student表的全部字段的全部内容

rec.Open"SELECT * FROM Student", Cnn, adOpenStatic, adLockOptimistic

'---------------------------------------------------------------------

'“----”注释里的是第五章新加的代码

'---------------------------------------------------------------------

'注意了！！如果使用之前的Recordset对象变量rec

'而且之前的rec已经被Open过了，那么必须调用Close

'将其关闭之后才能再调用Open方法

rec.Close

'打开student表中StudentName为“黄飞鸿”的记录

rec.Open"SELECT * FROM Student Where StudentName='黄飞鸿'", Cnn, adOpenStatic, adLockOptimistic

'---------------------------------------------------------------------

'这一章新加的代码就到这里，下面的还是之前的代码

'---------------------------------------------------------------------

'数据的提取

Do Until rec.EOF =True

List1.AddItemrec.Fields("StudentID").Value

'Fields对象，括号里的是索引(Index)，索引填写的内容为字段的名称

'Item属性是Fields对象的默认属性，他的一个参数就是Index

'Fields("Student")表示一个Field对象

'Fields("Student")等价于

'rec.Fields.Item ("Student")或

'rec.Fields! ("Student")

'!表示默认属性

List2.AddItemrec.Fields("StudentName").Value

'移动下一条记录为当前记录

rec.MoveNext

Loop

End Sub

VB代码结束：

这里我们可以看到3行的红色注释（虽然VB的IDE里的注释是用绿色显示的，不过这里为了强调就用红色），非常显眼。这就是我要提醒大家的地方。实际的数据库应用里，往往需要将Recordset对象回收再用。例如这里我需要显示出全部的人名，待会我可能又根据用户的需要去找某个人的记录，或者待会可能还要排一下序。我们不可能创建那么多的Recordset对象，如果要的话就意味着我们需要声明很多个Recordset对象变量，这很可能会很混乱。所以Close之后重新用Open执行其他的操作，这样的手段是经常用到的。

我们可以看到，之前的打开整张表的代码我没有去掉，然后就是在一堆注释之后直接Close，再用Open来写今天的代码了。而后面的输出到List控件的代码也被保留了下来，接在了今天新的代码之后。所以现在的输出List1里就只有662356，List2就只有”黄飞鸿“了。

当前的代码运行结果如下图：

最后，给大家留个作业吧。第一节“取得表中前n个或前n%的记录”的SQL语句我一直没写用在VB上的代码，既然都知道了还是作为参数传递给Recordset对象的Open方法，那么自己去试一下吧。以为WHERE关键字的作用就怎么点？？还没完呢！下一章，我们将来讲述：多重条件搜索，模糊搜索和给定范围内的搜索。本套教程未完，待续。