Bu da en basitinden recordset açma şeysi;
Kod:
private function ConnectDB(DBPath) '// şu an için msaccess db
set ConnectDB = server.CreateObject("ADODB.Connection")
ConnectStr = "Provider='Microsoft.Jet.OLEDB.4.0'; Data Source='" & server.MapPath(DBPath) & "';"
ConnectDB.Open ConnectStr
end function
set cnnSystem = ConnectDB("databases/system.mdb")
Kod:
function openObj(objName, strSqlText)
set objName = server.createobject("ADODB.Recordset")
objName.cursortype = 0
objName.cursorlocation = 2
objName.locktype = 1
strSQL = strSqlText 'burada içine başka bişiler serpiştirilebilir.
objName.open StrSQL, cnnSystem, 1,3
end function
Kullanımı;
Kod:
call openObj(objAyarlar,"SELECT * FROM tblSiteAyar")