asp Veritabanından Bilgileri Güncellemek

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

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

Öncelikle şema olarak anlatıyorum altta kodları vereceğim. Kodları zaman zaman açıklayacağım.

Güncellenecek bilgileri listeleyeğimiz sayfamız.
kayit_oku.asp
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")

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_AD") %></td>
<td><% = objRs("UYE_SOYAD") %></td>
<td><a href="guncelle.asp?id=<% = objRs("UYE_ID") %>">Güncelle</a></td>
</tr>
<%
intSayac = intSayac + 1
objRs.MoveNext
loop
end if

objRs.Close
set objRs = Nothing

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

</body>
</html>

Güncellenecek veri bilgilerinin form elemanları içerisine alınıp değişiklik yapacağımız sayfa.
guncelle.asp
Kod:
<% @ Language=VBScript CodePage="1254" %>
<%
Option explicit
Response.Buffer = true
%>
<%
dim intUyeID
if Request.QueryString("id") <> "" then
intUyeID = Request.QueryString("id")
else
Response.Redirect("kayit_oku.asp")
end if

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
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
<style type="text/css">

</style>
<aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9">
</head>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<%
dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Cursoraaaaaaaa = 3
objRs.CursorType = 0
objRs.LockType = 3

dim strSql
strSql = "SELECT * FROM tblUye WHERE UYE_ID = " & intUyeID & ""
objRs.Open strSql

objConn

&H0001

if not objRs.EOF then
dim strAd
strAd = objRs("UYE_AD")

dim strSoyad
strSoyad = objRs("UYE_SOYAD")

dim strMail
strMail = objRs("UYE_MAIL")

dim strSehir
strSehir = objRs("UYE_SEHIR")

dim strMesaj
strMesaj = objRs("UYE_MESAJ")
%>
<table border="0" cellpadding="0" cellspacing="0" width="779">
<form action="guncelle_islem.asp" method="POST">
<input type="hidden" name="id" value="<% = intUyeID %>">
<tr>
<td width="120">Ad :</td>
<td><input type="text" name="ad" value="<% = strAd %>" size="20"></td>
</tr>
<tr>
<td width="120">Soyad :</td>
<td><input type="text" name="soyad" value="<% = strSoyad %>" size="20"></td>
</tr>
<tr>
<td width="120">Mail :</td>
<td><input type="text" name="mail" value="<% = strMail %>" size="20"></td>
</tr>
<tr>
<td width="120">Şehir :</td>
<td>
<select name="sehir">
<%
dim arrIller
arrIller = Array("Seçiniz"

"Adana"

"Adıyaman"

"Afyon"

"Ağrı"

"Aksaray"

"Amasya"

"Ankara"

"Antalya"

"Ardahan"

"A rtvin"

"Aydın"

"Balıkesir"

"Bartın"

"Batman"

"Bayb urt"

"Bilecik"

"Bingöl"

"Bitlis"

"Bolu"

"Burdur"

" Bursa"

"Çanakkale"

"Çankırı"

"Çorum"

"Denizli"

"Di yarbakır"

"Düzce"

"Edirne"

"Elazığ"

"Erzincan"

"Er zurum"

"Eskişehir"

"Gaziantep"

"Giresun"

"Gümüşhan e"

"Hakkari"

"Hatay"

"Iğdır"

"Isparta"

"İstanbul"

"İzmir"

"K.Maraş"

"Karabük"

"Karaman"

"Kars"

"Kast amonu"

"Kayseri"

"Kırıkkale"

"Kırklareli"

"Kırşehi r"

"Kilis"

"Kocaeli"

"Konya"

"Kütahya"

"Malatya"

" Manisa"

"Mardin"

"Mersin"

"Muğla"

"Muş"

"Nevsehir"

"Niğde"

"Ordu"

"Osmaniye"

"Rize"

"Sakarya"

"Samsu n"

"Siirt"

"Sinop"

"Sivas"

"Şanlıurfa"

"Şırnak"

"T ekirdağ"

"Tokat"

"Trabzon"

"Tunceli"

"Uşak"

"Van"

"Yalova"

"Yozgat"

"Zonguldak")
dim strSelected
dim intSayac
for intSayac = 0 to UBound(arrIller)
if arrIller(intSayac) <> "" then
if arrIller(intSayac) = strSehir then strSelected=" selected" else strSelected=""
end if
Response.Write " <option value=""" & arrIller(intSayac) & """" & strSelected & ">" & arrIller(intSayac) & "</option>" & vbNewLine
next
%>
</select>
</td>
</tr>
<tr>
<td width="120" valign="top">Mesaj :</td>
<td><textarea rows="5" cols="35" name="mesaj" class="input"><% = strMesaj %></textarea></td>
</tr>
<tr>
<td width="120"> </td>
<td><input type="submit" value="Güncelle"></td>
</tr>
</form>
</table>
<%
end if

objRs.Close
Set objRs = Nothing
%>
</td>
</tr>
</table>

</body>
</html>
<%
objConn.Close
Set objConn = Nothing
%>

Değiştirilen bilgileri formdan alıp veritabanına kaydedecek olan sayfamız.
guncelle_islem.asp
Kod:
<%
intUyeID = Request.Form("id")
strAd = Request.Form("ad")
strSoyad = Request.Form("soyad")
strMail = Request.Form("mail")
strSehir = Request.Form("sehir")
strMesaj = Request.Form("mesaj")

const adCmdText = &H0001
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

strSql = "UPDATE tblUye SET UYE_AD = '" & strAd & "'

UYE_SOYAD = '" & strSoyad & "'

UYE_MAIL = '" & strMail & "'

UYE_SEHIR = '" & strSehir & "'

UYE_MESAJ = '" & strMesaj & "' WHERE UYE_ID = " & intUyeID
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 Güncellemek Konu : Veritabanından Bilgileri Güncellemek Seviye : Basit Kaynak Dosyalar :Linkleri Üyelerimiz Görebilir. UslanmaM Üyeliği İçin Tıklayın Öncelikle şema olarak anlatıyorum altta kodları vereceğim. Kodları zaman zaman açıklayacağım. Güncellenecek bilgileri listeleyeğimiz sayfamız. kayit_oku.asp 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") 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_AD") %></td> <td><% = objRs("UYE_SOYAD") %></td> <td><a href="guncelle.asp?id=<% = objRs("UYE_ID") %>">Güncelle</a></td> </tr> <% intSayac = intSayac + 1 objRs.MoveNext loop end if objRs.Close set objRs = Nothing objConn.Close set objConn = Nothing %> </table> </body> </html> Güncellenecek veri bilgilerinin form elemanları içerisine alınıp değişiklik yapacağımız sayfa. guncelle.asp Kod: <% @ Language=VBScript CodePage="1254" %> <% Option explicit Response.Buffer = true %> <% dim intUyeID if Request.QueryString("id") <> "" then intUyeID = Request.QueryString("id") else Response.Redirect("kayit_oku.asp") end if 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 %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title></title> <style type="text/css"> <!-- body { margin:0px; padding:0px; } --> </style> <aaaa http-equiv="aaaaaaa-Type" aaaaaaa="text/html; charset=iso-8859-9"> </head> <body> <table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td align="center"> <% dim objRs set objRs = Server.CreateObject("ADODB.Recordset") objRs.Cursoraaaaaaaa = 3 objRs.CursorType = 0 objRs.LockType = 3 dim strSql strSql = "SELECT * FROM tblUye WHERE UYE_ID = " & intUyeID & "" objRs.Open strSql objConn &H0001 if not objRs.EOF then dim strAd strAd = objRs("UYE_AD") dim strSoyad strSoyad = objRs("UYE_SOYAD") dim strMail strMail = objRs("UYE_MAIL") dim strSehir strSehir = objRs("UYE_SEHIR") dim strMesaj strMesaj = objRs("UYE_MESAJ") %> <table border="0" cellpadding="0" cellspacing="0" width="779"> <form action="guncelle_islem.asp" method="POST"> <input type="hidden" name="id" value="<% = intUyeID %>"> <tr> <td width="120">Ad :</td> <td><input type="text" name="ad" value="<% = strAd %>" size="20"></td> </tr> <tr> <td width="120">Soyad :</td> <td><input type="text" name="soyad" value="<% = strSoyad %>" size="20"></td> </tr> <tr> <td width="120">Mail :</td> <td><input type="text" name="mail" value="<% = strMail %>" size="20"></td> </tr> <tr> <td width="120">Şehir :</td> <td> <select name="sehir"> <% dim arrIller arrIller = Array("Seçiniz""Adana""Adıyaman""Afyon""Ağrı" "Aksaray""Amasya""Ankara""Antalya""Ardahan""A rtvin""Aydın""Balıkesir""Bartın""Batman""Bayb urt""Bilecik""Bingöl""Bitlis""Bolu""Burdur"" Bursa""Çanakkale""Çankırı""Çorum""Denizli""Di yarbakır""Düzce""Edirne""Elazığ""Erzincan""Er zurum""Eskişehir""Gaziantep""Giresun""Gümüşhan e""Hakkari""Hatay""Iğdır""Isparta""İstanbul" "İzmir""K.Maraş""Karabük""Karaman""Kars""Kast amonu""Kayseri""Kırıkkale""Kırklareli""Kırşehi r""Kilis""Kocaeli""Konya""Kütahya""Malatya"" Manisa""Mardin""Mersin""Muğla""Muş""Nevsehir" "Niğde""Ordu""Osmaniye""Rize""Sakarya""Samsu n""Siirt""Sinop""Sivas""Şanlıurfa""Şırnak""T ekirdağ""Tokat""Trabzon""Tunceli""Uşak""Van" "Yalova""Yozgat""Zonguldak") dim strSelected dim intSayac for intSayac = 0 to UBound(arrIller) if arrIller(intSayac) <> "" then if arrIller(intSayac) = strSehir then strSelected=" selected" else strSelected="" end if Response.Write " <option value=""" & arrIller(intSayac) & """" & strSelected & ">" & arrIller(intSayac) & "</option>" & vbNewLine next %> </select> </td> </tr> <tr> <td width="120" valign="top">Mesaj :</td> <td><textarea rows="5" cols="35" name="mesaj" class="input"><% = strMesaj %></textarea></td> </tr> <tr> <td width="120"> </td> <td><input type="submit" value="Güncelle"></td> </tr> </form> </table> <% end if objRs.Close Set objRs = Nothing %> </td> </tr> </table> </body> </html> <% objConn.Close Set objConn = Nothing %> Değiştirilen bilgileri formdan alıp veritabanına kaydedecek olan sayfamız. guncelle_islem.asp Kod: <% intUyeID = Request.Form("id") strAd = Request.Form("ad") strSoyad = Request.Form("soyad") strMail = Request.Form("mail") strSehir = Request.Form("sehir") strMesaj = Request.Form("mesaj") const adCmdText = &H0001 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 strSql = "UPDATE tblUye SET UYE_AD = '" & strAd & "' UYE_SOYAD = '" & strSoyad & "' UYE_MAIL = '" & strMail & "' UYE_SEHIR = '" & strSehir & "' UYE_MESAJ = '" & strMesaj & "' WHERE UYE_ID = " & intUyeID 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 Silmek	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
ATi ekran kartlarının BIOS'unu güncellemek...	BoDyGuArD	Donanım	0	02-28-2007 12:14 AM

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