Veritabanı ile ilgili işlemler yaparken yazıdğımız kodlar,actığımız recordsetler coğu zaman bizi bunaltır, aynı zamanda işlemlerin kalabalık oluşu sayfa verimini duşurur.

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

Kod Alanı: Kod:
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.
"&server.mappath(vt )&"" response.end end if end function set db = baglan(vt )
veri tabanına bağlanmak icin 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ı:
Kod:
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 "
Kod: "&strsql response.write "
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ı:
Kod:
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 acılan recordseti kapatmamız gerekiyor.
bunun icin yazmamız gerekn kod
OrnekRS.close : set OrnekRS = nothing olacaktı.
fakat bunu da her zaman yazmak can sıkıcı acıkcası.
bunun icin Sercan arkadaşımız basit bir function hazırlamış onuda sizlere sunayım ve butunu tamamlamış olalım : )
Kod Alanı:
Kod:
function islemikapat(setadi ) if isnull(setadi ) = false then islemikapat = setadi.close : set setadi = nothing end If end function
bu functionu kullanıyoruz. ornek olarak. işlemlerimizin sonunda
Kod Alanı:
Kod:
islemiskapat(RS )
yazmamız yeterli olacaktır.

konuyu kısaca ozetleyecek 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ı:
Kod:
Call islem(rs,"Select * from TABLO";" ) 'şeklinde baglantıyı kurup işlemlerinizin sonunda islemikapat(rs )
yazmanız yeterlidir. gorduğunuz gibi onlarca satır kod sadece 3 satıra duştu.
inşallah faydalı olur.
__________________