01-20-2008
|
#3 (permalink)
|
|
Se®ve® Administ®ato®
|
Veritabanından Bilgileri Silmek
Konu : Veritabanından Bilgileri Silmek
Seviye : Basit
Kaynak Dosyalar :[ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
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>
<**** **********="Content-Type" content="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.CursorLocation = 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"
%>
Mesajınızda:
-> Mail Adresinizi verirseniz, -> Konuyla alakasız yorum yaparsanız / Konuyla alakasız bir soru sorarsanız, -> Amaçsız, içinde paylaşım olmayan, saçma konular açarsanız, -> Üstüste mesaj yazarsanız ( Flood yapmakda denir), -> Küfür ederseniz, -> Konuyla alakasız bir başlık atarsanız, -> Mesajınızın tamamını büyük harfler veya puntolar kullanarak yazarsanız,
Mesajınız SİLİNİR ayrıca siz BANLANIRSINIZ.
Bu tip mesajları ihbar etmek için yukarıda işaretlenmiş olan yere tıklayarak yöneticiyi uyarabilirsiniz. нαуαт, öℓüмℓє кυмαя σуηαмα ѕαηαтı∂ıя...
[ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
AkdenizForum Toolbar Sitemizi Daha İyi Kullanmak İstiyorsanız Daha Kolaylıkla Sizde İndirin [ÜYE OLMADAN LİNKLERİ GÖREMEZSİNİZ. BURAYA TIKLAYARAK BEDAVA ÜYE OLUN...]
|
|
|