• 07-09-2008, 15:11:54
    #1
    arkadaşlar veriyi düzenlemiyor boş veri ekliyor sebebi nedir acaba

    --------------------------------------verilerin listelendiği ilk sayfa :---------------------------------------------------------------



    <%
    db="kariyervt.mdb"

    Set baglanti = Server.createobject("adodb.connection" )
    baglanti.open " Provider = Microsoft.jet.oledb.4.0;Data source= "&Server.mappath(""&db&"" )




    set rskisiler = server.createobject("ADODB.Recordset")
    SQL = "Select * from kisiler"
    rskisiler.open SQL,baglanti,1,3

    islem = request.QueryString("islem")
    id = request.QueryString("id")
    if islem = "sil" then
    baglanti.execute("Delete from Kisiler Where id=" & id)
    Response.Redirect "kayit-duzenle.asp"

    ENd if

    %>






    <table width="217" border="3">
    <tr>
    <td width="106" bgcolor="#999999">adı</td>
    <td width="91" bgcolor="#999999">soyadı</td>
    <td width="91" bgcolor="#999999">sil</td>
    <td width="91" bgcolor="#999999">d&uuml;zenle</td>
    </tr>
    <%Do until rsKisiler.eof%>
    <tr>
    <td><%=rskisiler("adi")%>&nbsp;</td>
    <td><%=rskisiler("ice")%>&nbsp;</td>
    <td><a href="kayit-duzenle.asp?islem=sil&amp;id=<%=rskisiler("id")%>" >sil</a></td>
    <td><a href="guncelle.asp?id=<%=rskisiler("id")%>">d&uuml ;zenle</a></td>
    </tr>

    <%
    rskisiler.movenext
    loop
    rskisiler.close
    baglanti.close
    %>
    </table>


    ------------------------------------------------------------------------------verileri güncelliyen sayfa------------------

    <%
    id = request.QueryString("id")
    db="kariyervt.mdb"

    Set baglanti = Server.createobject("adodb.connection" )
    baglanti.open " Provider = Microsoft.jet.oledb.4.0;Data source= "&Server.mappath(""&db&"" )



    set rskisiler = server.createobject("ADODB.Recordset")
    rskisiler.open "Select * from kisiler where id=" & id,baglanti,1,3



    If request.ServerVariables("REQUEST_METHOD")="POST" Then

    rskisiler("adi") = request.Form("adi")
    rskisiler("ice") = request.Form("ice")
    rskisiler.update
    response.Redirect("guncelle.asp?id=" & id)
    End if
    %>
    <table width="201" border="3">
    <tr>
    <td width="54">adi</td>
    <td width="8">:</td>
    <td width="113"><form id="form1" name="form1" method="post" action="">
    <label>
    <input name="adi" type="text" id="adi" value="<%=rskisiler("adi")%>" />
    </label>
    </form> </td>
    </tr>
    <tr>
    <td>soyadi</td>
    <td>:</td>
    <td><input name="ice" type="text" id="ice" value="<%=rskisiler("ice")%>" /></td>
    </tr>
    <tr>
    <td>yaşı</td>
    <td>:</td>
    <td>&nbsp;</td>
    </tr>
    <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td><form id="form2" name="form2" method="post" action="">
    <label>
    <input type="submit" name="Submit" value="G&uuml;ncelle" />
    </label>
    </form>
    </td>
    </tr>
    </table>
  • 07-09-2008, 15:15:05
    #2
    Eposta Aktivasyonu Gerekmekte
    ------------------------------------------------------------------------------verileri güncelliyen sayfa------------------
    
    <%
    id = request.QueryString("id")
    db="kariyervt.mdb"
    
    Set baglanti = Server.createobject("adodb.connection" )
    baglanti.open " Provider = Microsoft.jet.oledb.4.0;Data source= "&Server.mappath(""&db&"" )
    
    
    
    set rskisiler = server.createobject("ADODB.Recordset")
    rskisiler.open "Select * from kisiler where id=" & id,baglanti,1,3
    
    
    
    If request.ServerVariables("REQUEST_METHOD")="POST" Then
    
    rskisiler("adi") = request.Form("adi")
    rskisiler("ice") = request.Form("ice")
    rskisiler.update
    response.Redirect("guncelle.asp?id=" & id)
    End if
    %>
    <table width="201" border="3">
    <tr>
    <td width="54">adi</td>
    <td width="8">:</td>
    <td width="113"><form id="form1" name="form1" method="post" action="">
    <label>
    <input name="adi" type="text" id="adi" value="<%=rskisiler("adi")%>" />
    </label></td>
    </tr>
    <tr>
    <td>soyadi</td>
    <td>:</td>
    <td><input name="ice" type="text" id="ice" value="<%=rskisiler("ice")%>" /></td>
    </tr>
    <tr>
    <td>yaşı</td>
    <td>:</td>
    <td>&nbsp;</td>
    </tr>
    <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>
    <label>
    <input type="submit" name="Submit" value="G&uuml;ncelle" />
    </label>
    </form>
    </td>
    </tr>
    </table>
    böyle dene
  • 07-09-2008, 16:20:52
    #3
    sağol hocam ya sorun düzeldi
  • 07-09-2008, 19:02:01
    #4
    Eposta Aktivasyonu Gerekmekte
    butonu farklı form a almışsın giden veri null...
    o yüzden aradaki diğer form tagini silmen ve tüm input ları 1 form un arasına alman gerekir.
    kolay gelsin
  • 08-09-2008, 01:19:52
    #5
    hocam kodları webviz kullandığım sisteme uygulayım dedim ama olmadı. Kaydet dediğimde sayfada hareket yok. Veriyi güncellemiyor kodlar işlemiyor sebebi nedir acaba
    kodlar --
    ----------------güncelleme sayfası -------
    <!--#include file="admin-ust.asp" -->
    <%
    id = request.QueryString("id")
    db="tabani.mdb"
    Set baglanti = Server.createobject("adodb.connection" )
    baglanti.open " Provider = Microsoft.jet.oledb.4.0;Data source= "&Server.mappath(""&db&"" )
    set rskisiler = server.createobject("ADODB.Recordset")
    rskisiler.open "Select * from anasayfa where id=" & id,baglanti,1,3
    If request.ServerVariables("REQUEST_METHOD")="POST" Then
    rskisiler("baslik") = request.Form("baslik")
    rskisiler("yazi") = request.Form("yazi")
    rskisiler.update
    response.Redirect("guncelle.asp?id=" & id)
    End if
    %>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
    <link href="css_styles/default_style.css" rel="stylesheet" type="text/css" />
    <body OnLoad="initialiseWebWizRTE();">
      <br>
      <br>
      <table width="750"  border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
      <tr>
       <td align="center" bgcolor="#F4F7FB">     
            <p>&nbsp;</p>
            <table width="213" border="0" align="center">
              <tr>
                <td width="33" height="24"><span style="font-size: 10px">baslik</span></td>
                <td width="10"><span style="font-size: 10px">:</span></td>
                <td width="156"><label>
                  <input name="baslik" type="text" id="baslik" value="<%=rskisiler("baslik")%>">
                </label></td>
              </tr>
            </table>
            <p>
              <%
    Dim strFormName
    Dim strTextAreaName
    strFormName = "myForm" ' Formun adı
    strTextAreaName = "yazi"' Textarea'nin adı...
    '----------------------------------------------------------------------------------------------
    %>
              <!--#include file="RTE_editor_inc.asp" -->
            <textarea name="yazi" cols="90" rows="20" id="yazi">
    <%=rskisiler("yazi")%>
              </textarea>
            </p>
            <p>
              <input type="submit" name="Submit" id="Submit" value="Kaydet" />
               &nbsp;
               <input type="reset" name="reset" id="reset"  value="Temizle" />
              <br />
            </p>
          </form>   </td>
      </tr>
    </table>
    </div>
    </body>
    </html>