Üye Girişi Yapınız     


    E-Posta
    

    Şifreniz
    



Şifremi Unuttum


Ana Sayfa Site Hakkında İletişim Ziyaretçi Defteri Döküman İndir Makale Ekle Haber Ekle

     Asp ile veritabanı işlemleri - Access veritabanından kayıt okuma
     admin     15.02.2013     14:27:23

Asp ile veritabanı işlemlerinin ilki olan vt bağlantısı ve kayıt okuma işlemini bir örnekle bu dersimde anlatmaya çalışacağım. ASP işlemleri için bilgisayarınızda IIS’in eksiksiz kurulu olmasına özen gösteriniz. Bu örnekte resimde de görüldüğü gibi haber tablosundaki haberbaslik ve habertarih alanlarını okuyarak ekrana yazdırıyoruz. Aynı zamanda haber başlıklarını <a> etiketi içerisine alarak bağlantı haline getiriyoruz. Böylece haberin detayını okumak için ilk adımı atmış oluyoruz. Haberin detayını okuma ve ekranda gösterme işlemlerini ilerleyen derslerimizde anlatmaya çalışacağım.



Veritabanı olarak Access 2007, veritabanı sağlayıcısı olarak Microsoft.Jet.OleDb.4.0 kullandık.

Tablomuz resimdeki gibidir. Oluşturarak deneme amaçlı bir kaç kayıt ekleyiniz.

 

Program Kodları : (Dreamweaver programı üzerinde yazıldı. Başka editörde kullanabilirsiniz.)

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Kayıt Okuma</title>
</head>
<body>
 <%
 dim bag_nesne
 set bag_nesne = Server.CreateObject("ADODB.Connection")
 bag_nesne.Open  "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/benimsitem.mdb")
 Dim sqlkod
 sqlkod="select * from haber" ’haber tablosundaki tüm alanları seç
 bag_nesne.Execute(sqlkod) ’sqlkod’u yürüt
 Set rs = Server.CreateObject("Adodb.Recordset")  ’RecordSet’i tanımla
 rs.Open sqlkod,bag_nesne,1,3 ’RecortSet’i aç.1,3 rakamları açılış moduyla ilgilidir.
 %>
 <div style="border:1px solid blue; background-color:#DDDDDD;">
<%
 Do while not rs.eof  ’Son kayıta gelinmemişse, dosya sonu değilse
 %> 
 <a href="haber_detay.asp?hbr_ID=<%=rs("haberid")%>">
   <%
     Response.Write(rs("haberbaslik"))%></a>--<%=rs("habertarih") ’Başlık ve tarihi ekrana yazdır.
  %><br /><br />
 <% rs.MoveNext ’Sonraki kayıta geç
 loop
 bag_nesne.Close ’Bağlantıyı kapat
%>
</div>
</body>
</html>


Sayfanın ekran çıktısı
 aşağıdaki gibidir.

Bir sonraki dersimizde görüşmek üzere. İyi çalışmalar...

Facebook'ta Paylaş    
Diğer ASP İçerikleri       Tüm Yazılar        Ana Sayfa


  =>Soru Sorun veya Yorum Yazın...

İsim Giriniz :
  

  =>Yapılan Yorumlar...