|
ASP Veb proqramlaşdırma dili ilə Access, Excel, TXT, SQL və. s kimi verilənlər bazası
ilə əlaqəsi mümkündür. Bunların içində ən keyfiyyətli, sürətli və məsləhətlisi məlum
olduğu kimi SQL-dir. Lakin bu dərsimiz də ACCESS bazasına daxil olaraq, sql əmrləri
ilə bazadakı verilənləri ekranda sıralayacayıq. SQL əmrlərinsən istifadə etməyimizə
səbəb bunu access bağlantısı illə yox, sql ilə də etmək mümkün olmasıdır. Yəni Access
daxil olaraq sql kodlarından istifadə edərək səhifə hazırlaya bilər, daha sonra
sadəcə access əlaqə əmrlərini sql olaraq dəyişdirdikdən sonra sql baza sistemindən
istifadə edə bilərsiniz. Bunun əksi olaraq mümkün deyil. Yəni SQL -i access əmrləri
ilə çağırmaq mümkün deyildir. Çox danşmadan bu sadə dərsimizə keçək.
<%
Set db= Server.CreateObject("ADODB.Connection" )
db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb"
)
'' Yuxarıda Access faylının yerini müəyyənləşdirdik. Access veri faylının tipi
(.mdb) olmalıdır.
Set rs=db.execute("select * from uzvler order by tarix desc") ' Burda baza içərisindəki
uzvlər adlı cədvəli ilə əlaqələnirik və sonun da order by ilə
tarixə görə yenidən, köhnəyə doğru sıralayırıq, əksini etmək üçün desc
yox asc əmrini yaza bilərsiniz.
' Indi uzvlər cədvəlindəki uzvləri ad və soyarlarına görə sıralayaq. Bunun üçün
While, Wend təkrarlanmasından istifadə edəcəyik.
i=1 'Bu sıralamanın əvvəlində sıra sayının olması üçündür.
While not rs.eof
Response.Write rs("ad)&" "&rs("soyad")&"
"
i=i+1 'Burda növbətinə keçdiyi üçün sıranın da üzərinə bir gəlirik.
rs.movenext ' Bazanı bir adım irəli çəkirik
Wend
%>
Nəticə də ekrana sıralanacaqdır. While not yazdığımız üçün təkrarlanma hər dəfəsində
yoxlayacaq və nə vaxt baza sona çatarsa və ya baza da məlumat tapmaz sa təkrarlanam
da orda dayandırılacaqdır.
|