En son web geliştirme öğreticiler
 

ADO Görüntü


Bir veri kümesindeki verileri görüntülemek için en yaygın yolu, bir HTML tablosundaki verileri göstermektir.


Alan adları ve Saha Değerlerini Display

Biz adlı bir veritabanı olan "Northwind" ve biz verileri görüntülemek istediğiniz "Customers" (bir .asp uzantılı dosyayı kaydetmeyi unutmayın) masanın:

Örnek

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

»Örnek göster


Bir HTML Tablo Alan Adları ve Saha Değerlerini Display

Biz de gelen verileri görüntüleyebilir "Customers" aşağıdaki satırları (bir .asp uzantılı dosyayı kaydetmeyi unutmayın) ile bir HTML tablosunun içindeki masanın:

Örnek

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

»Örnek göster


HTML Tablosuna Başlıkları ekle

Biz daha okunabilir (bir .asp uzantılı dosyayı kaydetmeyi unutmayın) yapmak için HTML tablosu için başlıkları eklemek istiyorum:

Örnek

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

»Örnek göster


Örnekler

Diğer Örnekler

HTML tabloya renk ekleme
Nasıl güzel görünmesi için HTML tablosu için renkleri ekleyin.