ADO ²éѯ
ÎÒÃÇ¿ÉÒÔʹÓà SQL À´´´½¨²éѯ£¬ÕâÑù¾Í¿ÉÒÔÖ¸¶¨½ö²é¿´Ñ¡¶¨µÄ¼Ç¼ºÍ×ֶΡ£
ʵÀý
- ÏÔʾ "Companyname" ÒÔ A ¿ªÍ·µÄ¼Ç¼
- ÈçºÎ½ö½öÏÔʾ "Customers" ±íµÄ "Companyname" ×Ö¶ÎÖÐÒÔ A ¿ªÍ·µÄ¼Ç¼¡£
- ÏÔʾ "Companyname" ´óÓÚ E µÄ¼Ç¼
- ÈçºÎ½ö½öÏÔʾ "Customers" ±íµÄ "Companyname" ×Ö¶ÎÖдóÓÚ E µÄ¼Ç¼¡£
- ½öÏÔʾÎ÷°àÑÀµÄ¿Í»§
- ÈçºÎ½ö½öÏÔʾ "Customers" ±íÖеÄÎ÷°àÑÀ¿Í»§¡£
- ÈÃÓû§À´Ñ¡Ôñɸѡ±ê×¼
- ÈÃÓû§¸ù¾Ý¹ú±ðÀ´Ñ¡Ôñ¿Í»§
ÏÔʾѡ¶¨µÄÊý¾Ý
ÎÒÃÇÏ£Íû½ö½öÏÔʾ "Customers" ±íµÄ "Companyname" ×Ö¶ÎÖÐÒÔ A ¿ªÍ·µÄ¼Ç¼£º
<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>