access rastgele veri

04-06-2009, 13:01:30

#1

~~Erol~~

Üyeliği durduruldu

arkadaşlar bayadır yapmaya çalışıyorum yapamadım. bi arkadaşım accesste yapamazdın dedi. gerçekten yapılamıyor mu?

04-06-2009, 13:27:12

#2

anka81

tek bi veri çekeceksen kolayca yapılır, çoklu veri için bi döngü falan gerekebilir ama.
tek kayıt içinse, kendi kullandığım kodu yazabilirim.

(misal sitede okkalı laflar bölümü falan varsa, rastgele bi tanesini göstermek için falan...)

04-06-2009, 13:41:21

#3

~~Erol~~

Üyeliği durduruldu

tek bir tablodan aynı anda 20 tane içerik çekmek istiyorum rastgele. yapmak istediğim budur..

04-06-2009, 14:23:51

#4

Gncytnk

yapılıyor ama veritabanı mysql olsaydı sıkıntı çekmezsin, accesste feçi kasıyor rastegele yazı.

04-06-2009, 15:53:58

#5

~~Erol~~

Üyeliği durduruldu

peki access'i mysql'a nasıl çevirebilirim

04-06-2009, 17:29:56

#6

scrol

Kendi sitemde kullandıgım şöyle bir kod var. Yardımcı olur belki kendiniz için düzenleyebilirsiniz

<%
                        set rs = server.createobject("ADODB.Recordset")
                        rs.open "SELECT * from videolar order by hit desc",baglan,1,3
                        
                        randomize
                        
                        rs.move (rs.recordcount-5)*rnd
                        for z=1 to 5
                        if rs.eof then exit for
                        %>

<%=rs("hit")%>

<%
 rs.movenext : next
rs.close : set rs = nothing
 %>

04-06-2009, 17:45:25

#7

~~LineBilisim~~

<%
kayit = 0
topkayit = 20 'kaç kayıt listeleneceği

For i=0 to 100
If kayit = topkayit then exit for

Set ras2 = baglan.Execute("SELECT COUNT(id) AS say From Ilanlar where onay=1")
Toplam=ras2(0)
ras2.Close
Set ras2 = Nothing

Randomize Timer
rdizi = Int((Toplam * Rnd ) + 0)

If InStr(kayitlar,","&rdizi) > 0 then

For s=0 to topkayit
If InStr(kayitlar,","&yenidizi) > 0 then
yenidizi = Int((Toplam * Rnd ) + 1)
end if
next

else
yenidizi = rdizi
end if

kayitlar = kayitlar&","&yenidizi

Set rs = baglan.Execute("Select id,adi From Ilanlar where onay=1")

rs.Move(yenidizi)

if Not rs.Eof then
kayit = kayit+1
%>
<td width="20%" valign="top">
<%=left(rs("adi"),15)%></a>
</td>
<%if kayit mod 6=0 then %>
</tr><tr>
<%end if%>
<%
end if
Next
rs.close
set rs = Nothing
%>

Buyrun bu kodlar işinize yarar.

04-06-2009, 17:46:08

#8

~~Erol~~

Üyeliği durduruldu

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request. Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.
More information about this error may be available in the server error log.

neden böle bi hata verir ki,

Alıntı

<%
set sonlar = Server.CreateObject("Adodb.Recordset")
sql = "select top 30 bolumler.*,diziler.* from bolumler INNER JOIN diziler ON bolumler.dizi_id=diziler.dizi_id order by bolum_id desc"
sonlar.open sql,baglanti,1,3
i = 1
do while not sonlar.eof
set yorumsay=Server.CreateObject("Adodb.Recordset")
sql = "select yorum_id from yorumlar where bolum_id="&sonlar("bolum_id")&""
yorumsay.open sql,baglanti,1,3
yorumsayisi=yorumsay.recordcount
Kapat(yorumsay)

set partlar = Server.CreateObject("Adodb.Recordset")
sql = "select * from partlar where bolum_id="&sonlar("bolum_id")&""
partlar.open sql,baglanti,1,3

resimkodu=sonlar("dizi_img")
if partlar.eof then
resimkodlari=resimkodu
end if
do while not partlar.eof
if resimkodlari="" then
resimkodlari=partlar("part_kodu")
if resimkodlari="" then
resimkodlari=sonlar("dizi_img")
ytimg="yok"
end if
resimkodu=resimkodlari
else
if partlar("part_kodu")<>"" then
resimkodlari=resimkodlari&","&partlar("part_kodu")
end if
end if
partlar.movenext
loop
Kapat(partlar)
%>

kodlarım yukardaki şeklde, bi türlü beceremedim

04-06-2009, 18:47:52

#9

scrol

Özel hata sayfalarını kapatırsanız hata kodunun ne oldugunu ve hangi satırın hata verdigini görerek yorum yapabiliriz