Asp Veritabanından Bilgileri Silmek

**Constantine** · 05-14-2009, 11:10 AM

Konu : Veritabanından Bilgileri Silmek
Seviye : Basit
Kaynak Dosyalar :Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın

Veritabanından verileri silebilmek için öncelikle silme işlemi yapacağımız verileri sayfaya dökmemiz lazım ki istediklerimizi seçip silebilelim.
Veritabanından kayıtları sayfaya dökme konusunu bir üst konuda açıklamıştım
onu küçük bir Kod:
<a href="sil.asp?id=<% = objRs("UYE_ID") %>">Sil</a>
ek yaparak silme işlemini eklemiş olacağız. Bu ek ile yapmak istediğimiz silinecek kaydın id numarasını alıp silme işlemi yapan asp dosyasına taşımaktan ibarettir.

kayit_oku.asp (veritabanındaki silme işlemini uygulayacağımız kayıtların tümünü burada sergiliyoruz.)

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Veritabanından kayıt okumak</title>
<aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9">
</head>
<body>

<table border="1" cellpadding="0" cellspacing="0" width="100%">
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")
'strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = 0
objRs.Cursoraaaaaaaa = 2
objRs.LockType = 1

dim strSql
strSql = "SELECT * FROM tblUye"
objRs.Open strSql

objConn

&H0001

if objRs.EOF then
%>
<tr>
<td>Veritabanı boş</td>
</tr>
<%
else

dim intSayac
intSayac = 0

dim strRenk
do while Not objRs.EOF
if intSayac mod 2 then
strRenk = "#e8e8e8"
else
strRenk = "#ffffcc"
end if
%>
<tr bgcolor="<% = strRenk %>">
<td><% = objRs("UYE_ID") %></td>
<td><% = objRs("UYE_AD") %></td>
<td><% = objRs("UYE_SOYAD") %></td>
<td><% = objRs("UYE_MAIL") %></td>
<td><% = objRs("UYE_SEHIR") %></td>
<td><% = objRs("UYE_MESAJ") %></td>
<td><a href="sil.asp?id=<% = objRs("UYE_ID") %>">Sil</a></td>
</tr>
<%
intSayac = intSayac + 1
objRs.MoveNext
loop
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>
</table>

</body>
</html>

sil.asp (silme işlemini yapacak sayfamız)
Kod:
<%
'Veritabanından silinecek olan verinin id numarasını alıyoruz. Bu gelen id numarasına sahip satırı sileceğiz.
dim intID
intID = Request.QueryString("id")

'---- CommandTypeEnum Values ----
const adCmdText = &H0001
'---- ExecuteOptionEnum Values ----
Const adExecuteNoRecords = &H00000080

dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim strSql
strSql = "DELETE FROM tblUye WHERE UYE_ID = " & intID

objConn.Execute(strSql)

adCmdText + adExecuteNoRecords

objConn.Close
set objConn = Nothing

Response.Redirect "kayit_oku.asp"
%>

05-14-2009, 11:10 AM	#1 (permalink)
Constantine {♥_♥} sürgün..{♥_♥}	Asp Veritabanından Bilgileri Silmek Konu : Veritabanından Bilgileri Silmek Seviye : Basit Kaynak Dosyalar :Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın Veritabanından verileri silebilmek için öncelikle silme işlemi yapacağımız verileri sayfaya dökmemiz lazım ki istediklerimizi seçip silebilelim. Veritabanından kayıtları sayfaya dökme konusunu bir üst konuda açıklamıştım onu küçük bir Kod: <a href="sil.asp?id=<% = objRs("UYE_ID") %>">Sil</a> ek yaparak silme işlemini eklemiş olacağız. Bu ek ile yapmak istediğimiz silinecek kaydın id numarasını alıp silme işlemi yapan asp dosyasına taşımaktan ibarettir. kayit_oku.asp (veritabanındaki silme işlemini uygulayacağımız kayıtların tümünü burada sergiliyoruz.) Kod: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Veritabanından kayıt okumak</title> <aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9"> </head> <body> <table border="1" cellpadding="0" cellspacing="0" width="100%"> <% dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") 'strConn = "Driver={Microsoft Access Driver (.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb") dim objConn set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn dim objRs set objRs = Server.CreateObject("ADODB.Recordset") objRs.CursorType = 0 objRs.Cursoraaaaaaaa = 2 objRs.LockType = 1 dim strSql strSql = "SELECT FROM tblUye" objRs.Open strSql objConn &H0001 if objRs.EOF then %> <tr> <td>Veritabanı boş</td> </tr> <% else dim intSayac intSayac = 0 dim strRenk do while Not objRs.EOF if intSayac mod 2 then strRenk = "#e8e8e8" else strRenk = "#ffffcc" end if %> <tr bgcolor="<% = strRenk %>"> <td><% = objRs("UYE_ID") %></td> <td><% = objRs("UYE_AD") %></td> <td><% = objRs("UYE_SOYAD") %></td> <td><% = objRs("UYE_MAIL") %></td> <td><% = objRs("UYE_SEHIR") %></td> <td><% = objRs("UYE_MESAJ") %></td> <td><a href="sil.asp?id=<% = objRs("UYE_ID") %>">Sil</a></td> </tr> <% intSayac = intSayac + 1 objRs.MoveNext loop end if objRs.Close set objRs = Nothing objConn.Close set objConn = Nothing %> </table> </body> </html> sil.asp (silme işlemini yapacak sayfamız) Kod: <% 'Veritabanından silinecek olan verinin id numarasını alıyoruz. Bu gelen id numarasına sahip satırı sileceğiz. dim intID intID = Request.QueryString("id") '---- CommandTypeEnum Values ---- const adCmdText = &H0001 '---- ExecuteOptionEnum Values ---- Const adExecuteNoRecords = &H00000080 dim strConn strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb") dim objConn set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn dim strSql strSql = "DELETE FROM tblUye WHERE UYE_ID = " & intID objConn.Execute(strSql)adCmdText + adExecuteNoRecords objConn.Close set objConn = Nothing Response.Redirect "kayit_oku.asp" %>

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	UslanmaM	Cevaplar	Son Mesaj
Php Veritabanından Rastgele Veri Okumak.	Constantine	ASP, Perl, Php, Html	0	05-14-2009 11:23 AM
Veritabanından Alınan Kayıtların Her Satırını Bir Önceki Satırdan Farklı Bir Renkle Sayfaya Dökmek.	Constantine	ASP, Perl, Php, Html	0	05-14-2009 11:22 AM
asp Veritabanından Bilgileri Güncellemek	Constantine	ASP, Perl, Php, Html	0	05-14-2009 11:10 AM
Veritabanından Bilgileri Sayfaya Dökmek	Constantine	ASP, Perl, Php, Html	0	05-14-2009 11:09 AM
Program silmek	AsSeMbLy	Macintosh Bilgi Paylaşım	0	12-13-2007 10:10 PM

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)