Asp Ders Veritabanından Bilgileri Silmek Resimli Anlatım

Ramses · 10-11-2009, 12:31 AM

Konu : Veritabanından Bilgileri Silmek
Seviye : Basit
Kaynak Dosyalar :[Linkleri Görebilmek için Üye olmanız Gerekir. ÜYE OLMAK İÇİN TIKLAYINIZ...]

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>
<meta http-equiv="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"
%>

efe86 · 11-29-2009, 02:04 AM

link kırık upload edebilirmisiniz

10-11-2009, 12:31 AM	#1
Kullanıcı Profili Ramses Kullanıcı Bilgileri Üyelik tarihi: Oct 2009 Bulunduğu yer: Aydın Yaş: 24 Mesajlar: 16.645 Konular: 10212 Teşekkür Grafikleri Thanks: 0 Thanked 0 Times in 0 Posts Puan Grafiği Rep Puanı:11 Rep Gücü:100 RD: Ek Bilgiler	Asp Ders Veritabanından Bilgileri Silmek Resimli Anlatım Konu : Veritabanından Bilgileri Silmek Seviye : Basit Kaynak Dosyalar :[Linkleri Görebilmek için Üye olmanız Gerekir. ÜYE OLMAK İÇİN TIKLAYINIZ...] 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> <meta http-equiv="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" %>

11-29-2009, 02:04 AM	#2
Kullanıcı Profili efe86 Kullanıcı Bilgileri Üyelik tarihi: Nov 2009 Yaş: 26 Mesajlar: 4 Konular: 0 Teşekkür Grafikleri Thanks: 0 Thanked 0 Times in 0 Posts Puan Grafiği Rep Puanı:10 Rep Gücü:0 RD: Ek Bilgiler	link kırık link kırık upload edebilirmisiniz

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ç