- veritaban işlemleri (function)

Veritabanı ile ilgili işlemler yaparken yazıdğımız kodlar,açtığımız recordsetler çoğu zaman bizi bunaltır, aynı zamanda işlemlerin kalabalık oluşu sayfa verimini düşürür.

bundan yola çıkarak veritabanı ile ilgili işlemleri birkaç functionla sadeleştirip hem yerden hem zamandan hem performanstan kazanacağız.
diyelimki veri tabanı adımız sevimsiz olsun.

Kod Alanı:

vt="sevimsiz.mdb"
private function baglan(vt )
     on error resume next
     set baglan = server.createobject("ADODB.Connection" )
     baglan.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&server.mappath(vt )&";"
        if err then
     response.write "Hata, Veritabanına bağlanılamıyor.<br />"&server.mappath(vt )&"</span>"
     response.end
        end if
end function
set db = baglan(vt )

veri tabanına bağlanmak için burada tek yapmamız gereken vt=".." kısmına veritabanı adımızı yazmamız oluyor.

şimdi recordsetle ilgili bir function hazırlayalım.

Kod Alanı:

     function islem(setadi,strsql )
          on error resume next
          set setadi = server.createobject("ADODB.Recordset" )
               setadi.cursortype = 0
               setadi.cursorlocation = 2
               setadi.locktype = 1
               setadi.open strsql, db, 1, 3
          if err then
               response.write "<br />Kod: "&strsql
               response.write "<br />Hata, "& err.description &""
               response.end
          end if
     end function

veritabanımızda Tablo1 tablosu olsun ve bu tabloun ID fieldinde, varsayalımki gelen değeri kıyaslayacağız. bu aşamada tek yapmamız gereken ;

Kod Alanı:

Call islem(RS,"SELECT ID FROM a WHERE ID= "&request("ID" )&";" )

yaptıktan sonra, geriye sadece işlemlerimizi yapmak kalıyor..

işlemlerimiz bittikten sonra açılan recordseti kapatmamız gerekiyor.
bunun için yazmamız gerekn kod
OrnekRS.close : set OrnekRS = nothing olacaktı.
fakat bunu da her zaman yazmak can sıkıcı açıkcası.
bunun için Sercan arkadaşımız basit bir function hazırlamış onuda sizlere sunayım ve bütünü tamamlamış olalım : )

Kod Alanı:

function islemikapat(setadi )
       if isnull(setadi ) = false then
              islemikapat = setadi.close : set setadi = nothing
       end If
end function

bu functionu kullanıyoruz. örnek olarak. işlemlerimizin sonunda

Kod Alanı:

islemiskapat(RS )

yazmamız yeterli olacaktır.

konuyu kısaca özetleyecek olursak.
yazmış olduğum veritabanı bağlantısı, recordset ve baglantıyı sonlandırma ile ilgili functionu bi sayfa oluşturup ona aldıktan sonra anaysanıza include edin.

daha sonra işlem yapacağınız yerde

Kod Alanı:

Call islem(rs,"Select * from TABLO";" )
şeklinde baglantıyı kurup işlemlerinizin sonunda
islemikapat(rs )

yazmanız yeterlidir. gördüğünüz gibi onlarca satır kod sadece 3 satıra düştü.
inşallah faydalı olur.
selam & dua ile
sevimsiz

Bu dersi Yazdır