implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP / ASP.NET
 ASPTurkiye.com Forum : ASP / ASP.NET
Konu Konu: sebebini anlaymadımm??? Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
x5_glshh_x5
Yeni Üye
Yeni Üye


Kayıt Tarihi: 09-Ocak-2008
Gönderilenler: 1
Gönderen: 09-Ocak-2008 Saat 22:33 | Kayıtlı IP Alıntı x5_glshh_x5

 

asp de kayıt düzenleme işlemi yapmak istiyorum.

duzenle.asp kodları

<%
id = Request.Querystring("id")
If Not Isnumeric(id) Or Len(id)=0 Then
mesaj "Yanlış Sorgu Cümlesi"
End If
'----------------------------------------------------------- ------------------------
Veri_yolu = Server.MapPath("proje.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
Set kset = bag.execute("SELECT * FROM sepet where id=" & id)
If kset.eof Then
mesaj "Olmayan Kayıt İstendi"
End If
%>
<center><a href="kayitlar_sepet.asp">Kayıtlar</a>
<form method=post action="guncelle_sepet.asp">
<table border=1>
<tr>
<td>Sepet Numarası</td>
<td><input type="text" name="sepet_no" value="<%= kset("sepet_no") %>"></td>
</tr>
<tr>
<td>Tarih</td>
<td><input type="text" name="tarih" value="<%= kset("tarih") %>"></td>
</tr>
<tr>
<td>Kitap Adı</td>
<td><input type="text" name="kitap_adi" value="<%= kset("kitap_adi") %>"></td>
</tr>
<tr>
<td>Müşteri İsim</td>
<td><input type="text" name="musteri_isim" value="<%= kset("musteri_isim") %>"></td>
</tr>
<tr>
<td>Müşteri Soyisim</td>
<td><input type="text" name="musteri_soyisim" value="<%= kset("musteri_soyisim") %>"></td>
</tr>
<tr>
<td>Müşteri E-posta</td>
<td><input type="text" name="eposta" value="<%= kset("eposta") %>"></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="güncelle"></td></tr>
</table>
<input type="hidden" name="id" value="<%= kset("id") %>">
</form>
<%
kset.Close
Set kset = Nothing
bag.Close
Set bag = Nothing
%>
<%'--------------------------%>
<% Sub mesaj(msg) %>
<p><%= msg %></p>
<% response.end %>
<% End Sub %>
<%'--------------------------%>

 

güncelle asp kodları ise,

<%
id=request.QueryString("id")
if id="" then
    id = 0
end if
sepet_no = Request.Form("sepet_no")
tarih = Request.Form("tarih")
kitap_adi = Request.Form("kitap_adi")
musteri_isim = Request.Form("musteri_isim")
musteri_soyisim = Request.Form("musteri_soyisim")
eposta = Request.Form("eposta")
'----------------------------------------------------------- ------------------------
Veri_yolu = Server.MapPath("proje.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
 Set kset = Server.Createobject("ADODB.Recordset")
sql = "UPDATE sepet SET sepet_no = '" & sepet_no & "', tarih = '" & tarih & "', kitap_adi = '" & kitap_adi & "', musteri_isim = '" & musteri_isim & "', musteri_soyisim = '" & musteri_soyisim & "', eposta = '" & eposta & "' WHERE id = " & id
Set kset = bag.execute(sql)
Set kset = Nothing
bag.Close
Set bag = Nothing
Response.Write "<p>Kayıt Güncellendi.</p>"
Response.Write "<p><a href=""kayitlar_sepet.asp"">Kayıtlar</a></p>"
%>

şimdi burda duzenle asp yi çalıştırıyorum.kayıtı düzeltiyorum.güncelle butonuna basıyorum..guncelle asp çalışıyor.kayıt güncelledi yazıyor.ancak kayıta baktığımda kayıtın eskisi gibi durduğunu gördüm.yani kayıtım düzenlenmiyo.sebebini anlayamadım.

UMARIM DERDİMİ ANLATABİLMİŞİMDİR.

ÖDEV HAZIRLIYORUM.YARDIMLARINIZI BEKLİYORUM.


 

Yukarı Dön Göster x5_glshh_x5's Özellikler Diğer Mesajlarını Ara: x5_glshh_x5
 
lodos
Yeni Üye
Yeni Üye


Kayıt Tarihi: 26-Aralık-2007
Ülke: Türkiye
Gönderilenler: 16
Gönderen: 16-Ocak-2008 Saat 19:49 | Kayıtlı IP Alıntı lodos

Veri_yolu = Server.MapPath("proje.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Veri_yolu
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
 Set kset = Server.Createobject("ADODB.Recordset")
sql = "UPDATE sepet SET sepet_no = '" & sepet_no & "', tarih = '" & tarih & "', kitap_adi = '" & kitap_adi & "', musteri_isim = '" & musteri_isim & "', musteri_soyisim = '" & musteri_soyisim & "', eposta = '" & eposta & "' WHERE id = " & id
Set kset = bag.execute(sql)
Set kset = Nothing
bag.Close
Set bag = Nothing
Response.Write "<p>Kayıt Güncellendi.</p>"
Response.Write "<p><a href=""kayitlar_sepet.asp"">Kayıtlar</a></p>"
%>



buraları alttaki yazdıgım kodlar ile değiştir

<%
powered = "by Lodos<br> msnyarismasi@hotmail.com"

set lodos2005 = server.createonject("adodb.connection")
lodos2005.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("proje.mdb")

Set lodos = Server.Createobject("ADODB.Recordset")
sql="select * from where id = "&id&""
lodos.open sql,lodos2005,1,3

lodos("sepet_no") = sepet_no
lodos("tarih") = tarih
lodos("kitap_adi") = kitap_adi
lodos("musteri_isim") = musteri_isim
lodos("musteri_soyisim") = musteri_soyisim
lodos("eposta") = eposta
lodos.update
lodos.close
set lodos = nothing
lodos2005.close
set lodos2005 = nothing

response.write "Bilgileriniz Guncellendi<br>"
response.write powered



%>
Yukarı Dön Göster lodos's Özellikler Diğer Mesajlarını Ara: lodos
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.