ASP de veritabanındaki bir alandaki değerleri toplama

Kodla Büyü

flashoreal

Site Gezgini
Mesajlar
53
merhaba arkadaşlar

yaptığım bir sayfada veritabanından bilgileri tabloya çektirip listeleme yaptırıyorum. Sütunların en altına toplamlarını hesaplattırmak istiyorum. Ancak hesaplama işleme gerçekleşmiyor. Bu konuda yardımcı olursanız sevnirim.
 
"select sum(alan)as sonuc from tablo" eğer bir şart koymak istersen where diye sonuna eklersin yazdırırken de response.write sonuc
 
BİRTAN HOCAM

SQL="Select sum(sayi) as tsayi from uyeler"
response.write tsayi

şu şekilde yapıyorum ancak sonucu 0 veriyor.
 
hocam sql stringini bağlantın ile execute ettiğinden eminsen ve hala çalışmıyorsa kodlarını gönderirsen yardımcı olabilirim.
 
birtanyildiz' Alıntı:
hocam sql stringini bağlantın ile execute ettiğinden eminsen ve hala çalışmıyorsa kodlarını gönderirsen yardımcı olabilirim.

Kod:
<%
set bg=Server.CreateObject("Adodb.Connection")
bg.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("dfr/dfr.mdb")

set list=Server.CreateObject("Adodb.Recordset")
list.Open "Select * from uyeler",bg,1,3 
%>
  
<% 
tsayi=0
psayi=0
   do until list.eof
  SQL="Select sum(sayi) as tsayi from uyeler"
  SQL1="Select sum(psayi) as psayi from uyeler"
   %>
  <tr>
    <td align="center"><font face="Verdana, Geneva, sans-serif" size="-1"><%=list("kullaniciadi")%></font></td>
    <td align="left"><font face="Verdana, Geneva, sans-serif" size="-1"><%=list("okul_adi")%></font></td>
    <td align="center"><font face="Verdana, Geneva, sans-serif" size="-1"><%=list("sayi")%></font></td>
    <td align="center"><font face="Verdana, Geneva, sans-serif" size="-1"><%=list("psayi")%></font></td>
  </tr>
<% list.movenext
     loop
%>
  <tr>
    <td colspan="2" align="center">TOPLAM</td>
    <td align="center"><%response.write(tsayi)%></td>
    <td align="center"><%response.write(psayi)%></td>
  </tr>
  
</table>
<%
list.close
  bg.close
  %>
<p>&nbsp;</p>
</body>
</html>
 
Umarım yanlış yazmamışımdır

Kod:
<%
set bg=Server.CreateObject("Adodb.Connection")
bg.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& Server.MapPath("dfr/dfr.mdb")

set list=Server.CreateObject("Adodb.Recordset")
list.Open "Select * from uyeler",bg,1,3 
%>
  
<% 
tsayi=0
psayi=0

  
   do until list.eof
   
  SQL="Select sum(sayi) as tsayi from uyeler"
  SQL1="Select sum(psayi) as psayi from uyeler"
  
  set tbl_sql=bg.execute(SQL)
  set tbl_sql1=bg.execute(SQL2)
   %>
  <tr>
    <td align="center"><font face="Verdana, Geneva, sans-serif" size="-1"><%=list("kullaniciadi")%></font></td>
    <td align="left"><font face="Verdana, Geneva, sans-serif" size="-1"><%=list("okul_adi")%></font></td>
    <td align="center"><font face="Verdana, Geneva, sans-serif" size="-1"><%=list("sayi")%></font></td>
    <td align="center"><font face="Verdana, Geneva, sans-serif" size="-1"><%=list("psayi")%></font></td>
  </tr>
<% list.movenext
     loop
%>
  <tr>
    <td colspan="2" align="center">TOPLAM</td>
    <td align="center"><%response.write(tbl_sql("tsayi"))%></td>
    <td align="center"><%response.write(tbl_sql1("psayi"))%></td>
  </tr>
  
</table>
<%
list.close
  bg.close
  %>
<p>&nbsp;</p>
</body>
</html>
 
set tbl_sql=bg.execute(SQL)
set tbl_sql1=bg.execute(SQL1)

şu satırları anlayamadım hocam.

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

list.asp, line 89


bu hatayı alıyorum
 
hocam burada recordset ile ilgili bir hata vermiş veritabanınızdaki tablo isimleri ile alakalı yanlış değilsem. benim sonradan eklediğim o kodlarda recordset kullanılmadığı için oradan kaynaklanmıyor diye düşünüyorum.
 
BBNET
Geri
Üst