tutorial pengembangan web terbaru
 

ADO Tampilan


Cara yang paling umum untuk menampilkan data dari recordset, adalah untuk menampilkan data dalam tabel HTML.


Menampilkan Nama Field dan Lapangan Nilai

Kami memiliki database bernama "Northwind" dan kami ingin menampilkan data dari "Customers" meja (ingat untuk menyimpan file dengan ekstensi .asp):

Contoh

<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")
rs.Open "SELECT * FROM Customers", conn

do until rs.EOF
  for each x in rs.Fields
    Response.Write(x.name)
    Response.Write(" = ")
    Response.Write(x.value & "<br>")
  next
  Response.Write("<br>")
  rs.MoveNext
loop

rs.close
conn.close
%>

</body>
</html>

Tampilkan contoh »


Menampilkan Nama Field dan Nilai Bidang dalam Tabel HTML

Kami juga dapat menampilkan data dari "Customers" meja di dalam sebuah tabel HTML dengan baris berikut (ingat untuk menyimpan file dengan ekstensi .asp):

Contoh

<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")
rs.Open "SELECT Companyname, Contactname FROM Customers", conn
%>

<table border="1" width="100%">
<%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>

Tampilkan contoh »


Menambahkan Header ke Table HTML

Kami ingin menambahkan header ke meja HTML untuk membuatnya lebih mudah dibaca (ingat untuk menyimpan file dengan ekstensi .asp):

Contoh

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

Tampilkan contoh »


contoh

Contoh lebih

Menambahkan warna ke meja HTML
Bagaimana menambahkan warna ke meja HTML untuk membuatnya terlihat bagus.