Asp yardım - R10.net
15
Bildirimler TÜMÜNÜ OKUNDU SAY
Yükleniyor, lütfen bekleyiniz..
Giriş Yap Kayıt Ol
  • 02-10-2010, 23:07:00
    #1
    Merhaba arkadaşlar.

    Sorunum; mdb veri tabanındaki bilgileri <% do while not sr.eof %> ve <% sr.movenext : loop %> metodu ile guncelle.asp sayfamda listeliyorum. Fakat her hangi bir satırda güncelleme yaptığım zaman 1. sıradaki form güncelleniyor.

    Benim yapmak istedigim ise hangi formu günceliyorisem o formun güncellenmesi. Yardımcı olursanız sevinirim. Veri tabanına baglantım aşagıdaki şekildedir.
    Alıntı
    <form id="form1" method="post" action="guncelle.asp?id=<%=Request.QueryString("id ")%>&baglan=guncelle">
    Alıntı
    <%
    Set sr = Server.CreateObject("Adodb.Recordset")
    sql = "select * from upload"
    sr.Open sql,baglan
    %>
    Alıntı
    <%

    if Request.QueryString("baglan")= "guncelle" Then
    aciklama = Request.Form("aciklama")
    webadresi = Request.Form("webadresi")
    Set guncelle = Server.CreateObject("Adodb.Recordset")
    guncellesql = "select * from upload"
    guncelle.Open guncellesql,baglan,1,3
    guncelle("aciklama") = aciklama
    guncelle.update
    end if

    %>
    Beyoglu Ajans - İletişim: 0850 305 81 40
  • 03-10-2010, 01:21:59
    #2
    Böyle bir yol denedim fakat güncelle dedigim zaman 10 adet boş tablo oluşturuyor

    Alıntı
    <%
    Set sr = Server.CreateObject("Adodb.Recordset")
    sql = "select * from upload"
    sr.Open sql,baglan
    %>
    <%
    for i = 1 to 5
    webadresi = request.form("webadresi"&i&"")
    aciklama = request.form("aciklama"&i&"")
    set rs = server.createobject("ADODB.recordset")
    rssql="select * from upload"
    rs.open rssql,baglan,1,3
    rs("aciklama") = aciklama
    rs("webadresi") = webadresi
    rs.Update
    Next
    rs.close
    %>
    Beyoglu Ajans - İletişim: 0850 305 81 40
  • 03-10-2010, 02:19:45
    #3
    Hocam formdan gelen id değerini alıp sql cümlesinde karşılaştırmanız gerekli yani

    id=Request.Querystring("id")
    Set guncelle = Server.CreateObject("Adodb.Recordset")
    guncellesql = "select * from upload where id="&id&""
    bu satırı bu şekilde değiştirmeniz lazım ki istediğiniz kayıtı güncelleyesiniz
  • 03-10-2010, 12:58:14
    #4
    Recor Seti şu dediginiz gibi yapıyorum.

    Alıntı
    <%
    id=Request.Querystring("id")
    Set guncelle = Server.CreateObject("Adodb.Recordset")
    guncellesql = "select * from upload where id="&id&""
    guncelle.Open guncellesql,baglan,1,3
    guncelle("aciklama") = aciklama
    guncelle("webadresi") = webadresi
    guncelle.update
    %>
    Muhtemelen formdan gelen id tanımlıyamıyorum

    onuda şu şekilde degiştirdim ama.
    Alıntı
    <form id="form1" method="post" action="webtasarim_duzenle.asp?id">
    Şöyle bir hata alıyorum.
    Alıntı
    Hata Tipi:
    Microsoft JET Database Engine (0x80040E14)
    'id=' sorgu ifadesi içindeki Sözdizimi hatası (eksik işleç)
    /admin/webtasarim_duzenle.asp, line 15
    Bu arada asp'yi yeni yeni ögrenmeye çalışıyorum. Kusura bakmayın.
    Beyoglu Ajans - İletişim: 0850 305 81 40
  • 04-10-2010, 13:55:50
    #5
    Şu şekilde çözdüm yardım eden herkeze teşekkürler.

    Alıntı
    <form id="form1" method="post" action="webtasarim_duzenle.asp">
    <input type="hidden" name="id" value="<%=sr("id")%>">

    Alıntı
    <%
    if (Request.Form.Count > 0) then
    id=Request.Form("id")
    If id = "" OR IsNumeric(id) = False Then
    Response.Write "Geçersiz id numarası"
    Else
    Set guncelle = Server.CreateObject("Adodb.Recordset" )
    guncellesql = "select * from upload where id="&id
    guncelle.Open guncellesql,baglan,1,3
    If guncelle.eof Then
    Response.Write "Kayıt bulunamadı"
    Else
    guncelle("aciklama") = request.Form("aciklama")
    guncelle("webadresi") = request.Form("webadresi")
    guncelle("resim") = request.Form("resim")
    guncelle.update
    End If
    End If
    end if
    %>
    Beyoglu Ajans - İletişim: 0850 305 81 40