在ADO使用SELECT語法六

2019-11-18 22:28:03

字體：大中小

供稿：網(wǎng)友

子查詢

 在一個SELECT、SELECT...INTO、INSERT...INTO、DELETE、或UPDATE 表達式中，可以包括SELECT表達式，這個SELECT表達式叫做子查詢（sub query）。

您可以使用三種語法建立子查詢：

表達式 [ANY | ALL | SOME] (子查詢)

表達式 [NOT] IN (子查詢)

[NOT] EXISTS (子查詢)

 子查詢的一個SELECT表達式，與一般SELECT表達式的語法相同，必須包括在括號之中。

 您可以使用子查詢來替代SELECT表達式的運算式，或在WHERE或 HAVING子句中的運算式。

 關(guān)鍵字ANY和SOME的意義相同，用來選擇符合子查詢的任何記錄的比較條件。譬如下例將返回產(chǎn)品中單價大于訂單中任何數(shù)量大于100的記錄：

SELECT * FROM 產(chǎn)品

WHERE 單價 > ANY

(SELECT 單價 FROM 訂單

WHERE 數(shù)量 > 100)

關(guān)鍵字ALL，用來選擇符合子查詢的所有記錄的比較條件。

譬如在上例中將ANY改為ALL，將返回產(chǎn)品中單價大于訂單中所有數(shù)量大于100的記錄。

 關(guān)鍵字IN 述語來擷取在主查詢中且只有在子查詢之中包含相同值的某些記錄。下列范例會返回以百分之 25 或更高的折扣賣出的所有產(chǎn)品：

關(guān)鍵字IN，用來選擇在子查詢之中的記錄。譬如下例將返回訂單中數(shù)量 > 100的記錄：

SELECT * FROM 產(chǎn)品

WHERE 產(chǎn)品代號 IN

(SELECT 產(chǎn)品代號 FROM 訂單

WHERE 數(shù)量 > 100)

相反地，關(guān)鍵字NOT IN，用來選擇不在子查詢之中的記錄。

在true/false比較中，可以使用EXISTS關(guān)鍵字，來決定子查詢是否會返回任何的記錄。

 關(guān)鍵字ALL的asp例子，譬如ASP程式rs24.asp如下，[SELECT 姓名,科目,分數(shù) From 考試 Where 科目 = '算術(shù)' and 分數(shù) >= All (SELECT 分數(shù) From 考試 Where 科目='算術(shù)' and 姓名='張三')] 找出分數(shù)大于或等于張三的算術(shù)考試的算術(shù)記錄：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ=" & Server.MapPath("ntopsamp.mdb") & ";Driver={Microsoft access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set rs2 = Server.CreateObject("ADODB.Recordset")

SqlStr = "SELECT 姓名,科目,分數(shù) From 考試 Where 科目 = '算術(shù)' and 分數(shù) >= All (SELECT 分數(shù) From 考試 Where 科目='算術(shù)' and 姓名='張三')"

rs2.Open SqlStr,conn1,1,1

Response.Write "All高于張三算術(shù)所有分數(shù)"

Do while not rs2.EOF

Response.Write " " & rs2("姓名") & " " & rs2("科目") & " 分數(shù): " & rs2("分數(shù)")

rs2.MoveNext

Loop

rs2.Close

%>

 以上的 ASP程式rs24.asp，在用戶端使用瀏覽器，瀏覽執(zhí)行的結(jié)果，顯示分數(shù)大于或等于張三的算術(shù)考試的算術(shù)記錄。

Any

 關(guān)鍵字ANY用來選擇符合子查詢的任何記錄的比較條件，譬如ASP程式rs24.asp如下，[SELECT 姓名,科目,分數(shù) From 考試 Where 科目 = '算術(shù)' and 分數(shù) >= Any (SELECT 分數(shù) From 考試 Where 科目='算術(shù)' and 姓名='張三')] 找出分數(shù)大于或等于張三任何算術(shù)分數(shù)的記錄：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ=" & Server.MapPath("ntopsamp.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set rs2 = Server.CreateObject("ADODB.Recordset")

SqlStr = "SELECT 姓名,科目,分數(shù) From 考試 Where 科目 = '算術(shù)' and 分數(shù) >= Any (SELECT 分數(shù) From 考試 Where 科目='算術(shù)' and 姓名='張三')"

rs2.Open SqlStr,conn1,1,1

Response.Write "Any高于張三算術(shù)任何分數(shù)"

Do while not rs2.EOF

Response.Write " " & rs2("姓名") & " " & rs2("科目") & " 分數(shù): " & rs2("分數(shù)")

rs2.MoveNext

Loop

rs2.Close %>

 以上的 ASP程式rs24.asp，在用戶端使用瀏覽器，瀏覽執(zhí)行的結(jié)果，顯示分數(shù)大于或等于張三任何算術(shù)分數(shù)的記錄。

Some

 關(guān)鍵字SOME和ANY的意義相同，用來選擇符合子查詢的任何記錄的比較條件，譬如ASP程式rs24.asp如下，[SELECT 姓名,科目,分數(shù) From 考試 Where 科目 = '算術(shù)' and 分數(shù) >= Some (SELECT 分數(shù) From 考試 Where 科目='算術(shù)' and 姓名='張三')] 找出分數(shù)大于或等于張三任何算術(shù)分數(shù)的記錄：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ=" & Server.MapPath("ntopsamp.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

Set rs2 = Server.CreateObject("ADODB.Recordset")

SqlStr = "SELECT 姓名,科目,分數(shù) From 考試 Where 科目 = '算術(shù)' and 分數(shù) >= Some (SELECT 分數(shù) From 考試 Where 科目='算術(shù)' and 姓名='張三')"

rs2.Open SqlStr,conn1,1,1

Response.Write "Some高于張三算術(shù)任何分數(shù)"

Do while not rs2.EOF

Response.Write " " & rs2("姓名") & " " & rs2("科目") & " 分數(shù): " & rs2("分數(shù)")

rs2.MoveNext

Loop

rs2.Close

%>

 以上的 ASP程式rs24.asp，在用戶端使用瀏覽器，瀏覽執(zhí)行的結(jié)果，顯示分數(shù)大于或等于張三任何算術(shù)分數(shù)的記錄。

Select...Into

Select...Into將查詢的結(jié)果，建立一個產(chǎn)生的表。

語法如下：

SELECT 字段1[,字段2[, ...]] INTO 新表 [IN 外部表]
FROM 表

新表的名稱不可與現(xiàn)存表的名稱相同，否則將會發(fā)生錯誤。

Select...Into所建立的新表，其字段的資料類型及大小與所查詢的表相同。

讓我們看一個于ASP程式當中使用這個SQL指令的例子。

 譬如ASP程式rs9.asp如下，[Select * Into 電腦 From 產(chǎn)品 Where 種類 = '電腦'] 將 [產(chǎn)品] 表中所有 [種類] 為 [電腦] 的紀錄產(chǎn)生一個新的 [電腦] 表：

<%

Set conn1 = Server.CreateObject("ADODB.Connection")

conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

sql = "Select * Into 電腦 From 產(chǎn)品 Where 種類 = '電腦'"

Set a = conn1.Execute(sql)

Set rs3 = Server.CreateObject("ADODB.Recordset")

sql = "Select * from 電腦"

rs3.Open sql,conn1,1,1,1

%>

<TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>

<TR>

<TD ALIGN=CENTER BGCOLOR="#800000">代號</TD>

<TD ALIGN=CENTER BGCOLOR="#800000">名稱</TD>

<TD ALIGN=CENTER BGCOLOR="#800000">價格</TD>

<TD ALIGN=CENTER BGCOLOR="#800000">數(shù)量</TD>

</TR>

<% Do while not rs3.EOF %>

<TR>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs3("代號")%></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs3("名稱")%></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs3("價格")%></TD>

<TD BGCOLOR="f7efde" ALIGN=CENTER><%= rs3("數(shù)量")%></TD>

</TR>

<%

rs3.MoveNext

Loop

rs3.Close

%>

</TABLE>

 以上的 ASP程式rs9.asp，在用戶端使用瀏覽器，瀏覽執(zhí)行的結(jié)果，顯示新 [電腦] 表的記錄。

上一篇：一個免費的郵件列表源程序(一)

下一篇：在ADO使用SELECT語法五