Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Asp / Asp.NET
  • Bu Konuda
Şimdi Ara

TOPLU KAYIT

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
11
Cevap
0
Favori
543
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • BİLEN BİRİNDEN YARDIM İSTİYORUM 1,5 HAFTADIR BUNUN ÜZERİNDE ÇALIŞIYORUM FAKAT BİR ARPA BOYU YOL ALAMADIM.

    DATADAN İL VE SEHİR KISMI OLARAK ARAMA SONUCLARINI DO VE LOOP KULLANARAK LİSTELEME YAPTIRIYORUM.
    BU LİSTELEME SONUCUNDA ÇIKAN VERİLERİ ( BU KISIMDA LİSTELEME YAPIYOR )AD,SOYAD,ADRES,TEL,İL,İLÇE GİBİ KAYITLAR ÜZEİNDE DEĞİŞİKLİK YAPIP TEKRAR KAYIT YAPMAK İSTİYORUM.
    .
    BUNU NASIL YAPABİLİRİM.




    < Bu mesaj bu kişi tarafından değiştirildi lebrekon -- 22 Temmuz 2005, 19:14:07 >



  • tam anlayamadım ama bir nevi toplu güncelleme gibi bişiy istiyorsun sen galiba yani bi kerede atıyorum id si 5 olan bilgiyide düzenliycen idsi 9 olan bilgiyide dorumu anladım ?
  • çalışmamın kodlarını gönderirsem daha anlaşılır olacağım galiba.
  • LİSTELEME YAPTIĞIM KISIM
    *******************************************************************************
    ********************************************************************************
    <%
    sehir = request.form("sehir")
    il = request.form("il")

    %>

    <html>

    <head>
    <meta http-equiv="Content-Language" content="tr">
    <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
    <title>EMLAK ARAMA</title>
    </head>

    <body>
    <%
    SQL = "SELECT * FROM bilgi"
    SQL = SQL & " WHERE (bilgi.sehir = '" & sehir & "')and (bilgi.il = '" & il & "')"

    VT_YOL = SERVER.MAPPATH("db/data.mdb")
    DSN = "DBQ=" & VT_YOL & ";Driver={Microsoft Access Driver (*.mdb)}"

    Set BAGLANTI = Server.CreateObject("ADODB.Connection")
    BAGLANTI.Open DSN
    set rs = server.createobject("ADODB.Recordset")
    rs.open SQL,BAGLANTI,1,3
    %>
    <form method="POST" action="emlak.asp">
    <div align="center">
    <table border="1" width="35%" id="table1">
    <tr>
    <td colspan="5">
    <p align="center"><b>
    <font face="Verdana" size="2" color="#800080">EMLAK ARAMA</font></b></td>
    </tr>
    <tr>
    <td><font face="Verdana" size="2" color="#800080">SEMT</font></td>
    <td><select size="1" name="sehir">
    <option>KONAK</option>
    <option>KARŞIYAKA</option>
    </select></td>
    <td><font face="Verdana" size="2">İLLER</font></td>
    <td><select size="1" name="il">
    <option>İZMİR</option>
    <option>İSTANBUL</option>
    </select></td>
    <td><font color="#800080" face="Verdana">
    <input type="submit" value="Bul" name="B2"></font></td>
    </tr>
    </table>
    </div>
    </form>
    <form method="POST" action="kaydet.asp">
    <table border="1" width="955" id="table2">
    <tr>
    <td width="86">ADI</td>
    <td width="74">SOYADI</td>
    <td width="193" align="center">ADRES</td>
    <td width="157" align="center">POSTA</td>
    <td width="85" align="center">TEL</td>
    <td width="39" align="center">M2</td>
    <td align="center" width="67">
    ODA SAYISI</td>
    <td align="center" width="72">
    KAT DURUMU</td>
    <td align="center" width="125">
    FİYATI</td>
    </tr>
    <tr>
    <%DO while not Rs.Eof%>


    <td width="86"><input type="text" name="adi" size="10" value="<%=rs("adi")%>"></td>
    <td width="74">
    <input type="text" name="soyad" size="10" value="<%=rs("soyad")%>"></td>
    <td width="193"><input type="text" name="adres" size="25" value="<%=rs("adres")%>"></td>
    <td width="157">
    <p align="center">
    <input type="text" name="posta" size="21" value="<%=rs("posta")%>"></td>
    <td width="85">
    <input type="text" name="tel" size="11" value="<%=rs("tel")%>"></td>
    <td width="39"><input type="text" name="metre" size="3" value="<%=rs("metre")%>"></td>
    <td width="67">
    <input type="text" name="oda" size="3" value="<%=rs("oda")%>"></td>
    <td width="72">
    <input type="text" name="kat" size="3" value="<%=rs("kat")%>"></td>
    <td width="125">
    <input type="text" name="fiyat" size="15" value="<%=rs("fiyat")%>"></td>
    </tr>


    <%Rs.MoveNext
    LOOP
    %>

    </table>
    <p align="center"><input type="submit" value="Kaydet" name="B3"></p>
    </form>

    </body>

    </html>
    ***********************************************************************************
    *************************************************************************************

    KAYIT YAPMAYA ÇALIŞTIĞIM KISIM
    *************************************************************************************
    *************************************************************************************
    <%Dim adi,soyad,adres,posta,tel,metre,oda,kat,fiyat,update
    id =Request.Form("id")
    adi =Request.Form("adi")
    soyad =Request.Form("soyad")
    adres =Request.Form("adres")
    posta =Request.Form("posta")
    tel =Request.Form("tel")
    metre =Request.Form("metre")
    oda =Request.Form("oda")
    kat =Request.Form("kat")
    fiyat =Request.Form("fiyat")
    update = Now()

    %>

    <%
    Dim Connect, dbconn
    Connect="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/data.mdb")
    Set dbconn=Server.CreateObject("ADODB.Connection")
    dbconn.open Connect
    %>

    <%Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "select* from bilgi Where adi = '" & adi & "'", dbconn, 3, 3
    rs.update
    rs("adi") = adi
    rs("soyad") = soyad
    rs("adres") = adres
    rs("posta") = posta
    rs("tel") = tel
    rs("metre") = metre
    rs("oda") = oda
    rs("kat") = kat
    rs("fiyat") = fiyat
    rs.Update
    rs.CLOSE
    SET rs = NOTHING

    response.write "<P align='center'><b>Bilgileriniz başarıyla değiştirildi....<br><br><font size='3'></a></b>"

    %>
    <META HTTP-EQUIV=REFRESH CONTENT="1; URL=emlak.asp">
    ***********************************************************************************
    ***********************************************************************************

    EMLAK.ASP KISMINDA LİSTELENEN VERİLERİN BAZILARINI DEĞİŞTİRMEK İSTİYORUM. BUNU NASIL YAPABİLİRİM




  • arkadaşım anladım durumu şöyle yapmayı denedinmi
    adi soyadi adresi ... diye giden text boxların varya oraya bitanede veritabanındaki id numarasını yazdıracağın id adında textbox oluştur ama görünmemesi içinde
    <input type="hidden" name="id" size="20" value="<%=rs("id")%>"> type yi hidden yap daha sonra güncelleme yapacağın sayfadaki sql cümleni
    rs.open "select* from bilgi Where id = '" & id & "'", dbconn, 1, 3
    şeklinde değiştir bakalım olacakmı
  • denedim tür uluşmazlığı hatası verdi
    rs.open "select* from bilgi Where id = '" & id & "'", dbconn, 1, 3 burada
  • rs.open "select* from bilgi Where id = " & id & "", dbconn, 1, 3

    bide böle dene
    • Yapay Zeka’dan İlgili Konular
    Aöf İkinci Üniversiteye İnternetten kayıt oldum. İptal nasıl yapılır.?
    12 yıl önce açıldı
    E-devletten 1 imei kayıt hakkına 2 telefon kaydetmek
    2 yıl önce açıldı
    Yurtdışı telefon IMEI kaydı nasıl yapılır? Güncel 2025 IMEI kayıt ücreti
    2 yıl önce açıldı
    Daha Fazla Göster
  • allah kolaylık versin hocam benımde aynı sekilde bi sorunum var bu donemlerde...
  • AŞADAKİ SATIRI BÖYLE DEĞİŞTİRDİĞİM ZAMAN BÜTÜN KAYITLARI ID NUMARASI 1 OLAN HANEYE EKLİYOR. ELEME NASIL YAPILABİLİR

    <%Dim rs
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.open "select* from bilgi order by id asc",dbconn, 1, 3


    rs("adi") = adi
    rs("soyad") = soyad
    rs("adres") = adres
    rs("posta") = posta
    rs("tel") = tel
    rs("metre") = metre
    rs("oda") = oda
    rs("kat") = kat
    rs("fiyat") = fiyat
    rs.Update
    rs.CLOSE
    SET rs = NOTHING

    response.write "<P align='center'><b>Bilgileriniz başarıyla değiştirildi....<br><br><font size='3'></a></b>"

    %>
  • kardeşim istersen yaptığın şeyi databasesiyle beraber bana mail at gerekli düzenlemeyi yapıp sana geri yolliym daha doğrusu burda yayınlıym
  • ARKADAŞLAR BEN SORUNUMU ÇÖZDÜM. YARDIMLARINIZDAN DOLAYI HERKESE TEŞEKKÜR EDERİM. İYİ ÇALIŞMALAR.
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız