Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

Opet problem sa tabelom! (sabiranje dva polja iz baze)

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 121 odgovor
  • 25.336 pregleda

Najnovija ↓

Opet problem sa tabelom! (sabiranje dva polja iz baze) 04.04.2005. u 22:15 · pre 262 meseca
izmenjeno 1 put, poslednji put mladenovicz 05.04.2005. u 12:22
Izmene poruke
  1. mladenovicz05.04.2005. u 12:22zapis iz teksta poruke
#1
U dole navedenoj temi "Pomoc oko tabele" nisam bas skroz razumeo sta ste hteli reci i kako. Moj problem je :

[img]


I kako da u polje Svega saberem red Opravdano i Neopravdano.
Potpis
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
Re: Opet problem sa tabelom! 04.04.2005. u 23:03 · pre 262 meseca #2
nemogu se sjetit sta sam napisao a na ovo sam slucajno naletio.
Haj da prdpostavim:
koliko se sjecam u jednom plju imas opravdan u drugom neopravdani casovi i kako te razumijem treba ti zbir.
ako je to to onda.
polje ukupno=polje opravdani puta pole neopravdani.
Potpis
zxz
Re: Opet problem sa tabelom! 04.04.2005. u 23:11 · pre 262 meseca #3
Code:
db.Recordsource = "SELECT opravdano, neopravdano, (opravdano + neopravdano) AS svega FROM [ime tabele]"
db.Refresh

"db" ti je ime objekta koji predstavlja bazu, a [ime tabele] je ime tabele u kojoj se nalaze ta polja koja pominješ.Polje "svega" ti ne treba uopšte, jer se račun obavlja u SQL-u.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 17:36 · pre 262 meseca #6
Code:
db.RecordSource = "SELECT SUM(opravdano) AS ukupno FROM [ime_tabele]"
db.Refresh
lblUkupno = db.Recordset.Fields(0).Value
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 17:41 · pre 262 meseca #7
Nece ni ovo de vidi to sto sam stavio pa ti probaj da ispise i u tabeli i Svega i u labelu Ukupno. Ajd molim te nemas pojma koliko me muci....................
Potpis
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 17:47 · pre 262 meseca #8
Na formi frmRazred u Command1_Click stavi ovo
Code:
Private Sub Command1_Click()
datPrimaryRS.RecordSource = "select sum(val(Opravdano)) AS ukupno FROM Razred"
datPrimaryRS.Refresh
lblUkupno = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "select [Ime i prezime],Istorija,Matematika,[Maternji jezik],Fizika,[Strani jezik],[Srednja ocjena],Uspjeh,Vladanje,Opravdano,Neopravdano,(Opravdano+Neopravdano) AS Svega from Razred"
datPrimaryRS.Refresh
End Sub

Inače velika ti je greška što si u bazi stavio da sva polja budu text tipa, a radiš sa brojčanim podacima što otežava računske operacije (zato sam i stavio ono val kod "opravdano").Bilo bi dobro da umesto text, staviš da polja budu nekog brojčanog tipa, recimo integer.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 17:59 · pre 262 meseca #9
Ovo sada funkcionise, ali u cemu je sada problem:

u labelu sve dobro sabere
a u tabeli ako sam naprimer unjeo u opravdani i neopravdano 5 i 6 ispise 56 dok u labelu 11.

i kada stisnem dugme vise nemogu nista upisivati u tabelu kada upisem i stisnem dugme da sabere on to sto sam unjeo izbrise...
Potpis
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 18:02 · pre 262 meseca #10
A da, pošto su ti polja text data tipa, on ih ne sabira, nego spaja.Dakle, ono umesto onog gore što sam ti napisao, stavi ovako
Code:
Private Sub Command1_Click()
datPrimaryRS.RecordSource = "select sum(val(Opravdano)) AS ukupno FROM Razred"
datPrimaryRS.Refresh
lblUkupno = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "select [Ime i prezime],Istorija,Matematika,[Maternji jezik]," & _
"Fizika,[Strani jezik],[Srednja ocjena],Uspjeh,Vladanje,Opravdano,Neopravdano,(val(Opravdano)+val(Neopravdano))" & _
"AS Svega from Razred"
datPrimaryRS.Refresh
End Sub

Ili promeni tip podataka u poljima u bazi.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 18:08 · pre 262 meseca #11
Hvala ti puno i dali jos znas kako da oni sto pise matematika, istorija, opravdano, neopravdano itd. osim ime i prezime bude uspravno napisano.
Potpis
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 18:38 · pre 262 meseca #12
Mislim da to nije moguće u datagrid-u.Možda da probaš da iskombinuješ nešto sa lebelom tako što ćeš da joj staviš wordwrap na true i "stanjiš" je tako da može da stane samo jedno slovo u redu, pa onda to staviš iznad datagrid-a, tačnije iznad polja koje predstavlja.Ili možda da iskombinuješ nešto sa excelom, ako već hoćeš da dobiješ neki efektniji izveštaj.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 18:57 · pre 262 meseca #13
Ma dobro nista od toga onda. Je*iga jesam ti vec dosadio posto imam jos pitanja.
Ako u tabeli imam "Srednja ocjena" kako da upisem kod da tu sabere sva polja u koloni sa predmetima i da podjeli sa brojem predmeta, a u polju uspijeh da gleda koja je srednja ocjena i da ispise uspjeh npr. ako je u srednjoj ocjeni 2.48 da u uspjehu ispise 3.Izvini molim te ali sta cu kad ne znam a imaju iskusniji pa moram pitat... Hvala!
Potpis
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 19:49 · pre 262 meseca #14
Pošto vidim da imaš dosta računskih operacija za obaviti, ponovo moram da predložim da stvaiš da ti ta polja sa ocenama i opravdanim/neopravdanim budu number tip podataka, kao što rekoh, recimo integer.E sad, pošto ti hoćeš da ti prikaže sve u jednoj tabeli predpostavljam, onda je najbolje samo da nadogradiš onaj SQL koji si već koristio, ovako
Code:
Private Sub Command1_Click()
datPrimaryRS.RecordSource = "select sum(val(Opravdano)) AS ukupno FROM Razred"
datPrimaryRS.Refresh
lblUkupno = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "select [Ime i prezime],Istorija,Matematika,[Maternji jezik]," & _
"Fizika,[Strani jezik],((val(Istorija) + val(Matematika) + val([maternji jezik]) + val(Fizika) + val([Strani jezik])) / 5) " & _
"AS [Srednja ocjena], cint(((val(Istorija) + val(Matematika) + val([maternji jezik]) + val(Fizika) + val([Strani jezik])) / 5)) " & _
"AS Uspjeh,Vladanje,Opravdano,Neopravdano,(val(Opravdano)+val(Neopravdano)) AS Svega from Razred"
datPrimaryRS.Refresh
End Sub

Naravno, ukoliko si promenio tip podataka u bazi ne moraš da koristiš val, znači onaj deo gde stoji
Code:
((val(Istorija) + val(Matematika) + val([maternji jezik]) + val(Fizika) + val([Strani jezik])) / 5)

bi mogao da napišeš i ovako
Code:
((Istorija + Matematika + [maternji jezik] + Fizika + [Strani jezik]) / 5)
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 22:14 · pre 262 meseca #16
Covece evo sada jedno zanimljivo pitanje:

Sve isto tabela i ostalo samo sto sada imam:

lbl5
lbl4
lbl3
lbl2
lbl1
lblSr

e sada da kada stisnem cmdRefresh da u lbl5 ispise koliko petica ima iz matematike u koloni [Matematika], u lbl4 da ispise koliko ima cetvorki u koloni [Matematika] itd.
u lblSr da iz kolone matematika izvuce srednju ocjenu... E covjece ti si legenda hvala ti unaprijed sto puta!!!!!!!!!!!!!!!!!!!!!!!!!!!
Potpis
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 22:43 · pre 262 meseca #17
Code:
Private Sub cmdRefresh_Click()
datPrimaryRS.RecordSource = "SELECT COUNT(matematika) FROM Razred WHERE val(matematika) = 5"
datPrimaryRS.Refresh
lbl5.Caption = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "SELECT COUNT(matematika) FROM Razred WHERE val(matematika) = 4"
datPrimaryRS.Refresh
lbl4.Caption = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "SELECT COUNT(matematika) FROM Razred WHERE val(matematika) = 3"
datPrimaryRS.Refresh
lbl3.Caption = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "SELECT COUNT(matematika) FROM Razred WHERE val(matematika) = 2"
datPrimaryRS.Refresh
lbl2.Caption = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "SELECT COUNT(matematika) FROM Razred WHERE val(matematika) = 1"
datPrimaryRS.Refresh
lbl1.Caption = datPrimaryRS.Recordset.Fields(0).Value
datPrimaryRS.RecordSource = "SELECT AVG(val(matematika)) FROM Razred"
datPrimaryRS.Refresh
lblSr.Caption = datPrimaryRS.Recordset.Fields(0).Value
End Sub

Uzgred, toplo preporučujem da skineš i pročitaš degojs-ov tutorijal (imaš link u top temi sa često postavljanim pitanjima) i upoznaš se sa osnovama SQL-a.Trebaće ti.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 23:08 · pre 262 meseca #18
E skinosam tutorijale i hvala ti, a gledaj sada u tabeli smo imali [Uspjeh] e kako da sada u labelu:

lbl55 lbl555
lbl44 lbl444

stavim kod da u tabeli i koloni [Uspijeh] u lbl55 ispise koliko ima odlicnih a u lbl555 postotak, tako isto i sa lbl44 lbl444 i sa ostalim. Jest da te mucim ali staces kad se uvijek nadje pitanje valjda nemas nista protiv!!!!!!!!!!!!!
Potpis
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 05.04.2005. u 23:46 · pre 262 meseca #19
Ma nije meni problem da ti napišem, ali ti baš nećeš ni malo da se potrudiš.Iz ovih prethodnih postova si mogao da provališ kako da odradiš i to što ti treba.Evo recimo za taj broj odličnih možeš da iskoristiš isti SQL koji sam ti dao u prethodnom postu, samo zameniš matematika sa "Uspjeh".Evo ovako
Code:
datPrimaryRS.RecordSource = "SELECT COUNT(Uspjeh) FROM Razred WHERE val(Uspjeh) = 5"
datPrimaryRS.Refresh
lbl55.Caption = datPrimaryRS.Recordset.Fields(0).Value

Isto to uradiš i sa 4, 3, 2 i 1, a za postotak moraš da imaš ukupan broj učenika, što možeš dobiti sa
Code:
Dim ukupnoucenika As Integer
ukupnoucenika = datPrimaryRS.Recordset.RecordCount

Ili sa SQL-om
Code:
Dim ukupnoucenika As Integer
datPrimaryRS.RecordSource = "SELECT COUNT([ime i prezime]) FROM Razred"
datPrimaryRS.Refresh
ukupnoucenika = datPrimaryRS.Recordset.Fields(0).Value

A onda na osnovu lbl55 i ukupnog broja učenika računaš procenat
Code:
lbl555.Caption = Val(lbl55) * (100 / ukupnoucenika)

Isto tako i za 4, 3, 2 i 1.Snaći ćeš se.
Potpis
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
Re: Opet problem sa tabelom! (sabiranje dva polja iz baze) 06.04.2005. u 13:30 · pre 262 meseca #20
Covece bas sam lijen ali jeb*ga nije valjda nikakav problem ucim fiziku moram popraviti pa zato. A vidis onaj kod sto si mi napiso:

Code:

lbl555.Caption = Val(lbl55) * (100 / ukupnoucenika)


u redu da ja upisem koliko ima ucenika ali kako da on sam prepozna koliko ih ima kada se upisuje u tabelu? Ma nema covece ti si Heroj!!!!!!!!
Potpis
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme