implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP / ASP.NET
 ASPTurkiye.com Forum : ASP / ASP.NET
Konu Konu: İşlemler ne? Kayıt ekleme, Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
ismail0202
Yeni Üye
Yeni Üye


Kayıt Tarihi: 20-Mayıs-2012
Ülke: Turkiye
Gönderilenler: 37
Gönderen: 29-Mayıs-2012 Saat 09:23 | Kayıtlı IP Alıntı ismail0202

İşlemler ne? Kayıt ekleme, Kayıt Silme, Kayıt Güncelleme, bunları yapmadan önce kayıtları listelesek? onu nasıl yapabiliriz?

__________________
123
Yukarı Dön Göster ismail0202's Özellikler Diğer Mesajlarını Ara: ismail0202
 
fatma0101
Yeni Üye
Yeni Üye


Kayıt Tarihi: 22-Mayıs-2012
Ülke: Turkiye
Gönderilenler: 25
Gönderen: 29-Mayıs-2012 Saat 09:31 | Kayıtlı IP Alıntı fatma0101

Dim id,islem
islem = Request.QueryString("islem")
id = Request.QueryString("id")

   'İşlemi Belirleme ve İşleme Sayısal Değerler Oluşturma Bölümü
   if id = "" and islem= "" then
   'id yok, o halde kayıtların hepsini gönderelim...
   islem = 0 ' bu sıfır işimize mutlaka bir yerlerde yarar.. şimdilik kalsın.
   end if

   if islem="guncelle" then
   islem=2
   end if

   if islem="guncellestir" then
   islem=4
   %><!--#include file="inc_formbilgi.asp"--><%
   end if

   if islem="sil" then
   islem=3
   end if

   if islem="ekle" then
   islem=1%>
   <!--#include file="inc_formbilgi.asp"-->
   <%
   end if
%>

 

<%
Dim yonetimvt,yonetimSQL,yonetimkayit,sorukayitSQL,ks,sirano

set yonetimvt=Server.CreateObject ("ADODB.Connection")
yonetimvt.Open bag
Set yonetimkayit = Server.CreateObject("Adodb.Recordset")
     
  select case islem 'Yapılmak istenen iş ne acaba?
  
  case 0 'İşlem Yoksa soruların tümü listelensin ve seçim yapma şansı tanınsın.
   sorukayitSQL = "SELECT * FROM sorular"
   yonetimkayit.Open sorukayitSQL, yonetimvt, 1, 3
   ks = yonetimkayit.RecordCount 'veritabanındaki kayıtların sayısı
             sirano = 1   
    Response.Write "<b>SINAV SORULARI</b><hr>"
    Response.Write " <table width=""100%"" border=""0"" align=""center"" cellpadding=""1"" cellspacing=""1"" bordercolor=""#666666"" bgcolor=""#F7F7F4"">"
     Do While Not yonetimkayit.eof
       Response.Write "<tr><td align=""center"" bgcolor=""#D7D7D4""width=""30""><b>" & sirano & "</b></td><td bgcolor=""#F6F6F6""><a href=""../sorugoster.asp?soruid="& yonetimkayit("id")&""" target=""_blank"" title=""Sorunun Sayfasını Görmek İçin Tıklayınız...""><b>"
    Response.Write yonetimkayit("ders") & " ("
    Response.Write yonetimkayit("derskodu") & ")</b> dersi <b>"
    Response.Write yonetimkayit("yil") & " - "
    Response.Write yonetimkayit("donem") & "</b> dönemi <b>"
    Response.Write yonetimkayit("tur") & "</b> sınav sorusu (<b>Öğretmen:</b> "
    Response.Write yonetimkayit("ogretmen") & " / <b>Bölüm:</b> "
    Response.Write yonetimkayit("bolum") & " )"
    Response.Write "</a></td><td bgcolor=""#D7D7D4"" align=""center"" width=""120""><b><a href=""sorular.asp?islem=sil&id=" &yonetimkayit("id")&""">SİL</a></b> ll "
    Response.Write " <b><a href=""sorular.asp?islem=guncelle&id=" & yonetimkayit("id")& """> GÜNCELLE</a></b></td></tr>"
     
   yonetimkayit.movenext
   sirano=sirano+1
   loop
        Response.Write "</table>"
    
  case 3 'Kayıt Silme Prosedürü
   sorukayitSQL = "SELECT * FROM sorular WHERE id="& id &""
    yonetimkayit.Open sorukayitSQL, yonetimvt, 1, 3
   yonetimkayit.Delete
   yonetimkayit.Update
   Response.Write "Kayıt Silme işlemi başarıyla tamamlandı...<br>"
   Response.Write geridon
   Response.Write" ll <a href=""sorular.asp"">Sorular Sayfası</a>"

  case 2 'Güncelleme Formunu doldurma ve çağırma işlemleri
   sorukayitSQL = "SELECT * FROM sorular WHERE id="& id &""
    yonetimkayit.Open sorukayitSQL, yonetimvt, 1, 3
    
    call guncelle() 'Kayıt güncelleme formunu çağırma
     Response.Write geridon

  case 4 'Güncelleme işlemlerini veritabanına işleme
   'Güncelleme İşlemlerini Veritabanında Gerçekleştirme
   sorukayitSQL = "SELECT * FROM sorular WHERE id="& gid &""
    yonetimkayit.Open sorukayitSQL, yonetimvt, 3, 3

    yonetimkayit("ders")=ders
    yonetimkayit("derskodu")=derskodu&nb sp;
    yonetimkayit("bolum")=bolum
    yonetimkayit("sayfaurl")=sayfaurl
    yonetimkayit("ogretmen")=ogretmen
    yonetimkayit("tur")=tur
    yonetimkayit("yil")=yil
    yonetimkayit("donem")=donem
    yonetimkayit.Update

   response.write "Güncelleştirme işlemi başarıyla tamamlandı...<br>"
   response.write geridon
   Response.Write" ll <a href=""sorular.asp"">Sorular Sayfası</a>"
  
  case 1
   sorukayitSQL = "SELECT * FROM sorular"
    yonetimkayit.Open sorukayitSQL, yonetimvt, 1, 3

    yonetimkayit.AddNew ' Yeni bir kayit ekle
    yonetimkayit("ders")=ders
    yonetimkayit("derskodu")=derskodu&nb sp;
    yonetimkayit("bolum")=bolum
    yonetimkayit("sayfaurl")=sayfaurl
    yonetimkayit("ogretmen")=ogretmen
    yonetimkayit("tur")=tur
    yonetimkayit("yil")=yil
    yonetimkayit("donem")=donem
    yonetimkayit.Update

   Response.Write "yeni kayıt ekleme işlemi başarıyla tamamlandı...<br>"
   Response.Write geridon
   Response.Write" ll <a href=""sorular.asp"">Sorular Sayfası</a>"

  end select

    'if yonetimkayit.eof then
      'Response.write "Lütfen yapmak istediğiniz işlemi belirtiniz..."
    if islem=0 then
      Response.Write "Kayıt Sayısı: <b>" & ks & "</b>" & "<br><a href=""default.asp"" target=""_top"">Yönetici Ana Sayfasına Dön</a>"
    end if
    
     %>
   
   <hr>

  <% call yenikayit() 'Yeni Kayıt Formunu Çağırma %>

<% 'İşlem Bitti İşleri
yonetimkayit.close
set yonetimkayit=Nothing

yonetimvt.close
set yonetimvt=Nothing
%>

</body>
</html>

Yukarı Dön Göster fatma0101's Özellikler Diğer Mesajlarını Ara: fatma0101
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Açık Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0781 Saniyede Yüklendi.