ASP進(jìn)階教程Ⅸ：留言查詢功能（二）

2019-11-18 22:38:20

字體：大中小

供稿：網(wǎng)友

我們接上一部分繼續(xù)講解如何利用Command對(duì)象來(lái)執(zhí)行SQL命令，實(shí)現(xiàn)“留言記錄日期查詢”和“留言簿過(guò)去五天留言記錄查詢”。但在應(yīng)用Command對(duì)象來(lái)執(zhí)行SQL命令之前我們必須在留言數(shù)據(jù)庫(kù)中先建立查詢，假如我們要查詢的是“留言簿過(guò)去五天留言記錄”，那么在留言數(shù)據(jù)庫(kù)中建立查詢的具體方法如下所示。（對(duì)于數(shù)據(jù)庫(kù)，在 access中可以建立五種不同類型的查詢，因?yàn)槲覀円樵儍蓚€(gè)日期之間的留言記錄，因此我在這里只以“使用‘設(shè)計(jì)’視圖建立參數(shù)查詢”為例，當(dāng)然你也可以“使用向?qū)Ы⒉樵儭薄Ｊ褂谩霸O(shè)計(jì)”視圖建立查詢要比使用向?qū)ъ`活得多，例如，在“設(shè)計(jì)”視圖中，既可以建立像“選擇查詢”之類的簡(jiǎn)單查詢，又可以建立像“參數(shù)查詢”和“操作查詢”之類的復(fù)雜查詢，而且在“查詢?cè)O(shè)計(jì)網(wǎng)格”中既能夠增加、移動(dòng)、插入和刪除字段，也能夠設(shè)置準(zhǔn)則和排序次序，計(jì)算總和和平均值，等等）

　　在Access中，使用‘設(shè)計(jì)’視圖建立參數(shù)查詢：
　　一、打開(kāi)留言數(shù)據(jù)庫(kù)，在“數(shù)據(jù)庫(kù)”窗口中單擊“查詢”選項(xiàng)卡，然后單擊“新建”按鈕。
　　二、在“新建查詢”對(duì)話框中，單擊“設(shè)計(jì)視圖”，然后單擊“確定”按鈕。
　　三、在“顯示表”對(duì)話框中，選擇“表”選項(xiàng)卡，然后單擊“添加按鈕或者雙擊“guestbook”表的名稱，將它添加到“查詢”窗口中，然后關(guān)閉“顯示表”的對(duì)話框。
　　四、在“guestbook”表的字段列表中，單擊“ID”字段的字段名，按住鼠標(biāo)不放，將它拖到“查詢?cè)O(shè)計(jì)網(wǎng)格”的第一列。同樣，可以將“姓名”、“電話”、“EMAIL”、“主題”、“留言”和“時(shí)間”字段的字段名依次拖到“查詢?cè)O(shè)計(jì)網(wǎng)格”的其它各列中。
　　五、在作為參數(shù)使用的“時(shí)間”字段下的“準(zhǔn)則”單元格中，鍵入下列表達(dá)式：
Between[請(qǐng)鍵入開(kāi)始日期]And[請(qǐng)鍵入結(jié)束日期]。
　　六、單擊工具欄上的“保存”按鈕保存查詢，這時(shí)會(huì)彈出一個(gè)“另存為”的對(duì)話框，我們?cè)凇傲泶鏋椤睂?duì)話框中輸入該查詢表的名稱“留言記錄日期查詢”，然后單擊“確定”按鈕。　

　　在留言數(shù)據(jù)庫(kù)中建立了查詢后，我們接下來(lái)將利用Command對(duì)象來(lái)執(zhí)行日期查詢的SQL命令編寫(xiě)如下(Date.asp)：
< !--#include file="adovbs.inc" -->
< !--#include file="Search.asp" -->
< %
Head="留言簿查詢"
start=Request("start")
last=Request("last")
'讀取用戶輸入的數(shù)據(jù)，然后指定給start及l(fā)ast變量
If start="" Then start = #99-10-1#
If last="" Then last = #99-12-30#
'如果用戶沒(méi)有輸入查詢的開(kāi)始時(shí)間和結(jié)束時(shí)間時(shí)，在“開(kāi)始時(shí)間”和“結(jié)束時(shí)間”的查詢框中顯示這里定義的缺省值 99-10-1和99-12-30
% >
< h2 Align="Center"> < %=Head%>< /h2>
< hr noshade color="red">
< %
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("book2.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "留言記錄日期查詢"
'將 Connection對(duì)象及SQL命令設(shè)置給Command對(duì)象的ActiveConnection屬性以及 CommandText屬性
ReDim param(1)
'聲明含有兩個(gè)元素的數(shù)組，因?yàn)樵摗傲粞匀掌诓樵儭北仨氂胁樵兊钠鹗紩r(shí)間和結(jié)束時(shí)間，所以在這里必須聲明一個(gè)含有兩個(gè)元素的數(shù)組
param(0) = CDate(start)
param(1) = CDate(last)
Set rs = cmd.Execute( ,param )
'將start及l(fā)ast變量指定給param數(shù)組，然后傳入cmd.Execute函數(shù)中，在這里函數(shù)cmd.Execute含有兩個(gè)參數(shù)，其中第一個(gè)參數(shù)是用于希望返回的數(shù)據(jù)記錄數(shù)，這里缺省表示希望返回所有的數(shù)據(jù)記錄；參數(shù)二“param”是SQL命令的參數(shù)。
Search rs
%>
< hr noshade color="red"> < div align="center">
< a href="Datesearch.asp" class="text2">返回留言查詢< /a>
　　同理，利用Command對(duì)象來(lái)執(zhí)行SQL命令，實(shí)現(xiàn)“留言簿過(guò)去五天留言記錄查詢”的原理與上述實(shí)現(xiàn)“留言記錄日期查詢”的原理是一樣的，我們可以編寫(xiě)如下所示：
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("book2.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn
cmd.CommandText = "留言簿過(guò)去五天留言記錄"
Set rs = cmd.Execute
Search rs

　　至此，兩種實(shí)現(xiàn)查詢的方法我們都已學(xué)習(xí)過(guò)了，大家能說(shuō)出它們存在著什么區(qū)別嗎？
　　打個(gè)比方，如果我們直接把某一個(gè)SQL命令寫(xiě)在ASP程序中，要知道該命令是否正確無(wú)誤，我們必須啟動(dòng)瀏覽器瀏覽這個(gè)程序才能夠測(cè)試出來(lái)，若SQL命令有錯(cuò)，我們必須修改ASP程序，然后再重新瀏覽直到正確為止；如果我們利用Command對(duì)象來(lái)執(zhí)行SQL命令，則必須直到留言數(shù)據(jù)庫(kù)中建立的查詢完全正確才將SQL命令存儲(chǔ)成“查詢對(duì)象”，于是在ASP程序中我們只要將這個(gè)查詢對(duì)象的名稱指定給Command對(duì)象的CommandText參數(shù)，即可正確無(wú)誤地執(zhí)行SQL命令。

上一篇：ASP進(jìn)階教程Ⅷ：數(shù)據(jù)庫(kù)版本的留言簿

下一篇：ASP進(jìn)階教程Ⅸ：留言查詢功能（一）