db kayıt sayısı

24-07-2008, 13:48:06

Merhaba arkadaşlar aşağıda bir listenin kodları var. bu listede kaç adet kayıt olduğunu gösterecek bir koda ihitacım var. birkaçtane buldum fkat o kodları ekleyip çalıştıramadım. lütfen bu kodlra uygun bir kod söyler misiniz? yardımcı olursanız sevinirim. kayıtlar mdb den çekiliyor..

Alıntı

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Path = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};"
Path = Path & " DBQ= " & Server.MapPath("veritabani.mdb")

Conn.Open Path
sql="SELECT * FROM liste WHERE onay=1 order by id desc"

Set rs=Conn.Execute(sql)
%>

<TABLE width="100%" border="1" cellspacing="0">
<TR>
<%
Do While Not rs.Eof
%>
<TR>
<TD><%=rs("isim")%></TD>
<TD><%=rs("tarih")%></TD>
</TR>
<%
rs.MoveNext
Loop
%>
</TABLE>

<%
rs.Close
Conn.Close
Set rs=Nothing
Set Conn=Nothing
%>

yardımlarınızı bekliyorum. teşekkürler

24-07-2008, 13:51:34

#2

~~LineBilisim~~

Alıntı

<%=rs.RecordCount%>

şu şekilde bastırmayı denermisin.. </TABLE> nin hemen altında dene..

24-07-2008, 14:00:36

#3

~~HighVoltage4~~

o şekilde olmuyor. -1 çıkıyor yazdığım yerde. oda onaylanan veriler bu sayfada listelendiği için sanırım.

kodlar arasında "onay=1" diye bir ibare var farkettiysen ondan olsa gerek.

24-07-2008, 14:14:36

#4

~~LineBilisim~~

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

o şekilde olmuyor. -1 çıkıyor yazdığım yerde. oda onaylanan veriler bu sayfada listelendiği için sanırım.
kodlar arasında "onay=1" diye bir ibare var farkettiysen ondan olsa gerek.

hayır onla ilgili değil..

Alıntı

<%
Set toplm = Conn.Execute("select * from liste where onay=1 order by id desc")
%>
<%=toplm("say")%>

şu kodu kullanabilirsin

24-07-2008, 14:19:23

#5

~~HighVoltage4~~

hata veriyor. o kodu tam olarak nerede ve nasıl kullanacağımı izah edeblir misin?

Alıntı

ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.

24-07-2008, 14:23:49

#6

~~LineBilisim~~

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

hata veriyor. o kodu tam olarak nerede ve nasıl kullanacağımı izah edeblir misin?

şu şekilde kullan bakalım.

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Path = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};"
Path = Path & " DBQ= " & Server.MapPath("veritabani.mdb")

Conn.Open Path
sql="SELECT * FROM liste WHERE onay=1 order by id desc"

Set rs=Conn.Execute(sql)
%>

<TABLE width="100%" border="1" cellspacing="0">
<TR>
<%
Do While Not rs.Eof
%>
<TR>
<TD><%=rs("isim")%></TD>
<TD><%=rs("tarih")%></TD>
</TR>
<%
rs.MoveNext
Loop
%>
</TABLE>
<%
Set toplm = Conn.Execute("select * from liste where onay=1 order by id desc")
%>
<%=toplm("say")%> 
<%
toplm.Close
Set toplm=Nothing
rs.Close
Conn.Close
Set rs=Nothing
Set Conn=Nothing
%>

24-07-2008, 14:34:21

#7

~~HighVoltage4~~

yine olmadı, hata aynı hata :S

24-07-2008, 23:37:33

#8

~~HighVoltage4~~

yok mu başka yardım edecek? :S

25-07-2008, 05:56:49

#9