Burak ŞİMŞEK - Kişisel İnternet Sitesi - Ücretsiz BŞ & UWN Scriptleri

  • Increase font size
  • Default font size
  • Decrease font size

Kayıt Düzenleme-Güncelleme Yaptırmak

E-posta Yazdır

Veritabanına eklenmiş bir verinin nasıl düzenlenip, güncelleme yapılacağını anlatan bir derstir.

Öncelikle verilerinizi bir sayfada listeleyip id kayıt numarasına göre bağlantı sağlamalısınız. Bunu da Veritabanından Kayıt Alma ve Verileri Sayfalama dersinde nasıl yapılacağını yazmıştık. Verileri listelediğiniz sayfanın adının veriler.asp olsun. Bu sayfanın adının herhangi bir önemi yoktur. Ancak düzenleme yapacağınız sayfanın adının önemi vardır, çünkü bu sayfaya bağlantı sağlayacağız. Bu sayfanın adı da duzenle.asp olsun. Siz veriler.asp sayfasında verileri listeleyiniz ve her id kayıt numarasına şöyle bir bağlantı veriniz:

duzenle.asp?id=1

Not: Burada yazılan 1 numarasının yerine siz veriler.asp sayfasında id kayıt numarasını yazdıran ASP kodunu yazmalısınız.

Şimdi gelelim duzenle.asp sayfasının içeriğine...

duzenle.asp dosyasının içeriği:

<%
set Baglanti= Server.CreateObject("ADODB.Connection")
Baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veritabani.mdb"))
ID=Request.QueryString("ID")
Set veriduzenleme = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from VeriTablosu where ID=" & ID
veriduzenleme.Open Sorgu,Baglanti,1,3
%>
<form method="POST" action="guncelle.asp">
<input type="hidden" name="ID" value="<%=veriduzenleme("ID")%>">
<input type="text" name="mesaj" size="34" maxlength="250" value="<%=veriduzenleme("mesaj")%>">
<input type="submit" value="Güncelle" name="Gönder">
</form>
<%
veriduzenleme.Close
Set veriduzenleme=Nothing
%>

Yukarıdaki kodlarda veritabanı dosyasının adının veritabani.mdb, veritabanı tablosunun adının VeriTablosu, tablo içeriğinde bulunan sütun adlarının da ID ve mesaj olduğunu varsayım yaptık. Bu yukarıdaki duzenle.asp sayfasıyla ilk önce veritabanı bağlantımızı sağladık. Daha sonra bir önceki sayfadan id kayıt numarasını aldırdık. Sonra veritabanını açtık ve aldığımız id kayıt numarasına göre o kayıdı aldırdık. Küçük bir form örneği ile bir kutucuk ve bir düğme ekledik, sonrada veritabanımızı kapattık. Bundan sonra yapılması gereken değişikliği uygulayacak sayfayı oluşturmaktır. Bu sayfanın adını da guncelle.asp olarak belirledik.

guncelle.asp dosyasının içeriği:

<%
set Baglanti= Server.CreateObject("ADODB.Connection")
Baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veritabani.mdb"))
%>
<%
ID=Request.Form("ID")
mesaj=Request.Form("mesaj")
If ID="" or mesaj="" then
%>
Uyarı: Kayıt numarası alınamadı veya mesaj alanını boş bıraktınız.
<%
else
Set veriguncelleme = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from VeriTablosu where ID=" & ID
veriguncelleme.Open Sorgu,Baglanti,1,3
veriguncelleme("mesaj")=mesaj
veriguncelleme.Update
veriguncelleme.close 
set veriguncelleme=nothing
%>
Veriniz Güncellenmiştir.
<% end if %>

Bu yukarıdaki kodlarla ilk önce veritabanı bağlantımızı sağladık. Daha sonra bir önceki formdan verileri aldık. Bu verileri tam olarak almadığında veya boş bırakıldığında uyarı vermesini sağladık. Eğer herhangi bir hata yok ise veri güncelleme işlemi olarak veritabanımıza bağlantı sağlayıp, id kayıt numarasına göre veri içeriğini güncelledik ve veritabanımızı kapattık. En son olarak da güncellendiğine dair bir yazı yazdırdık.

Bu dersimizde de yukarıdaki örnek kodlarla anlatım sayesinde bir verinin nasıl düzenleneceğini ve güncellendiğini anlatmış olduk.