0
Kayıt Ol

db kayıt sayısı

14

●

1.344

  • 25-07-2008, 06:06:53
    #10
    ReFLeX
    ReFLeX
    Verdiğim kodu olduğu gibi kendi kodunla değiştir kolay gelsin 


    <%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Veritabani.mdb")

Set Rs = Conn.Execute("SELECT * FROM Liste Where Onay=1 Order By id Desc")

Set ToplamKayit = Conn.Execute("SELECT Count(*) AS Hesapla FROM Liste Where Onay=1 Order By id Desc")
%>

<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>
<center>Toplam Kayıt Sayısı: <%=ToplamKayit("Hesapla")%>
<%
rs.Close
Conn.Close
Set rs=Nothing
Set Conn=Nothing
%>
  • 25-07-2008, 15:40:04
    #11
    HighVoltage4
    HighVoltage4
    ReFLeX adlı üyeden alıntı: mesajı görüntüle
    Verdiğim kodu olduğu gibi kendi kodunla değiştir kolay gelsin 


    <%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Veritabani.mdb")

Set Rs = Conn.Execute("SELECT * FROM Liste Where Onay=1 Order By id Desc")

Set ToplamKayit = Conn.Execute("SELECT Count(*) AS Hesapla FROM Liste Where Onay=1 Order By id Desc")
%>

<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>
<center>Toplam Kayıt Sayısı: <%=ToplamKayit("Hesapla")%>
<%
rs.Close
Conn.Close
Set rs=Nothing
Set Conn=Nothing
%>

    olmadı.. aldığım hata:

    You tried to execute a query that does not include the specified expression 'id' as part of an aggregate function.
    /fun.asp, line 5
  • 25-07-2008, 21:51:00
    #12
    ReFLeX
    ReFLeX
    tamam panik yok 5. satırdaki kodu verdiğim ile değiştir Toplama işleminde Order By id desc kullanmanın gereği yok tabiki hata vermesi normal gözden kaçmış 

    Set ToplamKayit = Conn.Execute("SELECT Count(*) AS Hesapla FROM Liste Where Onay=1")
  • 26-07-2008, 01:48:51
    #13
    HighVoltage4
    HighVoltage4
    ReFLeX adlı üyeden alıntı: mesajı görüntüle
    tamam panik yok 5. satırdaki kodu verdiğim ile değiştir Toplama işleminde Order By id desc kullanmanın gereği yok tabiki hata vermesi normal gözden kaçmış 

    Set ToplamKayit = Conn.Execute("SELECT Count(*) AS Hesapla FROM Liste Where Onay=1")
    "onay=1" kısmı fazla geldi, onu kaldırınca çalıştı fakat bu seferde onaysızlarıda saymaya başladı. birde kayıtlar görünmedi sadece sayaç göründü, biraz oynama yaptım düzelttim ben... neyse bu şekilde idare edicem. RefLex yardımların için çok teşekkürler.. +rep...
  • 26-07-2008, 01:56:00
    #14
    LineBilisim
    LineBilisim
    pardon kafam dalgındı
    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>
    <%
    Set toplm = Conn.Execute("select count(id) as say from liste where onay='1'")
    %>
    <%=toplm("say")%>
    <%
    toplm.Close
    Set toplm=Nothing
    rs.Close
    Conn.Close
    Set rs=Nothing
    Set Conn=Nothing
    %>
    bu şekilde denermisin
  • 26-07-2008, 02:39:16
    #15
    ReFLeX
    ReFLeX
    önemli değil işini gördüyse iyi onay kısmınıda veri tabanında evet/hayır olarak seç onay=1 değil onay=true olarak yap bi problem olacağını sanmıyorum