Yazılım Öğren

ASP Yeni Kayıt Ekleme KAYIT_YENI.ASP

kayitlar.asp de Yeni Kayıt linkinde iÅŸaret edilen kayit_yeni.asp… Yaptığı iÅŸ ÅŸu. Veritabanına baÄŸlanıp ilgili tablodan oluÅŸturduÄŸu kayıt seti içine yeni bir kayıt ekliyor. Kayıtsetini güncelliyor, “id” alanındaki deÄŸeri bir deÄŸiÅŸkende saklıyor. nesneleri kapatıyor. Ve de kayit_duzenle.asp dosyasına “id” anahtarıyla yeni eklenen kaydın “id” alanındaki deÄŸeri gönderiyor. Yani bu sayfa sadece iÅŸlem yapıyor. Kullanıcıya gözükmeden iÅŸlemi tamamlayıp düzenleme sayfasına yöneliyor.

Kod4. kayit_yeni.asp

<%

response.buffer=true 

Veri_yolu = Server.MapPath(“db/kisiler.mdb”)

Bcumle = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Veri_yolu

Set bag = Server.Createobject(“ADODB.Connection”)

bag.Open (Bcumle)

Set kset = Server.Createobject(“ADODB.Recordset”)

sql = “SELECT * FROM kisiler”

kset.open sql, bag, 1, 3

kset.addnew

kset.update

id = kset(“id”)

kset.Close

Set kset = Nothing

bag.Close

Set bag = Nothing

Resp