toplu kayıt güncelleme

05-12-2007, 17:44:07

arkadaşlar veritabanında 1 sutun altında 4 değişken var benbunları do while ile textboxa yazdırıyorum ve altlarında güncelle butonu var butona tıklayınca haliyle verilerin yenisiyle değişmesi gerek ama güncelle dediğimde veriler ilk textbox a yazılıyor diğerlerinde hareket yok. sanırım yanlış sorgu kullandım acaba doğrusu nedir?

sql = "select * from ISIMLER"
duz.open sql,baglan,3,3
duz("ISIM") = request.form("isim")
duz.update

05-12-2007, 19:20:22

#2

FOXXLY

<%
id=Request.QueryString("id")
tarih = now()

Set foxxly = Server.CreateObject("ADODB.Recordset")
sor = "Select * from ornek WHERE id=" & id & ""
foxxly.Open sor,Sur,1,3

foxxly("tarih") = tarih
%>

bu kod gibi yap id i çek

21-12-2007, 18:41:31

#3

hmakdeniz

hangi verinin güncelleneceğini belirtmediğin için güncellemiyor...
Floxxy nasıl yapabileceğini göstermiş kolay gelsin

22-12-2007, 04:21:11

#4

Ron

<%
gelenid=Request.QueryString("id")
baglanti.Execute("UpDate tblAdi Set tarih= now() where id="&gelenid&"") 
' baglanti = bağlantı nesnesi
' bu querystring ile gelen id değerindeki tarihi günceller
%>
Sütun değerini komple güncellemek için(örn: günlük tutulan istatistikler)
<% baglanti.Execute("UpDate tblAdi Set ghit = 0") %>

06-10-2012, 18:33:46

#5

oray54

Sorunu çözdüm.İlgilenen arkadaşlara teşekkür ediyorum.Nasıl çözüldü derseniz işte kodlar:
<%
vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("data/gurbuzeml.mdb")
set conn = Server.CreateObject("adodb.connection")
set rh15 = Server.CreateObject("adodb.recordset")
conn.open vt

id=Request.QueryString("id")
gunc_tarihi = Date()

Set rh15 = Conn.EXECUTE("SELECT * FROM ilanlar" )
IF NOT rh15.EOF THEN
While NOT rh15.EOF
Set Rsx = Server.CreateObject("AdoDB.RecordSet" )
Rsx.OPEN "SELECT * FROM ilanlar WHERE id="&rh15("id" )&"",conn,1,3
Rsx.Update
Rsx("gunc_tarihi" ) = gunc_tarihi
Rsx.UpDate

rh15.MoveNext:Wend
END IF
response.redirect "default.asp?part=ekle&islem=toplu"

%>

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 18:33:46 -->-> Daha önceki mesaj 18:31:55 --

Sorun çözülmüştür.İşte kodlar:

<%
vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("veritabani.mdb")
set conn = Server.CreateObject("adodb.connection")
set rh15 = Server.CreateObject("adodb.recordset")
conn.open vt

id=Request.QueryString("id")
gunc_tarihi = Date()

Set rh15 = Conn.EXECUTE("SELECT * FROM ilanlar" )
IF NOT rh15.EOF THEN
While NOT rh15.EOF
Set Rsx = Server.CreateObject("AdoDB.RecordSet" )
Rsx.OPEN "SELECT * FROM ilanlar WHERE id="&rh15("id" )&"",conn,1,3
Rsx.Update
Rsx("gunc_tarihi" ) = gunc_tarihi
Rsx.UpDate

rh15.MoveNext:Wend
END IF
response.redirect "default.asp?part=ekle&islem=toplu"

%>

06-10-2012, 20:09:20

#6

frdtrkc

oray54 adlı üyeden alıntı: mesajı görüntüle

Sorunu çözdüm.İlgilenen arkadaşlara teşekkür ediyorum.Nasıl çözüldü derseniz işte kodlar:
<%
vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("data/gurbuzeml.mdb")
set conn = Server.CreateObject("adodb.connection")
set rh15 = Server.CreateObject("adodb.recordset")
conn.open vt

id=Request.QueryString("id")
gunc_tarihi = Date()

Set rh15 = Conn.EXECUTE("SELECT * FROM ilanlar" )
IF NOT rh15.EOF THEN
While NOT rh15.EOF
Set Rsx = Server.CreateObject("AdoDB.RecordSet" )
Rsx.OPEN "SELECT * FROM ilanlar WHERE id="&rh15("id" )&"",conn,1,3
Rsx.Update
Rsx("gunc_tarihi" ) = gunc_tarihi
Rsx.UpDate

rh15.MoveNext:Wend
END IF
response.redirect "default.asp?part=ekle&islem=toplu"

%>

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 18:33:46 -->-> Daha önceki mesaj 18:31:55 --

Sorun çözülmüştür.İşte kodlar:

<%
vt="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("veritabani.mdb")
set conn = Server.CreateObject("adodb.connection")
set rh15 = Server.CreateObject("adodb.recordset")
conn.open vt

id=Request.QueryString("id")
gunc_tarihi = Date()

Set rh15 = Conn.EXECUTE("SELECT * FROM ilanlar" )
IF NOT rh15.EOF THEN
While NOT rh15.EOF
Set Rsx = Server.CreateObject("AdoDB.RecordSet" )
Rsx.OPEN "SELECT * FROM ilanlar WHERE id="&rh15("id" )&"",conn,1,3
Rsx.Update
Rsx("gunc_tarihi" ) = gunc_tarihi
Rsx.UpDate

rh15.MoveNext:Wend
END IF
response.redirect "default.asp?part=ekle&islem=toplu"

%>

Yukarıda ki çorba gibi olmuş kod parçacığı ile aşağıdaki düzenli kod parçacığı aynı işi daha performanslı şekilde yapacaktır...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("veritabani.mdb")

Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.OPEN "SELECT gunc_tarihi FROM ilanlar", Conn, 1, 3
	Do While Not objRs.Eof
		objRs("gunc_tarihi") = Date()
		objRs.Update
	objRs.MoveNext : Loop
objRs.Close : Set objRs = Nothing

Conn.Close : Set Conn = Nothing
%>