Forum
Aktif konular
Üyeler
Kurallar
Arama
Asp'den Anlayan Muridler ?? Asp'den Anlayan Muridler ??
-
mrb arkadaslar.. elimde bir teknik servis formu kayıt şablonu var.. kullanıclar gittikleri servislerde doldurdukları formu buraya işliyorlar.kaydetdikleri bilgiler TeknikServisBelgeleri adlı tabloya, o şablonun içinde yer alan bir alan (Arıza Tipi alanı) rapor1 adlı tabloya kaydediliyor.
bu işlemin kaydı su sekilde oluyor..set tsbekleRS = Server.CreateObject("Adodb.Recordset")
SQL = "SELECT teknikservisbelgesiID, adsoyad_unvan, adres, istelefonu, evtelefonu, ceptelefonu, kayittarihi, arizatarihi, servistarihi, cihaztipi, cihazmodeli, cihazserino, garantibelgeno, yetkiliservis, bayi, garantiicidisi, durum, arizayi_bildiren, bildirilen_ariza, tespit_edilen_ariza, servisin_baslama_tarihi, servisin_bitis_tarihi, tamir_edildigi_yer FROM TeknikServisBelgeleri"
tsbekleRS.Open SQL, DBBaglanti, 1, 3
tsbekleRS.AddNew
tsbekleRS("adsoyad_unvan") = strAdSoyad_Unvan_Kaydet
tsbekleRS("adres") = strAdres_Kaydet
tsbekleRS("istelefonu") = strIsTelefonu_Kaydet
tsbekleRS("evtelefonu") = strEvTelefonu_Kaydet
tsbekleRS("ceptelefonu") = strCepTelefonu_Kaydet
tsbekleRS("kayittarihi") = strKayitTarihi_Kaydet
tsbekleRS("arizatarihi") = strArizaTarihi_Kaydet
tsbekleRS("servistarihi") = strServisTarihi_Kaydet
tsbekleRS("cihaztipi") = strCihazTipID_Kaydet
tsbekleRS("cihazmodeli") = strCihazModelID_Kaydet
tsbekleRS("cihazserino") = strCihazSeriNo_Kaydet
tsbekleRS("garantibelgeno") = strGarantiBelgeNo_Kaydet
tsbekleRS("yetkiliservis") = strYetkiliServis_Kaydet
tsbekleRS("bayi") = strBayiID_Kaydet
tsbekleRS("garantiicidisi") = blnGarantiIciDisi_Kaydet
tsbekleRS("durum") = blnDurum_Kaydet
tsbekleRS("arizayi_bildiren") = strArizayi_Bildiren
tsbekleRS("bildirilen_ariza") = strBildirilen_Ariza
tsbekleRS("tespit_edilen_ariza") = strTespit_Edilen_Ariza
tsbekleRS("servisin_baslama_tarihi") = strServis_Baslama_Tarihi
tsbekleRS("servisin_bitis_tarihi") = strServis_Bitis_Tarihi
tsbekleRS("tamir_edildigi_yer") = strTamir_Edildigi_Yer
tsbekleRS.Update
strKaydedilenTSBID = tsbekleRS("teknikservisbelgesiID")
tsbekleRS.Close
set tsbekleRS = Nothing
Set arizaraporRS = Server.CreateObject("ADODB.Recordset")
strSQL="select * from rapor1 where IslemId="&Request.Form("StrId_kaydet")
arizaraporRS.Open strSQL,DBBaglanti,0,3
strUpdate=arizaraporRS.Fields("oylar")+1
if arizaraporRS.Supports (adUpdate) then
arizaraporRS.Fields("oylar")=strUpdate
arizaraporRS.Update
end if
arizaraporRS.close
Set arizaraporRS = Nothing
belgedetaydan ilk kayıtları çekiyorumm fakat bu ikinci kayıt o tek alanı kaydettiğim yerdeki arıza tipini belgedetayda nasıl gösterebilirim?
biraz karışık gelmiş olabilir ama pmden msnlerini veren olursa detaylı şekilde konusabiliriz..
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla