Bir asp veritabanı sorusu

aresbel3 · Aktif Üye Kayıt: 23 Eyl 2008 Mesajlar: 171

<%
Function ay(tar2)
Select Case tar2
Case 0
tar2="Ocdsfsdak"
Case 1
tar2="Ocak"
Case 2
tar2="Şubat"
Case 3
tar2="Mart"
Case 4
tar2="Nisan"
Case 5
tar2="Mayıs"
Case 6
tar2="Haziran"
Case 7
tar2="Temmuz"
Case 8
tar2="Ağustos"
Case 9
tar2="Eylül"
Case 10
tar2="Ekim"
Case 11
tar2="Kasım"
Case 12
tar2="Aralık"
Case Else
End Select
ay=tar2

End Function
%>

<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ogrenci/forms.mdb"))
SQL = "SELECT * FROM records order by ID desc"
set ky = Bag.Execute(SQL)
%>
<%
dim ka
ka=0
do while not ky.eof
%>

<table border="2" width="60%" cellpadding="2" style="border-collapse: collapse" bordercolor="#000080">
<tr>
<td class="nEdebiyatbaslik">

<img border="0" src="ogrenci/<%Response.Write ky("Title")%>" width="150" height="200"></td>

<td class="nEdebiyat" align="center">
<strong>
Okulumuz
<u>
<%
Response.Write year(ky("date1"))
%> yılı
<%
Response.Write ay(month(ky("date1")))%>
</u>  ayı öğrencisi.
<br>
</strong>
<br>
<%Response.Write ky("Code")%></td>
</tr>
</table>

<br>

<%
ky.movenext
loop
%><%
ky.close
set ky = Nothing
Bag.close
set bag = Nothing
%>

burda veri tabanındaki bütün kayıtları listeliyoruz. benim derdim ilk 5 kaydı listelemekse. ne yapmam gerek. bilen biri var mı acaba?

hgvural

do while not ky.eof

bu döngü kayıtların sonuna kadar döner ve siz bu arada tüm kayıtları listelenmiş olarak görürsünüz. eof yerini değiştiriseniz istediğiniz kadar döner ve istenilen kadar kayıt görünür. Yani hocam 5 kez döndür düngüyü.

Mustafa973 · Aktif Üye Kayıt: 19 Eyl 2007 Mesajlar: 108 Konum: Sivas

For döngüsü kullanarak yapabilirsin bir değişken tanımla her döngüde bir arttır. (for i=1 to 5)

ccaaggllaarr

hocam sql ifadesi olark bunu kullan bide
sql="SELECT TOP 5 id,baslik FROM aylarWhere tur=1 ORDER BY tarih DESC"

rtyucel · Süper Üye Kayıt: 30 Ksm 2007 Mesajlar: 1551 Konum: ...

	ccaaggllaarr yazmış:
	hocam sql ifadesi olark bunu kullan bide sql="SELECT TOP 5 id,baslik FROM aylar Where tur=1 ORDER BY tarih DESC"

ccaaggllaarr

işe yaradiysa problem yok demektir:D

aresbel3 · Aktif Üye Kayıt: 23 Eyl 2008 Mesajlar: 171

	Mustafa973 yazmış:
	For döngüsü kullanarak yapabilirsin bir değişken tanımla her döngüde bir arttır. (for i=1 to 5)

yeni kodlarımı yazıyorum

for i=1 to 2
%>

<table border="2" width="67%" cellpadding="2" style="border-collapse: collapse" bordercolor="#000080">
<tr>
<td class="nEdebiyatbaslik">

<img border="0" src="ogrenci/<%Response.Write ky("Title")%>" width="150" height="200"></td>

<td class="nEdebiyat" align="center" background="ogr.jpg">
<strong>
Okulumuz
<u>
<%
Response.Write year(ky("date1"))
%> yılı
<%
Response.Write ay(month(ky("date1")))%>
</u>  ayı öğrencisi.
<br>
</strong>
<br>
<%Response.Write ky("Code")%></td>
</tr>
</table>

<br>

<%
ky.movenext
next
%>

teşekkürler arkadaşlar.

adebrum · Aktif Üye Kayıt: 18 Eyl 2007 Mesajlar: 138

	Mustafa973 yazmış:
	For döngüsü kullanarak yapabilirsin bir değişken tanımla her döngüde bir arttır. (for i=1 to 5)

byburcuva · Yeni Üye Kayıt: 24 Ekm 2008 Mesajlar: 21

bunu tavsiye ederim...

Function :

<%
Gunler = Array("", "Pazar", "Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", "Cumartesi")
Aylar = Array("", "Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")

Function TarihDuzenle3(Tarih)
TarihDuzenle3= Day(Tarih) & " " & Aylar(Month(Tarih)) & " " & Year(Tarih) & " " & Gunler(WeekDay(Tarih)) & " Saat: " & TimeValue(Tarih)
End Function
%>

Kullanımı

Dbye Yazdırırken

rs("tarih")= TarihDuzenle3(Now())

Olarak Yazdır

Çıktısı Bu Şekil Olur

Örnek : 2 Kasım 2008 Pazar Saat: 9:51:44 AM