?

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

?

數(shù)據(jù)的查找與篩選

第4篇發(fā)布到現(xiàn)在已經(jīng)過了4天，很抱歉，學(xué)生黨，還是悲催的高三，沒辦法，8月1就開學(xué)了。以后更新文章的速度可能會更慢，而且出完這套數(shù)據(jù)庫教程之后，未來一年都可能不會有新的教程了。就我而言是想寫下去，多寫點的，一是記錄下自己會的，另一方面把自己會的知識傳播出去，不過高三這段時間可能力不從心了。

?

繼續(xù)吧，看標(biāo)題“包含表中局部數(shù)據(jù)的數(shù)據(jù)集，數(shù)據(jù)的查找”，看上去是兩項內(nèi)容，實際上是一項。查找，篩選，實際上都是為了獲取我們需要的數(shù)據(jù)，而不是將所有數(shù)據(jù)都提取出來。在這一章，我們將再次體會到SQL：Select語句的強(qiáng)大。

?

取得表中前n個或前n%的記錄

之前，我說過SQL：Select語句的一個簡化的語法，這已經(jīng)是第三章的內(nèi)容了，還記得嗎？復(fù)習(xí)一下：

SELECT?fieldnamelist? FROM? tablename

要獲得表中前n個或前n%個記錄，盡管我們可以打開整張表的數(shù)據(jù)，然后在用循環(huán)顯示數(shù)據(jù)的時候最大值為n，n為我們想要的條數(shù)這種方式來實現(xiàn)，但是SQL：Select語句提供一個直接的方法來讓我們獲得表中前n個或前n%個記錄。這時候我們要擴(kuò)充SQL：Select語句的語法了。我們來看新的語法：

SELECT TOP n [PRECENT]?fieldnamelist? FROM? tablename

?

我們發(fā)現(xiàn)新的語法在fieldnamelist前面加入了TOP n [PRECENT]這一部分，TOP和PRECENT都是SQL的關(guān)鍵字，所以我也按照我之前所說的習(xí)慣：SQL語句的關(guān)鍵字用大寫。需要先說[PRECENT]，[]這樣的語法表示的是可選，也就是說TOP這樣一個關(guān)鍵字加進(jìn)去之后，n是必須的了，但是PRECENT依然是可選的，如果寫上他，那n就代表前n%，是一個百分?jǐn)?shù)，可取的范圍是0<n<100；而如果沒有PRECENT，那么n就代表前n條，可取的范圍是0<n<4294967295，也就是說如果表中有10000000000（不用數(shù)了，比4294967295多一位數(shù)字）條記錄（假設(shè)吧，Access一張表最多能有多少條記錄真沒查過，說不定最多只能有4294967295條，知道確切數(shù)字的告訴我一下，不過先假設(shè)他能儲存不止4294967295條吧），那么你最多也只能選出前面4294967295條。

?

讓我們來實踐一下吧，假設(shè)我們要取出前30%的記錄，那么我們可以這樣寫（還是在Student表，取出全部字段）

SELECT? TOP 30PRECENT? * FROM Student

前面說到的[PRECENT]的[]代表的是可省略，其實[]僅僅是語法表達(dá)的需要，實際上寫SQL語句是不需要寫上去的。就像我上面的SQL語句一樣。

?

說完語法，照例是要上VB代碼的。不上代碼的話大家可能會產(chǎn)生疑惑，SQL的語法換了，那么這個SQL語句又應(yīng)該寫在哪里？？別急，下面會回答你這個問題。

?

數(shù)據(jù)的條件查找

要實現(xiàn)數(shù)據(jù)的查找，就必須要使用更復(fù)雜語法的SQL：Select語句。我們來看下面的語法：

SELECT?fieldnamelist? FROM? tablename?WHERE 條件

?

會發(fā)現(xiàn)，這個語法比最初的語法多了一個“WHERE 條件”，但又沒有了第一節(jié)的TOP n [PRECENT]這一部分，實際上除了最初給出來的語法內(nèi)容是必須的，其他都是可以根據(jù)需要增添上去的。就是這個條件實現(xiàn)了數(shù)據(jù)的查找，也就是實現(xiàn)了把我們需要的數(shù)據(jù)從表里面取出來，而不是像之前那樣取出一張表的全部數(shù)據(jù)。語法中“條件”兩個字實際上很虛無，到底這個條件怎么寫呢？最簡單的是“ 字段名='內(nèi)容'”，留意里面的一對單引號，當(dāng)內(nèi)容是中文的時候就需要用單引號引起來，如果不是的話與一般來說可以不用單引號。一定要注意這是單引號！

?

我們來寫一個語句實踐一下吧。假設(shè)我們要找出Student表中的StudentName為“黃飛鴻”的記錄，我們可以這樣寫：

SELECT? *? FROM?Student? WHERE? StudentName='黃飛鴻'

前面 SELECT * FROMStudent 的部分之前已經(jīng)說過，光是這樣沒有Where關(guān)鍵字就是選出全部的記錄。WHEREStudentName='黃飛鴻'，就表示選出StudentName字段中內(nèi)容為“黃飛鴻”的記錄。

?

還是上面的實踐中的例子，需要留意的是，認(rèn)真看一下實踐中我所寫的SQL語句，Select后面跟著的字段名列表是用*的，也就是全部字段都選出來。然后再看我SQL語句后面的解釋：“我們選出的是……的記錄”，注意是記錄，一個記錄有多個字段的數(shù)據(jù)組成。所以，上面我寫的語句的作用不僅僅是把StudentName字段中的“黃飛鴻”這個文本內(nèi)容選了出來，同時還有StudentID字段中他所對應(yīng)的的數(shù)據(jù)662356也被選了出來。這體現(xiàn)了數(shù)據(jù)庫的對應(yīng)關(guān)系。

?

現(xiàn)在來回答上一節(jié)的最后，提出的語法改變了，那么新的SQL語句又要寫在什么地方的問題。其實還是老地方，其實每調(diào)用一次SQL：Select語句，無論是之前的簡單語法，還是現(xiàn)在有Where的語法，甚至以后更復(fù)雜的語法，SQL：Select語句的作用都是返回一個數(shù)據(jù)集（如果符合Where條件的記錄找不到，那這個數(shù)據(jù)集就是空的）。所以，所有的SQL：Select語句都可以作為參數(shù)傳遞給Recordset對象的Open方法。

?

照樣，現(xiàn)在我們把實踐中寫的那個SQL語句作為參數(shù)傳遞給Recordset對象的Open方法，并顯示在表格里。這個還是寫在Load事件里吧。這次我把Load事件里的代碼全都列出來，包括之前的連接數(shù)據(jù)庫的，還有打開整張表的代碼，這樣做是為了給大家一個提醒，具體提醒是什么？認(rèn)真看看注釋吧，代碼后面還會說的。

VB代碼開始：

Private SubForm_Load()

'創(chuàng)建新的Connection對象

Set Cnn = NewADODB.Connection

?

'注意要記住該數(shù)據(jù)庫目錄為你數(shù)據(jù)庫文件當(dāng)前的位置

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

'創(chuàng)建新的Recordset對象

Set rec = NewADODB.Recordset

?

'打開student表的全部字段的全部內(nèi)容

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

?

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

'“----”注釋里的是第五章新加的代碼

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

?

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

'而且之前的rec已經(jīng)被Open過了，那么必須調(diào)用Close

'將其關(guān)閉之后才能再調(diào)用Open方法

rec.Close

?

'打開student表中StudentName為“黃飛鴻”的記錄

rec.Open"SELECT * FROM Student Where StudentName='黃飛鴻'", Cnn, adOpenStatic, adLockOptimistic

?

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

'這一章新加的代碼就到這里，下面的還是之前的代碼

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

?

'數(shù)據(jù)的提取

Do Until rec.EOF =True

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

??????? 'Fields對象，括號里的是索引(Index)，索引填寫的內(nèi)容為字段的名稱

??????? 'Item屬性是Fields對象的默認(rèn)屬性，他的一個參數(shù)就是Index

??????? 'Fields("Student")表示一個Field對象

??????? 'Fields("Student")等價于

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

??????? 'rec.Fields! ("Student")

??????? '!表示默認(rèn)屬性

?

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

??? '移動下一條記錄為當(dāng)前記錄

??? rec.MoveNext

Loop

End Sub

VB代碼結(jié)束：

這里我們可以看到3行的紅色注釋（雖然VB的IDE里的注釋是用綠色顯示的，不過這里為了強(qiáng)調(diào)就用紅色），非常顯眼。這就是我要提醒大家的地方。實際的數(shù)據(jù)庫應(yīng)用里，往往需要將Recordset對象回收再用。例如這里我需要顯示出全部的人名，待會我可能又根據(jù)用戶的需要去找某個人的記錄，或者待會可能還要排一下序。我們不可能創(chuàng)建那么多的Recordset對象，如果要的話就意味著我們需要聲明很多個Recordset對象變量，這很可能會很混亂。所以Close之后重新用Open執(zhí)行其他的操作，這樣的手段是經(jīng)常用到的。

?

我們可以看到，之前的打開整張表的代碼我沒有去掉，然后就是在一堆注釋之后直接Close，再用Open來寫今天的代碼了。而后面的輸出到List控件的代碼也被保留了下來，接在了今天新的代碼之后。所以現(xiàn)在的輸出List1里就只有662356，List2就只有”黃飛鴻“了。

?

當(dāng)前的代碼運(yùn)行結(jié)果如下圖：

?

最后，給大家留個作業(yè)吧。第一節(jié)“取得表中前n個或前n%的記錄”的SQL語句我一直沒寫用在VB上的代碼，既然都知道了還是作為參數(shù)傳遞給Recordset對象的Open方法，那么自己去試一下吧。以為WHERE關(guān)鍵字的作用就怎么點？？還沒完呢！下一章，我們將來講述：多重條件搜索，模糊搜索和給定范圍內(nèi)的搜索。本套教程未完，待續(xù)。

VB6基本數(shù)據(jù)庫應(yīng)用（五）：數(shù)據(jù)的查找與篩選