Web资料库处理.

1、（五）如何查詢、新增及刪除資料上一節的範例中，我們使用Execute方法來取得資料表中的資料，以便將資料表的資料輸出，但是無法做到查詢一筆記錄、新增一筆資料或刪除一筆資料等功能，關於這些功能我們必 須透過Execute方法來執行SQL （Structured Query Language結構化查詢語言）敘述才能完成，本 節將為您介紹SQL常用的語法，並且使用表單及 ASP物件與本節整合。如何查詢資料如果我們要透過查詢來尋找所要的資料，就要使用SQL中的Select命令來完成，其語法如下： 語法： Select fieldname1,fieldname2,fieldnameN From tbln

2、ameWhere con diti on Order By field name Desc功能：根據所下的條件式來進行查詢或排序。1.Select後面所連接的fieldname1、fieldname2、 、fieldnameN是指定那些欄位的資料要 做輸出，欄位名稱之間必須以逗號號加以區隔。2.From後面所連接的tblname是欲查詢資料的資料表名稱，若欲將 STOCK資料表的所有欄位資料全部輸出其寫法為：Select * From STOCK。3.如果只要將STOCK資料表的最前面n筆記錄輸出，其語法為：SelectTop 5 * From STOCK4.若查詢的資料是有條件的篩選，就必須

3、加上Where子句。Where子句後面的condition參數是一個條件式，它會將符合條件的記錄輸出。我們可以使用關係運算子如（=、）等來設定所要查詢的條件式，多個關係運算式連在一起就必須加上邏輯運算子（And、Or、Not）來設定多個查詢。例如欲從 PASSWORD資料表中查詢A_ID （身分證號 碼）欄位資料是L123456789而且A_Pass密碼）欄位資料是4568，其語法如下：Select * From FASSWORDWhere A_ID = L123456789 And A_Pass = 4568如果省略Where子句，將不判斷條件式。5.Order By後面所連接的欄位名稱是以

4、此欄位資料來做排序，若省略Desc參數則資料由小排到大；若加上Desc參數則資料由大排到小，其語法如下：Select * From PRODUCT Order By A_ID Desc此行敘述是依據PRODUCT資料表的A_ID欄位內容進行由大到小排序。如果省略Order By 將不做排序。6.當我們要使用Execute方法執行SQL敘述時，通常會配合輸入表單的資料來進行，其撰寫方式如下：1. Set newconn = Server.CreateObject(ADODB.Co nn ectio n)2. DBPath = Server.MapPath(Member.mdb)3. newco

5、nn. Ope n driver=Microsoft Access Driver (*.mdb); dbq= & DBPath4. SQLcmd = Select * From MEMBER Where A_Name =& Request(”name) & 5. Set RS = n ewc onn .Execute(SQLcmd)【說明】第4行中的Request( “name為取得表單所輸入的資料，是我們指定符合條件式的資料， 為何此行敘述會有這麼多的單引號及雙引號呢？因為在VBScript中會將資料視為變數名稱，所以我們要使用雙引號將 SQL命令轉成字串，然後再將 SQL命令交由Execu

6、te 執行，而單引號括住的資料將被 SQL命令視為字串。如果未被單引號包括住的資料將 被視為數字。譬如：若執行 Request( “name得到王小明(字串)，則Select轉換過程如 下：Select * From Member Where A Name =& Request( Name) &Select * From Member Where A_Name=王小明然後此行程式敘述就可以交由Execute方法來執行，而單引號包括住的資料將會被 SQL 視為字串，這樣看起來是不是清楚多了。簡單的說雙引號是給 VBScript解譯的，而單 引號是給SQL解譯。上機： 製作一個表單可以輸入資料，藉

7、由輸入的資料來查詢STOCK資料表符合A_Name欄位的資料。【畫面說明】1.當輸入的股票名稱找不到時所出現的畫面：“ Select * From Member Where A_Name =”&王小明”&i雙引號是用來表示 VBScript的 字串，加底線處轉成王小明單引號是用來表示 SQL命令中的 字串值。灰底處做字串合併lli*Llli*13JU1 扌戈J J 円”股票行情表詰筍入故査詢国脱宕码:I I竺.-設聖若稱MS titffi罐嵩虹侮成衣.曇“ U32369U32369 咅毎7878 100100 125125 5454 32003200旨tfiRtfiR. . 】nfcSnfcS

8、【程式】1 2. vtitle股票行情查詢v/title3. vcen ter4. vfont size=6 face=標楷體 股票行情表 5. 6. vform action=13_5_1.asp method=post7.請輸入欲查詢的股票名稱：8.9.vinput type=submit value=查詢1011 v/ce nter12%13n ame = Request(txtName)14If n ame = The n15Respo nse.Write 沒有輸入股票名稱，請重新輸入！v/ce nter16Resp on se.E nd17End If18Set newco nn =

9、 Server.CreateObject(ADODB.Co nn ectio n)19DBPath = Server.MapPath(MyDatabase.mdb)20newco nn. Open driver=Microsoft Access Driver (*.mdb); dbq= & DBPath21SQLcmd = Select * From STOCK Where A_Name= & name & 22Set RS = newco nn .Execute(SQLcmd)23IF RS.EOF The n24%25vfont size=5 color=blue26找不到這個股票，請重新

10、輸入股票名稱27v/fo ntv/ce ntervp28v%Else%29vtable alig n=ce nter30vtr bgcolor=aqua31vth編號32vth股票編號33vth股票名稱34vth開盤35vth收盤36vth最高37vth最低38vth成交數量39v%DO While Not RS.EOF%40vtr bgcolor=yellow41v%For i = 0 To RS.Fields.Cou nt - 1%42vtdv%=RS(i)%43v%Next%44v%45RS.MoveNext46Loop47RS.Close48n ewc onn. Close49End

11、IF50%【說明】1.第13行：將由表單輸入所取得的txtName欄位的內容指定給name變數。2.第14行：判斷name變數是否為空白（Empty），若是則執行第15-16行，使用Response.End停止程式的執行；若 name變數不為空白就跳出選擇結構。3.第18-20行：建立newconn連結物件，使其連結到 MyDatabase.mdb資料庫。4.第 21行：查詢STOCK :資料表，查詢的條件是 A_Name欄位資料等於name變數（加單引號所以被SQL視為字串）。5.第23行：判斷記錄指標是否指到 EOF標記，若是，表示找不到該筆資料，則執行第24-27行。若不是，表示有找到該

12、筆資料則執行第29-48行，將符合條件的記錄輸出。股票行情表 . .MiciQoft OLEOLE DEDE： proJer for ODBC 0 0临日灼 鰭婷 塗OH典: Micics11 庖hfiphfip YLkJOJCAHpLJMJJUKLYLkJOJCAHpLJMJJUKL二工：呵二股票行情表請柠入矩詢制删容軒*1*1輕裁微矗型股塁苦楠弗塁收鹽麒舄诫00戚知蚩“沒有發生錯誤创 讯如:utlock 100 1WXJLDO 恢0 . . .：上機：製作一個可輸入帳號與密碼的表單，當密碼與帳號符合時，則連結 MyDatabase.mdb資料庫。若輸入的帳號和密碼和PASS資料表中的A_I

13、D及A_Pass兩個 欄位的內容相同時，則打開Animal.htm 奇妙的動物世界網頁；否則，輸出Sorry !您 不是本站會員錯誤提示訊息。PASS資料表欄位格式欄位名稱資料類型欄位屬性欄位說明A_ID文字欄位大小：20帳號A_Pass數字欄位大小：長整數密碼【畫面說明】1.輸入密碼正確時出現的畫面:IlJCKiiOt! llltE EMt hxplODEI|檎审曰 SKOSKO 養視型帥算吉迪 TMCTMC 配E E ”丁一百翔出KjKj：f fl lLZ7-Dj)-lfchpl3JbHLZ7-Dj)-lfchpl3JbH丿JUcUJUcU 5 5 J J himhim沖冷人恳的娠爲輿密碼

14、幔號：曲銅 密磋尸輸入正確的資料即 按此鈕傳送出去奇妙的動物世界2.輸入密碼錯誤時出現的畫面聿科训蒔I I密碼輸入1234567-1 代:，止口世耐M M 方乂 mtUmtU H-!H-! tVtV 弓i.bi.b 1717 袖 H*H*， *7*7祐 feft-feft-jjfljjfl ? ?帀常頑顽甄可：冋8C*-8C*- - -在静， a a卜亂 2. 3. 4. 帳號密碼檢查作業5. 6. 7. vfont face=標楷體” size=5請輸入您的帳號與密碼 vp8. vform actio n=data3.asp method=post9.帳號：10密碼： vp11vinput

15、type=submit value=傳送資料12vinput type=reset value=重新設定13 v/form14 v/body15 v/html【程式2】1. v%I*data3.asp*I!vp2. id = Replace(Request(txtlD),3. pass = Request(txtPass)4. check = IsNumeric(pass)5. If id = Or pass = The n6.Resp on se.Write vfont size=5 color=bluevce nter7.Respo nse.Write 密碼、帳號等資料未填寫喔-！8.Re

16、sponse.Write va href=data3.htm 回上一頁 v/a庖號完紙眩岸集 HiLfEsotthdemc*HiLfEsotthdemc* jjQihrrjjQihrr也輸入錯誤的帳號與密碼E E關磺母晏曲工訝*9.Resp on se.E nd11 If check = False Then12Resp on se.Write vfont size=5 color=bluevce nter13Respo nse.Write 您輸入密碼欄的資料型態不正確！14Response.Write 回上一頁 15Resp on se.E nd16End If17Set newco nn

17、= Server.CreateObject(ADODB.Co nn ectio n)18DBPath = Server.MapPath(MyDatabase.mdb)19newco nn. Open driver=Microsoft Access Driver (*.mdb); dbq= & DBPath20SQLcmd = Select * From PASS Where A_ID =& id & And A_Pass = & pass & 21Set RS = newco nn .Execute(SQLcmd)22If RS.EOF The n23Resp on se.Write vfon

18、t size=5 color=blue24Respo nse.Write Sorry您不是本站的會員！vp25Resp on se.Write 所以不能進入本系統！”26Response.E nd27Else28Resp on se.Redirect An imal.htm29End If30%【說明】1. 第4行：使用IsNumeric函數判斷pass變數是否為數字，若是數字則傳回True,不是則傳回False （使用此方法的原因，是防止使用者輸入字串，而使得執行SQL命令時發生錯誤）。2.第 20行：設定查詢條件必須設定的帳號和輸入的帳號（A_ID=id）以及設定的密碼和輸入的密碼（A_P

19、ass=pass）兩者都一致才符合條件。並將符合條件的子句指定給變數 SQLcmd。其中id為字串頭尾須加單引號，pass為數字頭尾不加單引號。3.第 21行：透過Execute方法，將符合條件的記錄指定給RS物件變數。4.第22行：判斷是否為本站會員。若記錄指標指到EOF標記，表示未找到符合條件的資料，執行第23-26行；若記錄指標未指到 EOF標記表示有找到符合條件的資料，即 執行第28行連結到Aniaml.htm網頁。5.第23-26行：未找到符合條件的記錄，顯示Sorry !你不是本站的會員提示訊息並結束程式執行。6.第 28行：透過Redirect轉向方法，切換到 Animal.ht

20、m網頁。此網頁介紹五種動物，此網頁與本例ASP程式在書附光碟中同一資料夾下。注意：執行SQL命令須注意事項我們常使用表單的方式讓用戶端新增、查詢、刪除及修改伺服器端的資料，但是這些功能須執行QL命 令才能完成，有兩點須要注意一是SQL命令中的資料（輸入表單的資料）和Acces資料欄位必須符合，二 是SQL命令中的資料如果為空白，所以上述的密碼範例就是使用檢查的方式，強迫使用者輸入正確的資 料，但是往後的範例我們將不再使用檢查的方式，請您視需要加入。上機：試將STOCK資料表中成交量（即A_Amount欄位）大於3,000張的資料輸出，並依據收盤價（即A_End欄位）由大到小排序。-H-H -

21、-蔬盂蛊ktlti7J37.D.D.lAht13Al?J_4ZlJ_5J.it匸 渗帳至股票行情表厶/ %褊軀胶聖編靛Utw店稱關BS收盘城爲垠陆威矗滋虽2020 别5656価T T i.ui.u：kockkock lUlU LOOCLOOC 15001500 1O01O01919150150110110盘Q17X12563912015731365014 P145S67LOO11013宓L1212LOD12554543200丄丄皮註1 1弭女t!t!771001212456715 QL34fi79延疑 芈50601235411010H2S+7S融 i-匹ICOICO+5+536218 8M14

22、5671大罠程噩4-5aoao4b3210*&,*zJ函尢卫 lnH7nt【程式】1 2. 股票證券行情v/title3. 4. vfont size=6 face=標楷體 股票行情表 5. v/ce nter6. 3000 Order By A_End Desc11Set RS = newco nn .Execute(SQLcmd)12%13vtable alig n=ce nter1415編號16股票編號17股票名稱18開盤19收盤20最高21最低22成交數量23242526v%=RS(i)%27v%Next%28v%29RS.MoveNext將記錄指標移到下一筆30Loop31RS.Cl

23、ose將RS物件變數關閉32newconn.Close關閉newconn資料庫連結物件33%【說明】1.第10行：設定Where查詢條件式為 A_Amount （欄位）須大於300Q並且依據A_End （欄位）資料由大到小排序（因為加了 Desc參數所以由大到小排序）。2.第11行：透過Execute方法取得符合條件的所有記錄指定給RS物件變數，並將記錄指標指到符合條件的頭一筆記錄。如何新增一筆資料如果要將用戶端表單所輸入的資料，新增到伺服端的資料庫中，可使用SQL中的Insert Into 敘述來做新增一筆資料到該資料表的最後面，其語法如下：語法：In sert In to tbl name

24、(field name1,field name2 field nameN) Values (data1,data2,dataN)功能：新增一筆資料到伺服器端的資料庫。1.field name為資料表欄位名稱。2.在指定tblname資料表中插入一筆記錄，在該筆記錄內將data1放入fieldname1欄位內、data2放入fieldname2.dataN放入fieldnameN中。譬如：在PRODUCT資料表內新增一 筆記錄，將id變數（為數值不用加單引號）指定給A_ID欄位、name變數（為字串須加單 引號）指定給A_Name欄位（字串）、product變數指頂給A_Product欄位，其語

25、法如下：SQLcmd= Insert Into PRODUCT （A_ID,A_Name,A_Product ）Values （ “ & & &” 8name & Sproduct &將資料新增至PRODUCT資料表，其中id變數（為數值不用加單引號）新增到A_ID欄位, name變數（為字串須加單引號）新增到A_Name欄位（字串）以此類推，根據我們所對應 的欄位名稱來做新增資料的動作。3.當撰寫好SQLcmd時，您可以newconn.Execute方法執行SQLcmd，以達到新增資料到資 料表。其語法如下：n ewc onn .Execute SQLcmd相信您一定覺得奇怪，為什麼我們之前

26、的範例都會使用newconn.Execute方法執行SQLcmd，然後建立一個Recordset物件呢？因為Execute方法有點類似副程式的功能，可 以傳回一個查詢記錄，但是新增、刪除或修改資料就不須要傳回記錄了，所以直接使用 newconn.Execute SQLcmcj即可做到新增、刪除及修改資料。上機：製作一個表單，並試著新增一筆資料到RRODUCT資料表中PRODUCT資料表欄位格式欄位名稱資料類型欄位屬性欄位說明AD自動編號欄位大小：長整數編號A BooklD文字欄位大小：20書號A Name文字欄位大小：30書名A Price數字欄位大小：長整數書本單價A Qty數字欄位大小：長

27、整數庫存數量【畫面說明】I I 口割 血鬥STST曲*j j4 4 6?6? rtKQt)rtKQt)ra.Dra.D MTUMTUr r J J朗tiL)|tiL)|曰愉謝n n则i i屮町戈，刃创 尸至7 7：401!ilS5rT401!ilS5rT L L 如 5QV?)5QV?) higMhigM 启彗戰 3B03B0 ?Q?Q 丄 C.OLC.OL 2L2L WLid:WLid:疋.如:.?- - l-i. : t.r.r-t.-101257101257 WtodonmMniftWtodonmMnift 5M5M 216216m m lili；rr.rr. HIfi(fi(；= O

28、O i i - - :. JJ【程式】1. 17新增資料範例v/title181920至燔占!車事点卄 I I| |輸入資料後即 按下此鈕富若：匡药而亏口 $1 1 wsrwsr 眄L21書號：vin put type=text name=txtBookID22書名：vin put type=text name=txtNamevbr23單價：24庫存：vp25vinput type=submit value=新增資料name=btnSubmit26vinput type=reset value=清除資料27v/form28v/ce nter【說明】1第 3行：因為程式一開始執行時，表單的資料皆

29、為空白，為了防止執行程式第11,12行SQL 命令（不能有空白資料）所發生的錯誤。2.第4-7行：取得表單欄位的資料，並設定給所指定的變數。3.第11,12行：使用新增的SQL命令新增資料到PRODUCT資料表。依照您所指定的欄位名稱順序，依序設定新增的資料。4.第 11 行：將 Insert Into Product（A_BooklD,A_Name,A_Price,A_Qty）value 變成字串，並指定給SQLcmd變數。5.第12行：使用&符號，將SQLcmd字串變數與其它的資料連接在一起，並指定給SQLcmd變數。6.第 18 行：使用 v!-#include file= ” Show

30、_Product.asp 包含 Show_Product.asp 檔案（Show_Product.asp為輸出資料表的 ASP程式檔將它含入此程式中）。【注意】PRODUCT資料表中有五個欄位，為什麼只有新增四個欄位的資料呢？這是因為我們將A_ID欄位的資料類型設為自動編號，只要新增一筆資料，A_ID欄位的資料也會跟著編號一起新增（關於欄位自動編號的設定方式請參閱附錄B）。【程式】1. v%2 *Show Product asp*3.Set newco nn = Server.CreateObject(ADODB.Co nn ectio n)4.DBPath = Server.MapPath(

31、MyDatabase.mdb)5.n ewc onn. Ope n driver=Microsoft Access Driver (*.mdb); dbq= & DBPath6.SQLcmd = Select * From PRODUCT Order By A_ID Desc7.Set RS = newco nn .Execute(SQLcmd)8. %9. vcen ter10vfont size=5 color=blue 全 ok書店庫存 v/font11v/ce ntervp12vtable alig n=ce nter13vtr bgcolor=aqua14vth編號15vth書號16

32、vth書名17vth單價18vth庫存19v%DO While Not RS.EOF%20vtr bgcolor=yellow21v%For i = 0 To RS.Fields.Cou nt - 1%22vtd alig n=ce nterv%=RS(i)%23v%Next%24v%25RS.MoveNext26Loop1. 30v/table三.如何刪除資料在網路上的留言板或是討論區，有些網站可以讓網友們自己刪除所留下的資料，此權利是站長所給予的。在程式中如何透過網頁來刪除資料？SQL提供了 Delete語法讓我們來完成此動作，其語法如下：語法：Delete From tblname Wh

33、ere condition功能：根據所設定 Where條件式，刪除指定資料表中的某一筆資料1. tbl name參數指欲刪除資料的資料表名稱。2. Where子句內的condition參數是找出符合條件的條件式的資料。下例是在 料表中，找出A_ID欄位內容為50的資料，若有找到則刪除該筆記錄。Delete From PRODUCT Where A_ID = 50上機：根據上面所學，設計可刪除資料的程式【程式】W星1&时J J宾阳*tittit辺H且卷”甑射迪全山書店I車存诃B n # r -1；.- ： ： = a ； t ：|世凜亡4 |誉诜：卜! hi il8.SQLcmd = Delet

34、e From PRODUCT Where A_BooklD= & bookid & 9.n ewc onn .Execute SQLcmd10n ewc onn. Close11End If12%13刪除資料範例v/title141516vform method=POST actio n=data6.asp17書號：vinput type=text name=txtBookID18192021v/ce nter【說明】1.第8行：使用刪除的SQL命令，刪除PRODUCT資料表中的資料，且條件 A_BookID （欄位名稱）等於bookid變數（加了單引號為字串）。2.第14行：包含檔Show_

35、Product.asp請參閱13-29頁。四.如何修改資料當Web資料庫內某個資料表的某筆資料內容需要做修改時，可以透過SQL所提供的UpDate 敘述來完成，其語法：語法：UpDate tblname Set field1 = data1,field2 = data2,fieldN = dataN Where condition功能：根據Where子句所設定的條件式，修改指定欄位的資料。1. tblname參數指為欲修改的資料表名稱。2. Set是將資料指定給特定的欄位。3. Where根據所設定的條件式，修改指定欄位資料。例如下例語法：UpDate PRODUCT Set A_ Name=

36、青菜A_Price = 200 Where A_ID = 16上述語法是指修改PRODUCT資料表中條件為A_ID（欄位）等於16的資料，A_Name（欄位）資料修改為青菜（因為字串所以加單引號），A_Price中資料修改為200。上機：延續上一範例將 data5資料夾的程式原來可新增資料的程式，修改成可依據 書號（A_BookID）來修改資料的網頁。H H址 嗣 LHV 厲丄，dudu丄九 n n 畑了血:狙_? 口*事fit IV寿6 6 31D3D&S31D3D&SDM 4 2000筆彗聪左67C- I33CI1 1 5101443051014430血TzSE圭鞍效TO MIMaKsAV

37、TWtnvbKMIMaKsAVTWtnvbK“也 値碣国 祝!世，工鼻a a m m餌皿至:肚書!車存車傅序7F7F670670却W W【程式】1. %2.I*書號等於5101367的 資料被更修改了。18修改資料範例v/title19202122書號：vinput type=text name=txtBookID址至okok書|冲車厅11 11013211101321 W W indoindo F,9E肇誉利 F F 430430 6767 3 3 21CES21CES柝 VULBJ BwiBwi虎口111#?111#?倉 4 4西 沟门2 2 M01ES7M01ES7 轩inkiinki明

38、9 9围鋼銅規 两 21$21$I I 107 岂全F. mil 谚戶啟 4-.4-.133Z|K|K ht*PYLht*PYL：TQTQ . . 1*-11*-1 :讨，輸入資料後按 下此鈕*- |匕1 xl號订 MlMl F F23書名：24單價：25庫存：vinput type=text name=txtQtyvp26vinput type=submit value=修改資料name=btnUpDate27vinput type=reset value=清除資料28 29 【說明】1.第12,13行：使用修改的SQL命令，修改PRODUCT資料表的資料，根據bookid變數修改其資料，並指定給SQLcmd變數。2.第12行：_”換行按續符號，將較長的敘述分成數行。3.第 19 行：包含檔Show_Product.asp請參閱13-29頁。製作一個可下載檔案的網頁，網頁還可計算該檔案被下載的次數，當檔案被下載時次數就加1，程式並依據下載的次數由大到小排序。DOWNLOAD資料