Veri Tabanundan verileri okumak

Veri Tabanundan verileri okumak

Aşağıdaki koda bir bakalım

<%
Dim Baglanti, Bag, KayitSeti

Baglanti = Baglanti.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/veritabani_dosyasinin_adi.mdb"))

Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open (Baglanti)
Set KayitSeti = Bag.Execute("Select * FROM Dersler ORDER BY DersNo")

Do While Not KayitSeti.eof
%>

<table>
<tr>
<td>
Ders No
</td>
<td>
Ders İsmi
</td>
</tr>
<tr>
<td>
<% =KayitSeti("DersNo") %>
</td>
<td>
<% =KayitSeti("DersIsmi") %>
</td>
</tr>
</table>

<%
KayitSeti.movenext
loop
%>

Burada öncelikle baglantımızı kurtuk daha sonrada.

<% Do While Not.KayitSeti.eof %>

yazarak, veritabanındaki bütün kayıtları, en baştan başlayarak sonuna kadar okutuyoruz. ve bir tabla işerisine

<% =KayitSeti("DersNo") %>
<% =KayitSeti("DersIsmi") %>

Bu kodlar, veritabanındaki DersNo ve DersIsmi diye tanımlanan alanlardaki verileri okuyor.

<% KayitSeti.movenext
loop %>

Bölecede ikinci satıra geçip onu okuyoruz. yani Nekadar kayıt varsa okuyor ve kayıtlar bittindede duruyor .