[LGT]

Merhaba arkadaslar,
Oncelikle turkce klavyem olmadigi icin turkce harfleri kullanamadigim icin hepinizden ozur diliyorum. Dun uye olmustum fakat kodlamanin icine oyle cok daldim ki foruma girip bakmayi unuttum. Sabah ise forumda genel bir arastirma yaptim fakat maglesef sorunuma cozum bulamadim.

ASP + MySQL kullanmaktayim. ASP ve MySQL kullanimina yeni basladim ve acikcasi oldukca hosuma gitti. Fakat dogal olarak hersey eski dost Ms Access gibi ayni degil!

Yapmak istedigim sey su;

Bir Turkcell konturu satan internet sitesi hayal edin, uyeler girip uye oluyorlar, kac adet kart istediklerine dair bir form dolduruyorlar ve databaseden daha once girilmis olan kartlar cekiliyor ve bu uyeye ataniyor. Yapamadigim nokta su;

<%baslik_id=Request.form("id") ' form dan bildirim tablos

Set Veriler=conn.execute("select * from tablo_adi where baslik_id='"&baslik_id&"'") ' kac adet kart istediklerine dair yaptiklari bildirimin id si aliniyor.

'Veriler duzenleniyor
member_id=veriler("uye_id") 
servis_tipi=veriler("servis_tipi")
oyun_tipi=veriler("oyun_tipi")
miktar =veriler("miktar") 'Bildirim formunda kac adet kart istedigine dair bilgi cekiliyor!

'Tarih Turkcelestiriliyor
var1 = date
if  Month(var1) = 1  then tay="Ocak" end if
if  Month(var1) = 2  then tay="Şubat" end if
if  Month(var1) = 3  then tay="Mart" end if
if  Month(var1) = 4  then tay="Nisan" end if
if  Month(var1) = 5  then tay="Mayıs" end if
if  Month(var1) = 6  then tay="Haziran" end if
if  Month(var1) = 7  then tay="Temmuz" end if
if  Month(var1) = 8  then tay="Ağustos" end if
if  Month(var1) = 9  then tay="Eylül" end if
if  Month(var1) = 10  then tay="Ekim" end if
if  Month(var1) = 11  then tay="Kasım" end if
if  Month(var1) = 12  then tay="Aralık" end if
tarih=Day(var1)&" " & tay & " " & Year(var1)

Set kalanbakar= conn.Execute("SELECT COUNT(kart_id) as records from kartlar_tablo where durum='bos' and oyun_tip='"&oyun_tipi&"'")
toplamkart = cint(kalanbakar("records"))

If toplamkart < miktar then
Response.Write "Yeterli miktarda sistemde kart kalmamistir!"
Response.End

else
' form DAN GELEN VERILERI cekiyoruz
tarih = Request.form("tarih")
tip = Request.form("tip")

for i = 1 to miktar
eklerim=Request.form("kart_ID"&i) 'KART IDLERI BURADA
'VERITABANINA KAYIT YAPILIYOR
Set kartcek=conn.execute("UPDATE kartlar_tablo set uye_id='"&member_id&"' and gonderme_tarih='"&tarih&"' and durum='dolu' where kart_id='"&eklerim&"'")
'KAYIT BITTI
Next

Set bildirimduzen=conn.execute("UPDATE tablo_adi set uye_id='"&member_id&"' and gonderme_tarih='"&tarih&"' and durum='dolu' where baslik_id='"&baslik_id&"'")

Simdi sorun su;

' form DAN GELEN VERILERI cekiyoruz
tarih = Request.form("tarih")
tip = Request.form("tip")

for i = 1 to miktar
eklerim=Request.form("kart_ID"&i) 'KART IDLERI BURADA
'VERITABANINA KAYIT YAPILIYOR
Set kartcek=conn.execute("UPDATE kartlar_tablo set uye_id='"&member_id&"' and gonderme_tarih='"&tarih&"' and durum='dolu' where kart_id='"&eklerim&"'")
'KAYIT BITTI
Next

Bu kodda yapmak istedigim sey, form dan gelen kart_id leri teker teker alip o IDlere olan ait olan kayitlarda belli sutunlarda bazi degisiklikleri yapip kaydetmesi! Fakat bunu bir turlu yapamadim!

Yani bir bakima coklu duzenleme diyebiliriz! Bunu Ms Access de rahatlikla yaparken gelin gorun ki MySQL de cok kotu bir sekilde takildim. Dun gece saat 06:00 a kadar ugrastim ama duzgun bir mantik bulamadim henuz!

Yardimci olabilirseniz cok sevinirim.

Saygilarimla,