Asp ' de veri tabanından veri çekme yazdırma

strSql isimli bir değişken tanımladık ve bu değişkene veritabanı içindeki tablomuza bağlantıyı sağlayacak ifadeyi atadık.

Kod:

dim strSql

 strSql = "SELECT * FROM tblUye"

ve kayıtsetine yüklemiş olduğumuz tüm bu parametrelere uygun bir şekilde açılış yaptık.

Kod:

 objRs.Open strSql, objConn, , , &H0001

if = Eğer
objRs = Kayıtseti (Nesnesi)
EOF (End Of File) = Dosyanın, kuyruğun sonu..
Kayıtsetinin sonunu gösterir.
Türkçesi kayıtseti boş ise... demek. Accesste en son kayıt herzaman boştur. Hiç bir veri okunmadıysa kayıtseti bu satırdadır ve değeri false'dir. Tam türkçe ile veritabanı içindeki tblUye Boş ise demektir.

Kod:

if objRs.EOF then

Boş olduğunu sayfaya yazıyoruz.

Kod:

 <tr>

  <td>Veritabanı boş</td>

 </tr>

üst tarafta if objRs.EOF then ile veritabanı boş ise demiştik else ile burada boş değilse demek istedik yani tabloya herhangi bir veri yazılmış ise bu koddan sonrası icra edilir...

Kod:

else

do = yap, icra et, uygula
while = ...ıncaya kadar...
Not = ... Değilse(olumsuzluk) ...
objRs = Kayıtseti (Nesnesi)
EOF (End Of File) = Dosyanın, kuyruğun sonu..

Tam türkçesi en son veriye kadar bu ilemi tekrar tekrar yap demektir.

Kod:

do while Not objRs.EOF

tblUye isimli tablo içindeki alanlara verdiğimiz isimleri buradan çağırıyor ve içindekileri sayfaya aktarıyoruz. <% = %> bu Response.Write demektir.

Kod:

 <tr>

  <td><% = objRs("UYE_ID") %></td>

  <td><% = objRs("UYE_AD") %></td>

  <td><% = objRs("UYE_SOYAD") %></td>

  <td><% = objRs("UYE_MAIL") %></td> 

  <td><% = objRs("UYE_SEHIR") %></td>        

  <td><% = objRs("UYE_MESAJ") %></td>                      

 </tr>

veiratanındaki ilk kayıt okunur. Kod buraya gelince aşağıdaki komut ile, hemen üstteki kısma do while Not objRs.EOF döner ve bu işi son verinin okunmasına ve kayıtsetinin boş satıra gelmesine kadar döner durur ve <tr> ile </tr> arasını her dönüşte bir alttaki satır içinde bulunan değerler ile doldurarak dönmeye devam eder.

Kod:

 objRs.MoveNext()

loop

tblUye isimli tablonun boş olup olmadığını kontrol ettiğimiz kodu kapatıyoruz.

Kod:

end if

Kayıtseti nesnesini kapatıyor ve değerlerini boşaltıyoruz. Bunu yapmazsak kodumuz onlarca kullanıcı ile çalıştığında hem sayfanın geç açılmasına hemde sunucuyu boşa meşgul ederek sunucuyu yormaya ve performansını düşürmemize sebep oluruz.

Kod:

 objRs.Close

set objRs = Nothing

Bağlantı nesnesini de kapatıyor ve değerlerini boşaltıyoruz.

Kod:

 objConn.Close

set objConn = Nothing