Veritabanına kayıt etmek

Aşağıdaki kodlar ile ilk önce formumuzu oluşturuyoruz.Bu sayfayı form.asp olarak kayıt ediniz.



<html>


<head>


<title></title>


<meta HTTP-EQUIV="Content-Type" content="text/html; charset=windows-1254">


</head>


<body>


<%


    Dim oconn,rsuser,yol


    set oconn= Server.CreateObject("ADODB.Connection")


    set rsuser= Server.CreateObject("ADODB.Recordset")


    yol=server.mappath("veritabani.mdb")


    oconn.open "provider=microsoft.jet.oledb.4.0;data source="&yol


    %>


  <form action="kaydet.asp" method="post">


  <table width="350" frame="below" align="center" height="45" cellpadding="0" cellspacing="0">


     <tr> 


        <td width="170" height="10" class="clsRow">Adı: </td>


        <td>


        <input name="ad" class=clsRow id='ad' style='width:150;TEXT-ALIGN:left'  value="" size="20" ></td>


      </tr>


      <tr> 


        <td width="170" height="10" class="clsRow">Soyadı: </td>


        <td>


        <input name="soyad" class=clsRow id='soyad' style='width:150;TEXT-ALIGN:left'  value="" size="20" ></td>


      </tr>


      <tr> 


        <td width="170" height="10" class="clsRow">Kullanıcı Adı: </td>


        <td>


        <input name="uyead" class=clsRow id='uyead' style='width:150;TEXT-ALIGN:left'  value="" size="20" ></td>


      </tr>


      <tr> 


        <td width="170" height="10" class="clsRow">Şifre: </td>


        <td>


        <input name="uyesifre" class=clsRow id='uyesifre' style='width:150;TEXT-ALIGN:left'  value="" size="20" type="password" maxlength="4"></td>


      </tr>


      <tr> 


        <td width="170" height="10" class="clsRow">E-Mail: </td>


        <td>


        <input name="uyemail" class=clsRow id='uyemail' style='width:150;TEXT-ALIGN:left'  value="" size="20" ></td>


      </tr>


      <tr> 


        <td height="21" colspan="2" align="left" nowrap class=clsRow><div align="right"><input name="giris" type="submit" value="Kaydet" maxlength="10" class="clsRow"  style='cursor:hand' id="giris"></div></td>


      </tr>


</table>


</form>


</body>


</html>

Veritabanına kayıt eklemek için aşağıdaki kodu kaydet.asp olarak kayıt ediniz.



<%


    set oconn= Server.CreateObject("ADODB.Connection")


    set rs= Server.CreateObject("ADODB.Recordset")


    yol=server.mappath("veritabani.mdb")


    oconn.open "provider=microsoft.jet.oledb.4.0;data source="&yol


        


     ad=request.Form("ad")


     soyad=request.Form("soyad")


     uyead=request.Form("uyead")


     uyesifre=request.Form("uyesifre")


     uyemail=request.Form("uyemail")


      


     rsuser.open "Insert into tabloadi (ad,soyad,uyead,uyesifre,uyemail) values ('"&ad&"','"&soyad&"','"&uyead&"','"&uyesifre&"','"&uyemail&"')",oconn


  response.Write "Kayıt edildi"


%>

Veritabanına bu şekilde kayıt eklenecektir. Kolay gelsin

"Veritabanına kayıt etmek" dersi için 10 yorum var

ye olmadan yorum ekleyemezsiniz !