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>
VUE