[onurkaya]

Merhaba arkadaşlar,

veritabanında diyelimki notlar adında bir tablomuz var. bu tablodaki notların tamamını nasıl toplatabiliriz. (bütün satırları)

[mceL]

SELECT SUM(not) FROM notlar

Tüm notları toplayıp sonucu döndürür. Ayrıca genel SQL sorgulamalarını da kullanabilirsiniz.

Şöyle ki;

SELECT SUM(not) FROM notlar WHERE ders_id = 5

[onurkaya]

teşekkürler bunu denedim ama toplam sonucunu ekrana yazdıramadım. ancak bir başka yoldan hallettim ama şöyle bir sorun var:

tam olarak toplam sonucu vermiyor. veritabanında toplam 185 yapıyor ancak, kodlama ile toplattığım zaman 170 çıkıyor. bu neden kaynaklanır?

Kod satırları şu şekilde:

<%
Dim SNotRS, SNotSQL, SNotToplam
Set SNotRS = server.CreateObject("ADODB.Recordset") 
SNotSQL = "SELECT * FROM [Notlar] WHERE [DersID] = " & Request.QueryString("DersID") & " AND [SinifID] = " & Request.QueryString("SinifID") & ""
SNotRS.Open SNotSQL, DizaynWebBaglanti, 1, 3

SNotToplam = 0

Do While Not SNotRS.Eof

SNotToplam = SNotToplam+1

SYazili1 = (INT(SNotRS("Yazili1")) + INT(SNotRS("Yazili1")))

SNotRS.movenext

loop
%

ilgilendiğin için teşekkürler.

[deardart]

Böylede olur ama makine biraz kasabilir.

<%
Dim SNotRS, SNotSQL, SNotToplam
Set SNotRS = server.CreateObject("ADODB.Recordset")
SNotSQL = "SELECT * FROM [Notlar] WHERE [DersID] = " & Request.QueryString("DersID") & " AND [SinifID] = " & Request.QueryString("SinifID") & ""
SNotRS.Open SNotSQL, DizaynWebBaglanti, 1, 3

SNotToplam = 0

Do While Not SNotRS.Eof

SNotToplam = SNotToplam+1

SYazili1 = (INT(SNotRS("Yazili1")) + INT(SNotRS("Yazili1")))

SNotRS.movenext

loop
%>


Buda çalışması lazım


<%
Dim SNotRS, SNotSQL, SNotToplam
Set SNotRS = server.CreateObject("ADODB.Recordset")

Set se = SNotRS.Execute("SELECT SUM(not) FROM notlar")
%>
<%=se(0)%>

<%=se("not")%>

[onurkaya]

dediğin gibi yaptım ama şu hatayı verdi:

Microsoft VBScript çalışma hatası (0x800A01B6)
Nesne bu özellik veya yöntemi desteklemiyor: 'Execute'


"SNotRS" recordsetini tanımlıyoruz ama "se" nedir ve ne işe yarayacak?

hiç bir yerle bağlantı kuramadım...

[mceL]

onurkaya tarafından gönderilen mesaj:

teşekkürler bunu denedim ama toplam sonucunu ekrana yazdıramadım.

Ekrana yansıtmak için ilk alanı yansıtmanız lazım. ASP bilgim olmadığı için tam komutu bilmiyorum.

Access destekler mi bilmiyorum ama şu şekilde de alan adı verebilirsiniz ayrıca;

SELECT SUM(not) AS alan1 FROM notlar

Yazdırırken RS("alan1") gibi yazdırabilirsiniz.

[absconder]

onurkaya tarafından gönderilen mesaj:

dediğin gibi yaptım ama şu hatayı verdi:

Microsoft VBScript çalışma hatası (0x800A01B6)
Nesne bu özellik veya yöntemi desteklemiyor: 'Execute'


"SNotRS" recordsetini tanımlıyoruz ama "se" nedir ve ne işe yarayacak?

hiç bir yerle bağlantı kuramadım...

SNotRS'nin recordset değil connection olması ve open edilmesi gerekmektedir. dolayısıyla se'de connection'dan execute edilen bir recordset olacaktır.

<%
Dim SNotRS, SNotSQL, SNotToplam
Set SNotRS = server.CreateObject("ADODB.Connection")
SNotRS.Open DizaynWebBaglanti

Set se = SNotRS.Execute("SELECT SUM(not) FROM notlar")
%>
<%=se(0)%>

bir başka yazım ise;

<%
Dim SNotRS, SNotSQL, SNotToplam
Set SNotRS = server.CreateObject("ADODB.Connection")
SNotRS.Open DizaynWebBaglanti
%>
<%=SNotRS.Execute("SELECT SUM(not) FROM notlar")(0)%>

[onurkaya]

absconder tarafından gönderilen mesaj:

SNotRS'nin recordset değil connection olması ve open edilmesi gerekmektedir. dolayısıyla se'de connection'dan execute edilen bir recordset olacaktır.

<%
Dim SNotRS, SNotSQL, SNotToplam
Set SNotRS = server.CreateObject("ADODB.Connection")
SNotRS.Open DizaynWebBaglanti

Set se = SNotRS.Execute("SELECT SUM(not) FROM notlar")
%>
<%=se(0)%>

bir başka yazım ise;

<%
Dim SNotRS, SNotSQL, SNotToplam
Set SNotRS = server.CreateObject("ADODB.Connection")
SNotRS.Open DizaynWebBaglanti
%>
<%=SNotRS.Execute("SELECT SUM(not) FROM notlar")(0)%>

SNotRS, recordsettir. o satırlarda belirtilmedi ama bağlantımız DizaynWebBaglanti dır. yine de dediğin gibi execute metodunu kullandım ama olmadı. arkdaşlar tüm kodu veriyorum, lütfen çözelim beraberce...

<%
Dim DizaynWebBaglanti
Set DizaynWebBaglanti = server.CreateObject("Adodb.Connection")
DizaynWebBaglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db.mdb")

Dim SNotRS, SNotSQL, SNotToplam, SYazili1
Set SNotRS = server.CreateObject("ADODB.Recordset") 
SNotSQL = "SELECT * FROM [Notlar] WHERE [DersID] = " & Request.QueryString("DersID") & " AND [SinifID] = " & Request.QueryString("SinifID") & ""
SNotRS.Open SNotSQL, DizaynWebBaglanti, 1, 3

SNotToplam = 0

Do While Not SNotRS.Eof

    SNotToplam = SNotToplam+1

    SYazili1 = (INT(SNotRS("Yazili1")) + INT(SNotRS("Yazili1")))
	
SNotRS.movenext
	
loop
	

X_SYazili1 = (INT(SYazili1) / INT(SNotToplam))

%>

[absconder]

ben kodu yanlış okudum o zaman

benim kodumda DizaynWebBaglanti yerine connectionstring'inizi yazarsanız sorunsuz çalışacaktır

<%
Dim Conn
Set Conn= server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("db.mdb")

Set Rs = Conn.Execute("SELECT SUM(Yazili1), Count(*) FROM notlar")

%>
not toplamı :<%=Rs(0)%>

satır sayısı :<%=Rs(1)%>

bu sanırım daha okunur bir kod oldu.

[onurkaya]

çok teşekkür ederim. bu sefer çalıştı.