Yazılım Öğren

ASP Kayıt Düzenleme ve Güncelleme

Kayıtların listelendiÄŸi kayitlar.asp de her kaydın yanında bir düzenle baÄŸlantısı var. Bu baÄŸlantı ile duzenle.asp dosyasına iÅŸaret ediliyor. Bir de sorgu cümlesi konuluyor yanına: “duzenle.asp?id=XX” Buradaki XX yerine geçerli kaydın id alanındaki deÄŸeri yazılıyor. Åžimdi kayıt_duzenle.asp ye bakalım. 

Kod2. kayit_duzenle.asp

 

<% 

id = Request.Querystring(“id”)

If Not Isnumeric(id) Or Len(id)=0 Then 

mesaj “Yanlış Sorgu Cümlesi”

End If

‘———————————————————————————–

Veri_yolu = Server.MapPath(“db/kisiler.mdb”)

Bcumle = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Veri_yolu

Set bag = Server.Createobject(“ADODB.Connection”)

bag.Open (Bcumle)

Set kset = bag.execute(“SELECT * FROM kisiler where id =” & id)

If kset.eof Then 

mesaj “Olmayan Kayıt Ä°stendi”

End If

%>

 

<a href=”kayitlar.asp”>Kayıtlar</a>

 

<form method=post action=”kayit_guncelle.asp”>

<table border=1>

<tr>

<td>Ad</td>

<td><input type=”text” name=”ad” value=”<%= kset(“ad”) %>”></td>

</tr>

<tr>

<td>Teleon</td>

<td><input type=”text” name=”telefon” value=”<%= kset(“telefon”) %>”></td>

</tr>

<tr>

<td>Email</td>

<td><input type=”text” name=”email” value=”<%= kset(“email”) %>”></td>

</tr>

<tr>

<td>ICQ</td>

<td><input type=”text” name=”icq” value=”<%= kset(“icq”) %>”></td>

</tr>

<tr>

<td>Adres</td>

<td><input type=”text” name=”adres” value=”<%= kset(“adres”) %>”></td>

</tr>

<tr>

<td>Doğum Günü</td>

<td><input type=”text” name=”dgunu” value=”<%= kset(“dogum_gunu”) %>”></td>

</tr>

<tr>

<td></td> 

<td><input type=”submit” value=”güncelle”></td></tr>

</table>

<input type=”hidden” name=”id” value=”<%= kset(“id”) %>”>

</form>

 

<%

kset.Close

Set kset = Nothing

bag.Close

Set bag = Nothing

%>

<%’————————–%>

<% Sub mesaj(msg) %>

<p><%= msg %></p>

<% response.end %>

<% End Sub %>

<%’————————–%>

 

Aslında bu scriptin de öncekinden pek farkı yok. sadece sorgu cümlesinden “id” anahtarındaki deÄŸeri alıyor. Ve bu id deÄŸerini kullanarak tablodan tek kayıt seçiyor. (“SELECT * FROM kisiler where id =” & id). SeçtiÄŸi kayda ait deÄŸerleri ise form input alanlarına döküyor. Formun action özelliÄŸine ise kayit_guncelle.asp yazılmış. Güncelleme iÅŸini bu dosyaya havale ediyoruz. 

Kod3. kayit_guncelle.asp

 

<% 

ad = Request.Form(“ad”)

id = Request.Form(“id”)

telefon = Request.Form(“telefon”)

dgunu = Request.Form(“dgunu”)

icq = Request.Form(“icq”)

email = Request.Form(“email”)

adres= Request.Form(“adres”)

‘———————————————————————————–

Veri_yolu = Server.MapPath(“db/kisiler.mdb”)

Bcumle = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Veri_yolu

Set bag = Server.Createobject(“ADODB.Connection”)

bag.Open (Bcumle)

Set kset = Server.Createobject(“ADODB.Recordset”)

sql = “SELECT * FROM kisiler WHERE id = ” & id

kset.open sql, bag, 1, 3

kset(“ad”) = ad

kset(“telefon”) = telefon

kset(“email”) = email

kset(“adres”) = adres

kset(“icq”) = icq

kset(“dogum_gunu”) = dgunu

kset.update

kset.Close

Set kset = Nothing

bag.Close

Set bag = Nothing

Response.Write “<p>Kayıt Yapıldı.. BaÅŸka bir arzunuz? ”

Response.Write “<p><a href=”"kayitlar.asp”">Kayıtlar</a>”

%>