Dữ liệu truy vấn ADO
Chúng tôi có thể sử dụng SQL để tạo truy vấn nhằm chỉ định một lựa chọn bản ghi (và trường) để xem.
Hiển thị dữ liệu đã chọn
Các công ty trưng bày bắt đầu bằng chữ "A"
Ở đây, chúng tôi muốn chỉ hiển thị các bản ghi từ bảng "Khách hàng" có "Tên công ty" bắt đầu bằng "A" (hãy nhớ lưu tệp có phần mở rộng .asp):
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers WHERE CompanyName LIKE 'A%'"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%></td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close%>
</table>
</body>
</html>
Hiển thị khách hàng từ Tây Ban Nha
Ở đây chúng tôi chỉ muốn hiển thị các khách hàng từ Tây Ban Nha (hãy nhớ lưu tệp có phần mở rộng .asp):
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers WHERE Country='Spain'"
rs.Open sql, conn
%>
<table border="1" width="100%">
<tr>
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
next%>
</tr>
<%do until
rs.EOF%>
<tr>
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%> </td>
<%next
rs.MoveNext%>
</tr>
<%loop
rs.close
conn.close
%>
</table>
</body>
</html>
Tạo bộ lọc cho người dùng
Ở đây, chúng tôi muốn tạo bộ lọc và cho phép người dùng chọn quốc gia để hiển thị khách hàng (hãy nhớ lưu tệp có phần mở rộng .asp):
<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:/webdata/northwind.mdb"
set rs=Server.CreateObject("ADODB.recordset")
sql="SELECT DISTINCT Country FROM Customers ORDER BY Country"
rs.Open sql, conn
country=request.form("country")
%>
<form method="post">
Choose Country <select name="country">
<% do
until rs.EOF
response.write("<option")
if rs.fields("country")=country
then
response.write(" selected")
end if
response.write(">")
response.write(rs.fields("Country"))
rs.MoveNext
loop
rs.Close
set
rs=Nothing %>
</select>
<input type="submit" value="Show customers">
</form>
<%
if country<>"" then
sql="SELECT
Companyname,Contactname,Country FROM Customers WHERE country='" & country &
"'"
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open
sql,conn
%>
<table width="100%" cellspacing="0" cellpadding="2"
border="1">
<tr>
<th>Companyname</th>
<th>Contactname</th>
<th>Country</th>
</tr>
<%
do until rs.EOF
response.write("<tr>")
response.write("<td>" & rs.fields("companyname")
& "</td>")
response.write("<td>" & rs.fields("contactname") &
"</td>")
response.write("<td>" & rs.fields("country") & "</td>")
response.write("</tr>")
rs.MoveNext
loop
rs.close
conn.Close
set rs=Nothing
set conn=Nothing%>
</table>
<% end if %>
</body>
</html>