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

Sabiranje iz baze

[es] :: Visual Basic 6 :: Sabiranje iz baze

Strane: 1 2 3

[ Pregleda: 9074 | Odgovora: 49 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze24.04.2005. u 21:18 - pre 230 meseci
Da bio sam postavio u module i sada kada sam promenio oped javlja gresku
ali drugaciju pogledaj upload.
Zdravo
Prikačeni fajlovi
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze24.04.2005. u 21:35 - pre 230 meseci
U kom ti je formatu datum inače u win-u ? Kao parametar moraš da mu pošalješ datum u onom formatu koji ti podešen u Regional Settings-u.

-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze24.04.2005. u 21:38 - pre 230 meseci
Marko_L

Probao sam:
11.04.2005 i
11.4.2005
I nece da prihvati ni jedno ni drugo

Zdravo
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze24.04.2005. u 22:17 - pre 230 meseci
Vidi, to sa upisivanjem datuma u Textbox kontrolu je prilično nezgrapno rešenje, jer se od korisnika očekuje da unese tačan format, a textbox dozvoljava unošenje bilo čega.Recimo, probaj da uneseš u textbox datum na ovaj način 11/04/2005, i to bi trebalo da radi.Zato mislim da je bolje da umesto textbox-a za unos traženog datuma koristiš maskedbox kontrolu kojoj možeš da odrediš tačno određen format koji se očekuje od korisnika.Drugo rešenje bi bilo da staviš tri textboxa, jedan za dan (Text2), jedan za mesec (Text3) i jedan za godinu(Text4) i onda promeniš funkciju, jer po meni je bolje rešenje proslediti datum kao argument , nego ga vući sa druge forme.Znači, probaj funkciju u modulu da postaviš ovako:
Code:
Public Function SumaKolone(polje As String, datum As Date)
Dim baza As Database
Set baza = OpenDatabase([putanja do baze])
SumaKolone = baza.OpenRecordset("SELECT SUM(" & polje & ") FROM tblNeka WHERE Date = #" & datum & "#").Fields(0).Value
baza.Close
End Function

A onda iz koda pozivaš ovako
Code:
Dim datum As Date
datum = Text3.Text & "/" text2.Text & "/" & Text4.Text
Text1.Text = SumaKolone("Zbir", datum)

ili ako koristiš Maked Edit Box kontrolu, onda samo
Code:
Text1.Text = SumaKolone("Zbir", MaskedBox1.Text)

-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze24.04.2005. u 22:29 - pre 230 meseci
Marko_L

Gresku mi pokazuje na datum ne znam sta je to?
Zdravo
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze24.04.2005. u 22:33 - pre 230 meseci
Fali jedno "&".Treba da bude

Code:
datum = Text3.Text & "/" & Text2.Text & "/" & Text4.Text

-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze24.04.2005. u 22:51 - pre 230 meseci
Marko_L
Ponovo mi prikazuje gresku jer baza datum konvertuje u
format
11.4.2005
jer moze drugcije ili da u bazi bude text
Zdravo
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze25.04.2005. u 15:41 - pre 230 meseci
Čekaj, znači u bazi ti je datum napisan u tom formatu ?
Pa onda ne bi trebalo da ima problema sa onakvim pisanjem datuma.Inače možeš da koristiš i text data tip u bazi za datum, mada moraš paziti kako ga upisuješ u bazu, jer će primati bilo koji text, a i možeš imati problema prilikom korišćenja programa na drugom kompu u kome je drugačiji format datuma podešen u Regional Settings-u.Ajde da probamo ovako.Ukucaj negde
Code:
Msgbox Date

i vidi u kom ti formatu izbacuje datum, a onda onoj funkciji prosledi datum, tačno u tom formatu, pa vidi šta se dešava.
-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze25.04.2005. u 17:27 - pre 230 meseci
Marko_L
Msgbox Date
Mi je izbacio 25.4.2005
A jesi pogledao upload da vidis koju mi gresku prikazuje:
Zdravo
Prikačeni fajlovi
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze25.04.2005. u 18:08 - pre 230 meseci
Ne mogu da provalim šta je, evo sad sam probao kod mene isto to što sam dao tebi i "guta" u kom god formatu da pošaljem datum.Ajde ako možeš okači tu formu i bazu koju koristiš, ako nisu preveliki, i ako nije neka visoko državna tajna u pitanju :), pa da pogledam.
-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze25.04.2005. u 19:05 - pre 230 meseci
Marko_L
Evo ti 2 forme skroz sam ih osiromasijo kako bi napravio sto manji fail inace je ceo oko 2mega ako nebudes mogo sa ovim videcu da postujem negde ceo kod
Zdravo
Prikačeni fajlovi
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze25.04.2005. u 19:54 - pre 230 meseci
Vidi, kada kod postavim ovako
Code:
Private Sub Command1_Click()
Dim datum As Date
datum = "4/11/2005"
Text1.Text = SumaKolone("Zbir", datum)
End Sub

a u modulu stavim
Code:
Dim baza As Database
Set baza = OpenDatabase(App.Path & "\Kalkulacije.mdb")
SumaKolone = baza.OpenRecordset("SELECT SUM(" & polje & ") FROM kalkulacije1 WHERE Date = #" & datum & "#").Fields(0).Value
baza.Close
End Function

dobijem očekivani rezultat.Koliko sam video u tvom originalnom kodu imaš
Code:
datum = Text6.Text & "/" & Text7.Text & "/" & Text8.Text

a textbox-ova sa tim imenom nemaš nigde na formi.Ne znam šta da ti kažem, ajde probaj da ostaviš onaj Text5 textbox i postavi kod u click eventu Command1 da bude
Code:
Private Sub Command1_Click()
Dim datum As Date
datum = Text5.Text
Text1.Text = SumaKolone("Zbir", datum)
End Sub

I onda probaj redom da upisuješ u Text5 sledeće formate datuma
11.4.2005
11.04.2005
4/11/2005
11/4/2005
4/11/05
11/4/05
i vidi hoće li išta od toga da prihvati.
-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze25.04.2005. u 20:16 - pre 230 meseci
Marko_L
Ne prihvata nijedan od datuma nonstop mi prijabvljuje istu gresku
Code:
Run-time eror '3075':
Sintax eror in date in query expression 'Date = 11.4.2005#'.


A inace sto se textboxova tice probao sam sa njima nego nisam obrisao kod a obrisao sam njih


Zdravo
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze25.04.2005. u 20:32 - pre 230 meseci
Ako obratiš pažnju videćeš da ti tu fali jedna taraba (#), tj. ako si dobro prepisao grešku
-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze25.04.2005. u 20:43 - pre 230 meseci
Nerazumem gde jer ceo kod sam kopirao:
Code:
Private Sub Command1_Click()
Dim datum As Date
datum = "4/11/2005"
Text1.Text = SumaKolone("Zbir", datum)
End Sub

i u module
Code:
Dim baza As Database
Set baza = OpenDatabase(App.Path & "\Kalkulacije.mdb")
SumaKolone = baza.OpenRecordset("SELECT SUM(" & polje & ") FROM kalkulacije1 WHERE Date = #" & datum & "#").Fields(0).Value
baza.Close
End Function

Gde moze da hvali taraba

Nego Marko kako ja da program povezem sa nekom drugom bazom npr. Txt jer izgleda da ovaj moj Access ne prihvata taj kod.

Zdravo
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze25.04.2005. u 20:56 - pre 230 meseci
Ne znam, nisam pametan, možda to ima neke veze sa tim što nisam spavao dva dana, pa ne mogu da uočim u čemu je problem :).Ajde da probamo ovu soluciju.Da staviš da ti polje u bazi bude text tipa.Pa onda u modulu umesto taraba stavi ovako
Code:
Private Function SumaKolone(polje As String, datum As String)
Dim baza As Database
Set baza = OpenDatabase(App.Path & "\Kalkulacije.mdb")
SumaKolone = baza.OpenRecordset("SELECT SUM(" & polje & ") FROM kalkulacije1 WHERE Date = '" & datum & "'").Fields(0).Value
baza.Close
End Function

A u kodu onda pozivaj sa
Code:
Private Sub Command1_Click()
Text1.Text = SumaKolone("Zbir", "11.4.2005")
End Sub

Ali pazi, kod ove solucije, kako upišeš datum u bazu (dakle prihvatiće ti šta god da upišeš), tako moraš i da ga proslediš kada pozivaš sumiranje kolone.
-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze25.04.2005. u 21:17 - pre 230 meseci
Marko_L
Odustajem od ovoga.
Zdravo
 
Odgovor na temu

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze25.04.2005. u 21:44 - pre 230 meseci
Marko_L
Hvala to je to uspeo sam (mislim ti si uspeo :)) sa ovim tvoim kodom prvi put ga nisam dobro
kopirao. Jos samo nesto:
jer moze da pri upisivanju u bazu ako korisnik napise
npr.11/4/2005 da se u bazi napise 11.4.2005
npr.4/11/2005 da se u bazi napise 11.4.2005
npr.11.04.2005 da se u bazi napise 11.4.2005
npr.11/04/2005 da se u bazi napise 11.4.2005
npr.04/11/2005 da se u bazi napise 11.4.2005
Naravno to da se desava i sa drugim datumima (mislim da je 99% nemoguce ako je polje baze text)
Zdravo
 
Odgovor na temu

Marko_L
Beograd

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

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: Sabiranje iz baze25.04.2005. u 22:44 - pre 230 meseci
Kompjuter ne može da zna šta je tu dan, a šta mesec, tako da ne postoji lak način da se to izvede.Najbolje rešenje je da u bazu datum uvek upisuješ u istom formatu (kad već koristiš text tip polje), a da korisniku negde u programu napomeneš kako mora da unese datum.Nego tek mi sad nešto pade na pamet (rekoh da nisam spavao dva dana :D).Zašto ne bi umesto textbox-a koristio DTPicker kontrolu za odabir datuma.Tako ćeš izbeći greške u formatu prilikom odabira datuma, jer DTPicker vraća datum u forematu koji je podešen u Win-u, a u istom tom formatu se podaci upisiju u bazu kada je polje date tipa.To je mnogo elegantnije rešenje i za korisnika, a i tebi je lakše da napraviš kod.Znači probaj i to.Vrati u bazi da polje bude date tipa, a umesto one Text5 kontrole stavi DTPicker (on ti se nalazi u sklopu Microsoft Windows Common Controls-2 6.0).I stavi kod
Code:
Private Sub Command1_Click()
Text1.Text = SumaKolone("Zbir", DTPicker1.Value)
End Sub

i u module
Code:
Public Function(polje As String, datum As Date)
Dim baza As Database
Set baza = OpenDatabase(App.Path & "\Kalkulacije.mdb")
SumaKolone = baza.OpenRecordset("SELECT SUM(" & polje & ") FROM kalkulacije1 WHERE Date = #" & datum & "#").Fields(0).Value
baza.Close
End Function

Tako bi trebalo da šljaka.
-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

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com


Profil

icon Re: Sabiranje iz baze25.04.2005. u 23:00 - pre 230 meseci
Marko_L
Mislim da je ovo uredu samo sto kod mene prikazuje ovo gresku:
Code:
Compile erorr:
Sub or function not defined

I podvuce
Code:
SumaKolone

Mislim da treba da ga definisem na vrhu forme samo ne znam kako :(
Zdravo
 
Odgovor na temu

[es] :: Visual Basic 6 :: Sabiranje iz baze

Strane: 1 2 3

[ Pregleda: 9074 | Odgovora: 49 ] > FB > Twit

Postavi temu Odgovori

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