veritabanından rastgele bilgi çekme ???? yardım

04-02-2009, 23:34:53

arkadaşlar, benim bir tablom var. ordan son eklenenlerden başa doğru listeliyorum.

 <%
		set otel=server.createobject("adodb.recordset")
	otel.open "Select * from tbl_bilgi  order by id desc",baglan,1,3

benim isteğim son kayıtları değil de, rastgele getirsin. bunu nasıl yapacaz?

05-02-2009, 00:07:25

#2

anka81

random yapcan arkadaşım. misal rs diye kayıt setin olsun(seninki otel gerçi), recordcount ile toplam kaç kaydın olduğunu al, sonra...

Dim intRnd
Randomize Timer
intRnd = (Int(RND * rs.RecordCount))

' rastgele kayıta gidiyoz
rs.Move intRnd

' rastgele veriyi yazdır
Response.Write "<b>" & rs("tbl_bilgi") & "</b>"

tabi bununla rastgele bir id ile bilgi getirirsin, yani bütün bilgileri rastgele yazmaz. neyse...

05-02-2009, 00:21:22

#3

webadnan

anka81 adlı üyeden alıntı: mesajı görüntüle

random yapcan arkadaşım. misal rs diye kayıt setin olsun(seninki otel gerçi), recordcount ile toplam kaç kaydın olduğunu al, sonra...
Dim intRnd
Randomize Timer
intRnd = (Int(RND * rs.RecordCount))
' rastgele kayıta gidiyoz
rs.Move intRnd
' rastgele veriyi yazdır
Response.Write "<b>" & rs("tbl_bilgi") & "</b>"
tabi bununla rastgele bir id ile bilgi getirirsin, yani bütün bilgileri rastgele yazmaz. neyse...

bu "order by asc desc " gibi komutlar var ya.. illaki rastgele için de bir komut vardır ya

05-02-2009, 01:18:51

#4

SuSpect

Kimlik doğrulama veya yönetimden onay bekliyor.

otel.open "Select * from tbl_bilgi order by rand()",baglan,1,3

olarak dener misin?

05-02-2009, 04:09:31

#5

ErTr

database nedir?

mssql:

SELECT TOP 1 * FROM tbl_bilgi
ORDER BY NEWID()

access:

SELECT * FROM tbl_bilgi
ORDER BY RND(sütun)

**sütun yerine veri tipi sayı olan bir sütun girmelisin.. id gibi mesela..
suspect'in belirttiği gibi rand() olarak denemedim hiç..