Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

[es] :: Visual Basic 6 :: Opet problem sa tabelom! (sabiranje dva polja iz baze)

Strane: < .. 1 2 3 4 5 6 7

[ Pregleda: 17326 | Odgovora: 121 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)12.04.2005. u 23:13 - pre 231 meseci
Marko_L u pravu si jesam bio malo nekorektan, potrudit cu se ubuduce da malo vise razmisljam svojom glavom. Nemoj zamjeriti. A ako stvarno negdje zapnem valjda ti se mogu obratiti. Hvala ti puno. Pozdrav
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)13.04.2005. u 14:44 - pre 231 meseci
Naravno da se možeš obratiti.Ja ću ti pomoći koliko mogu, kao i do sada, a verujem i ostali.
-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
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)13.04.2005. u 15:38 - pre 231 meseci
Marko_L super ovako onaj kod sto si mi dao :

Code:

datPrimaryRS.RecordSource = "SELECT count([Ime i prezime]) FROM Razred WHERE cint((val(Matematika) + val(Fizika)) / 2) = 3"
datPrimaryRS.Refresh
lblOdlicnih.Caption = datPrimaryRS.Recordset.Fields(0).Value


on radi ali kad stisnem dugme on izracuna koliko ima trojki ali izbrise sve iz tabele. A kad izadjem iz programa i ponovo udjem tabela je puna i ponovo kad stisnem dugme on izracuna ali izbrise sve iz tabele... U cemu je sad tu problem?
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)13.04.2005. u 17:18 - pre 231 meseci
Problem je u tome što menjaš recordsource, a nigde ne vraćaš stari koji prikazuje sve te podatke u tabeli.Posle ovog koda stavi onaj sa SQL-om koji prikazuje podatke koji su ti potrebni.
-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
 
Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.com
Via: [es] mailing liste



+104 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)13.04.2005. u 17:19 - pre 231 meseci
Izbrise sve iz tabele??? Mislim da negde debelo gresis :) Kad si stavio da
je datPrimaryRS.RecordSource = "select count(......" automatski se sadrzaj
datPrimaryRS menja u skladu sa tom SQL naredbom. Drugim recima ako hoces da
datPrimeryRS opet ima ranije podatke moras opet da izvrsis predhodni upit.
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)13.04.2005. u 21:05 - pre 231 meseci
Marko_L u pravu si samo sam promjenio raspored... Hvala!!!
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

KaAmIkAzA
Banja Luka

Član broj: 55521
Poruke: 58
*.teol.net.



Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)14.04.2005. u 10:58 - pre 231 meseci
Od samog pocetka pratim ovu temu i mogu vam reci da je veoma zanimljiva. I ja sam probao na osnovu ovoga napraviti nesto, posto sam ja pocetnik imam par pitanja za vas ako mi mozete odgovoriti:

U lblSr da stavim kod da mi iz tabele iz kolone Uspjeh izracuna srednju ocjenu Marko_L je gore naveo taj kod ali meni ne radi. Pozdrav
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)14.04.2005. u 16:35 - pre 231 meseci
Kamikaza taj kod sam sada isprobo i neradi na Uspjeh ali radi na Matematika i na ostalim drugim predmetima. Marko_L onaj kod sto si mi dao:

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


Nisam dosad ni primjetio da u polju Uspijeh ako je u polju Srednja ocjena 4,50 nece ispisat Uspjeh 5 nego ce staviti da je 4, a ako je 4,51 e onda ce staviti da je 5. Sta mislis sta je tu problem...
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)14.04.2005. u 18:33 - pre 231 meseci
Momci, ovako možemo do sutra.Već sam na početku pomenuo da je sama konstrukcija baze neprimerena za ovo što se radi, jer su u njoj sva polja text tipa a se većinom se rade neke računske operacije, a ima i viška polja, što opet dovodi do mogućnosti velikih grešaka.Ono što sam ja pokušao da uradim je da te bez menjanja te baze uputim u to kako bi nešto mogao da uradiš i upoznaš se sa SQL-om.Ali, kao što vidiš računske operacije nisu dovoljno precizne, pa samim tim dolazi do pomenutih grešaka jer su ti brojevi sa kojima se radi, u stvari stringovi, koji se u hodu menja u brojčane podatke, što je po meni jako pogrešan pristup, pogotovo kada se u samoj bazi sve to može definisati i izbeći razni problemi koji se javljaju.E sad, pošto si se malo upoznao sa problematikom sa kojom radiš, predlažem da projekat kreneš iz početka, ali ovaj put kako treba.Dakle u bazi definiši tipove podataka.Dakle, ime i prezime treba da ostane text tipa, ocene, neopravdani, opravdani, bi trebalo da budu number tip, recimo integer, srednja ocena bi zbog decimala trebalo da bude single.Polja uspeh i svega ti ne trebaju, jer se ona generišu i prikazuju samim SQL-om.Sledeća stvar koju bih predložio jeste da se ne zezaš sa prenošenjem podataka sa forme na formu, nego da napraviš posebne forme za unos i pregled podataka, čime ćeš postići 2 bitne stvari, prva je preglednost, a druga stabilniji i sigurniji rad aplikacije.
-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
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)14.04.2005. u 18:37 - pre 231 meseci
Marko_L jel mogu da neidem iz pocetka vec da samo prepravim polja u Number u bazi podataka???
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)14.04.2005. u 19:14 - pre 231 meseci
Kodovi koje si do sada dobio su takvi da rade sa bazom koja sadrže text polja, recimo ono Val koje služi da text pretvori u broj, cint koji neku vrednost gleda kao integer i slično, tako da bi morao da prepravljaš gotovo 80% koda, možda i više.Dakle, u principu možeš to da uradiš, ali ne preporučujem, jer to opet povlači dosta mogućnosti za greške, jer kako ćeš biti siguran da si baš sve prepravio.Ne vidim u čemu je problem napisati sve ponovo, jer kod i nije toliko dugačak, a do sada bi trebalo da si naučio barem osnove SQL-a, a ako nisi, onda ne znam zašto smo pričali sve ovo ovde.
-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
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)17.04.2005. u 14:35 - pre 231 meseci
Marko ja ne znam stvarno sta je ovo napravio sam novu tabelu i stavio Imeiprezime-Text,Srpski-Number-Long Integer, Matematika-Number-Long Integer,Fizika-Number-Long Integer, Istorija-Number-Long Integer, Srednjaocjena-Number-Single, Uspjeh-Number-Long Integer,Opravdano-Number-Long Integer,Neopravdano-Number-Long Integer,Svega-Number-Long Integer. I ubacim ovaj kod:

Code:

Private Sub cmdIspisi_Click()
datPrimaryRS.RecordSource = "Select Imeiprezime, Srpski, Matematika, Fizika, Istorija, (((Srpski)+(Matematika)+(Fizika)+(Istorija)) / 4) AS Srednjaocjena, cint(((Srpski)+(Matematika)+(Fizika)+(Istorija)) / 4) AS Uspjeh, Opravdano, Neopravdano, (Opravdano + Neopravdano) As Svega FROM Automehanicar1"
datPrimaryRS.Refresh
End Sub


I on mi ispise gdje je 3.5 ispise 4 a gdje je 1.5 ispise 1, 2.5 ispise 2, 4.5 ispise 4. Zasto sta nije u redu...
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)17.04.2005. u 20:11 - pre 231 meseci
Samo bez panike.To nije bug, to je feature :)
Evo šta ćeš.Koristi funkciju format.
Code:
Private Sub cmdIspisi_Click()
datPrimaryRS.RecordSource = "Select Imeiprezime, Srpski, Matematika, Fizika, Istorija, (((Srpski)+(Matematika)+(Fizika)+(Istorija)) / 4) AS Srednjaocjena, format(((Srpski+Matematika+Fizika+Istorija) / 4), '#') AS Uspjeh, Opravdano, Neopravdano, (Opravdano + Neopravdano) As Svega FROM Automehanicar1"
datPrimaryRS.Refresh
End Sub

-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
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)17.04.2005. u 23:23 - pre 231 meseci
E izvini a jel moze jos jedan kod ovaj je u redu. Imam lbl1 lbl2 lbl3ivisi.
Da u lbl1 ispise samo ako ima jedna jedinica, u lbl2 da ispise ako imaju 2 jedinice i u lbl3ivise da ispise ako ima 3 ili vise jedinica nije sve ukupno vec kod svakog ucenika. I ako moze da ako u nekom predmetu ima jedan da mu uspjeh odma bude 1. Hvala unapred. Pozdrav
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)18.04.2005. u 14:55 - pre 231 meseci
Nisam siguran da sam te razumeo.Hoćeš da prebrojiš jedinice za svakog učenika ili šta ?
Probaj da prođeš kroz ceo rekordset.Nešto ovako
Code:
Dim a As Integer
Dim BrojJedinica As Integer
For a = 1 To BrojPredmeta
If DatPrimaryRS.Recordset.Fields(a).Value = "1" Then BrojJedinica = BrojJedinica + 1
Next a

pa onda zapiši gde hoćeš.A za ovo drugo isto ne kapiram, znači ako ima samo jednu jedinicu, uspeh 1 ? Ako je to, onda ćeš teško to moći pošto ti je to privremeno polje, koje se generiše SQL-om.Moraćeš onda drugačije da postaviš stvar, odnsono da izračunati uspeh upišeš u bazu, pa onda prođeš kroz rekordset (kod koji sam ti dao u ovom postu) i kada naiđeš na vrednost jedan edituješ polje Uspjeh.Naravno, za to bi morao da izmeniš one upite koje si do sada koristio u programu.
-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
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)20.04.2005. u 14:52 - pre 231 meseci
Da li mi neko moze reci sta nije u redu sa ovim kodom:

Code:

Private Sub Form_Load()
datPrimaryRS.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" & App.Path & "\BazaSkola.mdb"
datPopis = "select Redbr,Imeiprezime,Maternjijezik,Stranijezik,Matematika,Istorija,Opravdano,Neopravdano,Svega from [Pero kojot]"
datPrimaryRS.RecordSource = datPopis
End Sub

Stavio sam u grdDataGrid u meniju Data Source na datPrimaryRS.
I kad pokrenem program nista mi ne pokaze u tabeli a u njoj vec imaju neki podaci niti mogu kliknuti na dugme Add onda ispise " Object variable or With block variable not set ", sigurno je negdje mala greska, jel mi vi mozete pomoci da je otklonim. Hvala unapred...

[Ovu poruku je menjao KiselinaXP dana 20.04.2005. u 17:11 GMT+1]
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)20.04.2005. u 16:10 - pre 231 meseci
Dodaj još
Code:
datPrimaryRS.Refresh

-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
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)20.04.2005. u 16:20 - pre 231 meseci
Kad sam dodo to i onda ocu da pokrenem ispise mi drugu gresku:

Data error eveni hit err:Authentication failed. kad kliknem OK onda

Authentication failed. pa opet OK ond izbaci gresku


Run-time error '-2147217843(80040e4d)'"
Method 'Refresh' of object 'IAdodc' failed

Sta bi to moglo sada biti?
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)20.04.2005. u 16:41 - pre 231 meseci
Nisam dobro pogledao connection string, u njemu tio je greška.Probaj da ga izmeniš ovako:
Code:
datPrimaryRS.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\BazaSkola.mdb"

-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
 
Odgovor na temu

KiselinaXP
Crna rupa

Član broj: 54030
Poruke: 232
*.teol.net.

Jabber: kiselina@elitesecurity.org
ICQ: 226466859


Profil

icon Re: Opet problem sa tabelom! (sabiranje dva polja iz baze)20.04.2005. u 17:05 - pre 231 meseci
E u redu je. Dal mi mozes sada objasniti sta trebam uraditi i koji kod za ono da ako ucenik ima 1 u nekom predmetu da u koloni Uspjeh upise 1.
A gde je moj moped ko da je u moravu propo!
Pero kojot genije!
 
Odgovor na temu

[es] :: Visual Basic 6 :: Opet problem sa tabelom! (sabiranje dva polja iz baze)

Strane: < .. 1 2 3 4 5 6 7

[ Pregleda: 17326 | Odgovora: 121 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.