Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Asp - Php - Cgi - Perl 
Aspde Mysql Kodları İle Veritabanı İşlemleri [Beyaz Tahribat] Aspde Mysql Kodları İle Veritabanı İşlemleri [Beyaz Tahribat]
-
içimden geldi belki faydası dokunur diye beyaz tahribat adına yazayım dedim :) umarım faydalı olur.
bugun asp de form aracılığı ile mysql kodları kullanarak veritabanına veri girmeyi , düzenlemeyi , silmeyi göstericem.
bu bölümde veri kaydetmeyi göstericez.
veritabanı bağlantı nesnemiz = baglanti
Tablo adımız = veriler
tablodaki sutunlar = isim , id
--------------------Form.asp----------------------------
<form action="Form.asp?islem=kaydet" method="post">
<input type="text" name="isim" /><br />
<input type="submit" value="Gönder" />
</form>
-----------------------------------------------------------
--------------------Verilerin kaydedildiği bölüm-----------
<%
if request.querystring("islem")="kaydet" then
isim = request.form("isim")
Set kaydet = baglanti.execute("Insert Into Veriler (isim) values ('"&isim&"')")
Response.Write "Kayıt başarıyla girildi.."
end if
%>
--------------------------------------------------------------
bu şekilde veritabanına verimizi başarıyla kaydetmiş olduk..
şimdide kaydettiğimiz veriyi düzenleyelim.
--------------------------Duzenle.asp-----------------------------
<%
Set listele = baglanti.execute("Select * from Veriler ORDER BY Kimlik DESC")
do while not listele.eof
%>
<form action="Duzenle.asp?islem=duzenle&id=<%=listele("id")%>" method="post">
<input type="text" name="isim" value="<%=listele("isim")%>" /><br />
<input type="submit" value="Gönder" />
</form>
<%
listele.movenext
loop
listele.close
set listele = nothing
%>
---------------------------------------------------------------------
----------------------------------Buradada string ile gelen id ye göre veriyi düzenliyoruz.----------------------
<%
if request.querystring("islem")="duzenle" then
id = trim(request.querystring("id"))
isim = trim(request.form("isim"))
if (not isnumeric(id)) or id="" then
Response.Write "Hadi len yanlış id girdin."
Response.End
end if
Set duzenle = baglanti.execute("Update Veriler set isim='"&isim&"' where id="&id&"")
Response.Write "Veriniz başarıyla düzenlenmiştir.."
end if
%>
------------------------------------------------------------------------------------------------------------------------
Bu şekilde veritabanımızda bulunan veriyi düzenlemiş olduk.
şimdide bu veriyi silelim..
-------------------------------------Sil.asp-------------------------------------------
<%
Set listele = baglanti.execute("Select * from Veriler")
do while not listele.eof
Response.Write listele("isim") & " - " & "<a href=""Sil.asp?islem=sil&id="&listele("id")&""">Sil</a>"
listele.movenext
loop
listele.close
set listele = nothing
%>
----------------------------------------------------------------------------------------
-------------------------String ile gelen iddeki veriyi siliyoruz---------------------------------
<%
id = trim(request.querystring("id"))
if (not isnumeric(id)) or id="" then
response.Write "Id yi boş bıraktın tekrar dene."
response.end
end if
Set sil = baglanti.execute("Delete from Veriler where id="&id&"")
Response.Write "Veriyi başarıyla sildiniz.."
%>
---------------------------------------------------------------------------------------------------
Bu dokuman tamamen Abizittin tarafımdan Beyaz Tahribat için yazılmıştır.Hiçbir yerden alıntı yapılmamıştır.
Eğer bir hatamız varsa kusurumuza bakmayın.Saygılar.
-
eyw saolasında mysql mu mssql mu ?
Birde bağlantı nasıl yapılıyor ?
-
mysql kodları bunlar.
bağlantı koduda bu
<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=kullanici; pwd=sifre; database=veritabani; option=3; port=3306;"%>
bold olan yerler değiştirildikten sonra çalışmakta.
-
eyv devamını bekliyoruz hocam :D
-
vakit buldukça yazarız hacı ne demek.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla