Veritabanına kayıt etmek

Formdaki bilgileri veritabanına kayıt etmek isteyenler için kullanabileceğiniz kodlar burada yer alıyor.

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.

Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

İkinci kodda hata olabilir mi bir yerde? :dusun:
sanirim eksik kod var ama denemedim cunku db tablo su girilmemis yani rs tablo.
ya bişi dicem bu asp html le benziyor ben asp hiç ögremem sannettim 14 yasındadtım aspx asp.net biliyorum s:gul::gul:
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 arkadaşlar kod hatasının bulunduğu kısım burası kontrol edilip yeniden yüklenmesi gerekiyor...
ben de haya vermed arkadaslar.
tşk ederim gülşen hocam ben yaptım levocan05 arkadaşımız hatayı bulmuş onun gibi yapın kydet.asp'yi
hocalara teşekür ancak cehaletimizi mazur görün bu dosyaları servere atınca çalıştıramadık http 500 iç sunucu hatası alıyoruz, nereyi eksik yapıyoruz acaba

Yukarı Git