Vertabanından 2-3-4’erli sıralama - ASP


Editor Login \| Register		Ekle

> Akademik İnternet ® > ASP

Vertabanından 2-3-4’erli sıralama - ASP - Akademik İnternet ® -

CWhite

(Relased 12.01.2008 13:23:24)

Vertabanından 2-3-4’erli sıralama

Bu işlemleri basit bir matematik işlemiyle halledebiliriz.

<------------------------------ Kodun Başlangıcı ------------------------------>

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Veritabani.mdb")

set Rs = conn.execute("select * from tablo")

i=1

do while not Rs.eof
response.write rs("Alan") & ", "

if i mod 2 = 0 then
response.write "
"
end if

i = i + 1
Rs.movenext
loop
%>

<------------------------------ Kodun Bitişi ------------------------------>

Kodun anlamı : ılk başta i değerimizi 1 eşitledik ve her veri yazılışında bu değeri "i=i+1" ifadesiyle 1 arttırdık.

" ıf i mod 2 = 0 " kodumuzda ise i sayısının 2"ye bölümünden kalan 0 ise(Yani eğer i sayısı 2"nin katı ise), "
" yazdırarak yeni satıra geçmesini söyledik.

", " bu kod ise her veriden sonra ,(virgül) ve boşluk (space) bırakmasını sağlıyor.Böylece verilerimiz

Veri1, Veri2
Veri3, Veri4

şeklinde sıralanacaktır.

Eğer bu işlemi 3"lü, 4"lü veya daha fazla bir rakam ile yapmak isterseniz "if i mod 2 = 0 " kodundaki 2 yerine yazdığınız rakamla belirleyebilirsiniz.

Bu işlemi tablolu olarak yapmak isterseniz

<------------------------------ Kodun Başlangıcı ------------------------------>

i = 0
Do while not Rs.Eof

%>

if i mod 2 then
Response.Write ""
end if

i = i + 1
Rs.MoveNext
Loop

%>

<------------------------------ Kodun Bitişi ------------------------------>

Kodunu kullanarak da yapabilirsiniz.

Derecelendir

Kaynak

CWhite Tarafından yazılmış/derlenmiştir.

İçerik İhbarı

Bağlantılar: bilgininefendisi.net

Open Source Document Project

AUP&TOS