KuzeY

Şimdi acceses de vt.mdb şeklinde bir veritabani oluşturalım.





tablo ya ismini UYELER yaptık ve kaydettik

şimdi veritabanina kayıt işlemi için

kaydet.asp mizi tasarlıyoruz




Kod:
<table width="98%" border="0" cellpadding="0" cellspacing="0" id="table6"> <tr> <td align="center" ><form action="uyekaydet.asp" method="post"> <table width="560" border="0" cellpadding="3" cellspacing="1" bgcolor="#cacbcd" style="font-family:Tahoma; font-size:11px; " id="table8" height="40"> <tr height="31"> <td width="120" height="19" align="right" bgcolor="#f8f8f8" class="linestyle4"> Ad : </td> <td width="425" height="19" align="left" bgcolor="#f8f8f8" class="linestyle4"> <input type="text" name="ad" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana" value=""></td> </tr> <tr> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="right"> Soyad : </td> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="left"> <input type="text" name="soyad" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana"></td> </tr> <tr> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="right" valign="top"> Yaş :</td> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="left"> <input type="text" name="yas" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana"></td> </tr> <tr> <td height="18" bgcolor="#F8F8F8" class="linestyle4" align="right"> &nbsp;</td> <td height="18" bgcolor="#F8F8F8" class="linestyle4" align="left"> &nbsp;</td> </tr> </td> <tr> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center"> &nbsp;</td> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center"> <p align="right"> <input type="submit" value="Uye Kaydet !" style="border:1px solid #C0C0C0; font-family: Verdana; float:right; background-color:#F2F2F2" tabindex="13" name="gonder" onClick="form.gonder.disabled=true; form.gonder.value='Kaydediliyor Lütfen Bekleyiniz...'; form.submit()"></td> </tr> </table> </td></form> </tr> </table>

şimdi post medhodu ile gönderdiğimiz bilgileri uyekaydet.asp ile veritabanina kayıt işlemini sağlıklı biçimde kaydedelim.

Kod:
<%Set baglanti = server.createobject("adodb.connection")baglanti.op en "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & Server.MapPath("vt.mdb")%> <% ad = Request.Form("ad")soyad = Request.Form("soyad")yas = Request.Form("yas") IF ad="" or soyad="" ThenResponse.Write "<script language='JavaScript'>alert('Bilgileri Eksiksiz Doldurunuz...' );history.back(-1 );</script>" Response.End END IF Set Kaydet = Server.CreateObject("adodb.recordset")sql="Select * From uyeler"Kaydet.open sql , Baglanti ,1,3 Kaydet.AddNewKaydet("ad") = adKaydet("soyad") = soyadKaydet("yas") = yas Kaydet.UpdateKaydet.CloseSet Kaydet = NothingBaglanti.CloseSet Baglanti = Nothing%> <%Response.Write "<script language='JavaScript'>alert('Başarı İle Kaydedildi... Yönlendiriliyorsunuz.');</script>"Response.Write "<**** http-equiv='*******' content='1; URL=default.asp'>" %>
------------------- evett veri kayıt işlemi bu şekilde.



şimdi verilerimizi listeleyeceğimiz ve işlemlerin kısayollarını belirteceğimiz sayfa default.asp yi tasarlıyalım
This image has been resized. Click this bar to view the full image. The original image is sized 773x143 and weights 5KB.

Kod:
<table width="76%" border="0" cellpadding="0" cellspacing="0" id="table1"> <tr> <td > <%Set baglanti = server.createobject("adodb.connection")baglanti.op en "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & Server.MapPath("vt.mdb")%> <%Set Rs = Server.CreateObject("ADODB.Recordset")StrSql = "Select * from uyeler "Rs.Open StrSql, baglanti, 1, 3%> <table width="765" border="0" cellpadding="3" cellspacing="1" bgcolor="#cacbcd" style="font-family:Tahoma; font-size:11px; " id="table3" height="40"> <tr height="31"> <td width="119" height="19" align="left" bgcolor="#f8f8f8" class="linestyle4"> <b>&nbsp;&nbsp; Ad</b></td> <td width="239" align="left" valign="top" bgcolor="#f8f8f8" class="linestyle4" height="19"> <b>&nbsp;&nbsp; Soyad</b></td> <td width="100" align="left" valign="top" bgcolor="#f8f8f8" class="linestyle4" height="19"> <b>&nbsp;&nbsp; Yaş</b></td> <td width="89" align="center" valign="top" bgcolor="#f8f8f8" class="linestyle4" height="19"> <b>İşlemler</b></td> </tr> <% i=0 : Do While Not rs.EOF %> <% If i Mod 2=0 Then TrRenk="#F1F1F1" Else TrRenk="#FFFFFF" %> <tr> <td height="18" bgcolor="<%=TrRenk%>" class="linestyle4" align="center"> <table border="0" width="100%" id="table5"> <tr> </tr> </table> <font color="#CC0066"> <%=rs("ad")%></font></td> <td height="18" bgcolor="<%=TrRenk%>" class="linestyle4" align="center"> <%=rs("soyad")%></td> <td height="18" bgcolor="<%=TrRenk%>" class="linestyle4" align="center" width="100"> <font color="#008080"> <%=rs("yas")%></font></td> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center"> <table border="0" width="100%" id="table6"> <tr> <td onmouseover="bgColor='#EFF4F8'" onmouseout="bgColor='#FFFFFF'" align="left" width="59" style="border-style: solid; border-width: 1px"> <b><font size="1">&nbsp;<a href="sil.asp?id=<%=rs("id")%>"><span style="text-decoration: none"><font color="#000000">Sil</font></span></a></font></b></td> </tr> <tr> <td onmouseover="bgColor='#FFF2F2'" onmouseout="bgColor='#FFFFFF'" align="left" width="59" style="border-style: solid; border-width: 1px" height="23"> <b><font size="1">&nbsp;<a href="duzenle.asp?id=<%=rs("id")%>"><span style="text-decoration: none"><font color="#000000">Düzenle</font></span></a></font></b></td> </tr> </table> </td> </tr><% i=i+1 : rs.MoveNext : Loop %> </table> </td> </tr> </table>
şimdi sil.asp mizi tasarlıyoruz

Kod:
<% Response.Buffer = True %><%Set Rs = Server.CreateObject("ADODB.Connection")Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("vt.mdb")id = Request("id")Set silgitsin = Server.CreateObject("ADODB.RecordSet")SQL_delete = "DELETE from uyeler WHERE id="&id&""silgitsin.open SQL_delete,Rs,1,3Response.Redirect Request.serverVariables("HTTP_REFERER")%>
şimdide duzenle.asp mizi yapalım bitsin bu iş bea

Kod:
<% Response.Buffer = True %><%Set baglanti = server.createobject("adodb.connection")baglanti.op en "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & Server.MapPath("vt.mdb")%><%if Request("islem") = "degistir" then Call degistirEnd if%><%id = Request.QueryString("id")Set rs = Server.CreateObject("ADODB.RecordSet")sql = ("Select * from uyeler where id = "& id &" ")rs.Open sql, baglanti, 1, 3%><form action="duzenle.asp?islem=degistir&id=<%=rs("id")% >" method="post" name="hab"><table width="98%" border="0" cellpadding="0" cellspacing="0" id="table6"> <tr> <td align="center" > <table width="756" border="0" cellpadding="3" cellspacing="1" bgcolor="#cacbcd" style="font-family:Tahoma; font-size:11px; " id="table8" height="40"> <tr height="31"> <td width="120" height="19" align="right" bgcolor="#f8f8f8" class="linestyle4"> Ad : </td> <td width="621" height="19" align="left" bgcolor="#f8f8f8" class="linestyle4"> <input type="text" name="ad" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana" value="<%=Rs("ad")%>"></td> </tr> <tr> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="right"> Soyad : </td> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="left"> <input type="text" name="soyad" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana" value="<%=Rs("soyad")%>"></td> </tr> <tr> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="right" valign="top"> Yas :</td> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="left"> <input type="text" name="yas" size="22" style="border: 1px solid #C0C0C0; font-family:Verdana" value="<%=Rs("yas")%>"></td> </tr> <tr> <td height="18" bgcolor="#F8F8F8" class="linestyle4" align="right"> &nbsp;</td> <td height="18" bgcolor="#F8F8F8" class="linestyle4" align="left"> &nbsp;</td> </tr> </td> <tr> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center"> &nbsp;</td> <td height="18" bgcolor="#FFFFFF" class="linestyle4" align="center"> <p align="right"> <input type="submit" value="Uye Düzenle !" style="border:1px solid #C0C0C0; font-family: Verdana; float:right; background-color:#F2F2F2" tabindex="13" name="hab" onClick="form.gonder.disabled=true; form.gonder.value='Kaydediliyor Lütfen Bekleyiniz...'; form.submit()"></td> </tr> </table></form> </td> </tr> </table> <%Sub degistirad = Request.Form("ad")soyad = Request.Form("soyad")yas = Request.Form("yas")if ad = "" or soyad = "" then Response.Redirect Request.ServerVariables ("HTTP_REFERER")Elseid = Request.QueryString("id")Set Kaydet = Server.CreateObject ("ADODB.RecordSet")StrSql2 = ("Select * From uyeler where id = "& id &" ")Kaydet.Open StrSql2, baglanti, 1, 3Kaydet("ad") = adKaydet("soyad") = soyadKaydet("yas") = yasKaydet.UpdateResponse.Write "<script language='JavaScript'>alert('Değişiklikler Başarı İle Kaydedildi...');</script>"Response.Write "<**** http-equiv='*******' content='1; URL=default.asp'>" End ifEnd Sub%>

test edilmiş ve geliştirmeniz açısından basitçe hazırlanmıştır hiç bilmeyen arkadaşlara ilaçç gibi geleceğini düşündüğüm için hazırladım çünkü ben ilk başladığımda bunu bulabilmem çok zor olmuştu test edilmiş ve geliştirmeniz açısından basitçe hazırlanmıştır hiç bilmeyen arkadaşlara ilaçç gibi geleceğini düşündüğüm için hazırladım çünkü ben ilk başladığımda bunu bulabilmem çok zor olmuştu neyse arkadaşlar isteyen olursa dosyayıda upload edebilirim ben localhostta denedim çalışıyor sorun yok + veritabanina yazma izni vermezseniz hatalar alırsınız doğal olarak unutmayın.

( aslında vt.asp oluşturup tek bir sayfayı include yöntemi ile veritabani bağlantılarımızı yapabilirddikki kesinlikle tavsiyemdir arkadaşlar temiz programlama ve sağlıklı progamlama için en temel sart tek veritabani bağlantısıdır. )

bir şey olursa yazın cevaplarım ...