TOPLU KAYIT

20 yıl

Onbaşı

Konu Sahibi

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.

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

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

A

apostylee

20 yıl

Binbaşı

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 ?

Bu mesaja 1 cevap geldi.

L

lebrekon

20 yıl

Onbaşı

Konu Sahibi

çalışmamın kodlarını gönderirsem daha anlaşılır olacağım galiba.

Bu mesaja 1 cevap geldi.

L

lebrekon

20 yıl

Onbaşı

Konu Sahibi

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

Bu mesaja 1 cevap geldi.

A

apostylee

20 yıl

Binbaşı

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ı

Bu mesaja 1 cevap geldi.

L

lebrekon

20 yıl

Onbaşı

Konu Sahibi

denedim tür uluşmazlığı hatası verdi
rs.open "select* from bilgi Where id = '" & id & "'", dbconn, 1, 3 burada

Bu mesaja 1 cevap geldi.

A

apostylee

20 yıl

Binbaşı

rs.open "select* from bilgi Where id = " & id & "", dbconn, 1, 3

bide böle dene

Bu mesaja 1 cevap geldi.

P

PaRaZ!T

20 yıl

Yüzbaşı

allah kolaylık versin hocam benımde aynı sekilde bi sorunum var bu donemlerde...

Bu mesaja 1 cevap geldi.

L

lebrekon

20 yıl

Onbaşı

Konu Sahibi

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>"

%>

Bu mesaja 1 cevap geldi.

A

apostylee

20 yıl

Binbaşı

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

Bu mesaja 1 cevap geldi.

L

lebrekon

20 yıl

Onbaşı

Konu Sahibi

ARKADAŞLAR BEN SORUNUMU ÇÖZDÜM. YARDIMLARINIZDAN DOLAYI HERKESE TEŞEKKÜR EDERİM. İYİ ÇALIŞMALAR.