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

ADO,DataGrid sabiranje

[es] :: Visual Basic 6 :: ADO,DataGrid sabiranje

Strane: 1 2

[ Pregleda: 889 | Odgovora: 27 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon ADO,DataGrid sabiranje27.11.2007. u 22:19

Kako mogu da napise da mi sabere sve vrednosti iz datagrid-a u 4 koloni i da mi to ispise i textbox,ja sam pokusao preko recordseta u adodc ali nije mi uspelo...
27.11.2007. u 22:19 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 11:44
A kako si to pokusao?
vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 11:44 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 13:38
'vako

Code:
Dim novi,prihodi As Integer
Adodc1.Recordset.MoveFirst
Do
novi = Adodc1.Recordset(3)
prihodi = prihodi + novi
Adodc1.Recordset.MoveNext
Loop Until Adodc1.Recordset.EOF


:D
28.11.2007. u 13:38 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 13:55
Pa kako ti nije uspelo, kada ti je skroz korektno resenje (mada ja bas ne simpatisem Do ... Loop Until strukturu)

Ocigledno negde drugde lezi zec ...

Mozda jedino da ne bi izbacivao gresku kada nema slogova u rekordsetu da ubacis proveru pre MoveFirst ;)
vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 13:55 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:01
ovo je ceo kod...

Code:
Private Sub Form_Load()
Dim tabela, tabelaa, rashodi, prihodi,Stanje As Integer
Form1.Adodc1.Recordset.MoveFirst
Do
tabela = Form1.Adodc1.Recordset(3)
prihodi = prihodi + tabela
Form1.Adodc1.Recordset.MoveNext
Loop Until Form1.Adodc1.Recordset.EOF

Form1.Adodc2.Recordset.MoveFirst
Do
tabelaa = Form1.Adodc2.Recordset(3)
rashodi = rashodi + tabelaa
Form1.Adodc2.Recordset.MoveNext
Loop Until Form1.Adodc2.Recordset.EOF


Stanje = prihodi - rashodi
Adodc1.Recordset.AddNew
Adodc1.Recordset(0) = Stanje
Adodc1.Recordset(1) = Date
Label2.Caption = Stanje
Label4.Caption = Date
End Sub


U ovom slucaju kada je promenljiva "Stanje" definisana kao Integer izbacuje greshku "Overflow", a kada je stavim kao String ispisuje neke bzv brojeve.....
28.11.2007. u 14:01 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:03
Pa stavi da je Single ili Double
vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 14:03 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:07
Ne pomaze.....evo sta izbacuje -1.0022801009005E+39 ;)
28.11.2007. u 14:07 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:09
Pa za cega sluzi Format funkcija?

Code:

Label2.Caption = Format(Stanje, "###,##0.00")

vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 14:09 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:13
Koje su ti vrednosti u toj koloni 3?

Da li znas da je kolona sa indeksom 3 cetvrta po redu, tj. da li stvarno racunas sa kolonom sa kojom si i hteo?


vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 14:13 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:15
nista se ne menja hehe....znam,4 kolona u datagrid-u je 3 u adodc,zato sto brojanje krece od 0 hehe...vrednosti su celi brojevi tipa 1000, 500, 100, 3500 i td....
28.11.2007. u 14:15 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:18
Pa koliko imas redova u tom Form1.Adodc2.Recordset-u?

Kako ti se zove polje koje sabiras?
vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 14:18 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:22
redova u adodc2 ima 12,a polje koje sabira, se zove Cena
28.11.2007. u 14:22 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:24
Pa onda probaj ovo (pisi polja po nazivu, a ne po rednom broju)
Code:

Private Sub Form_Load()
Dim tabela, tabelaa, rashodi, prihodi,Stanje As Double
Form1.Adodc1.Recordset.MoveFirst
Do
tabela = Form1.Adodc1.Recordset("Cena")
prihodi = prihodi + tabela
Form1.Adodc1.Recordset.MoveNext
Loop Until Form1.Adodc1.Recordset.EOF

Form1.Adodc2.Recordset.MoveFirst
Do
tabelaa = Form1.Adodc2.Recordset("Cena")
rashodi = rashodi + tabelaa
Form1.Adodc2.Recordset.MoveNext
Loop Until Form1.Adodc2.Recordset.EOF


Stanje = prihodi - rashodi
Adodc1.Recordset.AddNew
Adodc1.Recordset(0) = Stanje
Adodc1.Recordset(1) = Date
Label2.Caption = Stanje
Label4.Caption = Date
End Sub

vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 14:24 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:26
sve isto,samo sto vise nema minusa u rezultatu...
28.11.2007. u 14:26 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:29
Prijatelju, dosadilo mi vise da gledam u pasulj i pretpostavljam gde si zabrljao stvar, uploaduj projekat i bice ti reseno za minut, u suprotnom se obrati Vidovitoj Zorki i sl.

Uploaduj i bazu - naravno
vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 14:29 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:34
eeeee evo ga resio sam problem hehehe...........u pitanju je bilo sto je u bazi za tu kolonu bio format Text a ne Number :D

Sorry sto sam te mucio ;)
28.11.2007. u 14:34 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:37
Pa palo mi je i to na pamet da te pitam, ali si naveo:
Citat:
The_End_is_close:vrednosti su celi brojevi tipa 1000, 500, 100, 3500 i td....


Kao sto sam rekao vec vise puta: Prvo potrazite problem kod sebe, proverite da li ste nesto prevideli, a onda dodjite ovde i detaljno prezentujte svoj problem uz sto vise neophodnih informacija.

Odlika dobrih programera je da u slucaju bilo kakve greske problem prvo potraze kod sebe, tj. proverite prvo da niste vi nesto pogresili, a kad se uverite da niste idite dalje ... a ne "ja probao, ali mi nije uspelo, sta da radim?" kao sto je otvorena ova tema
vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 14:37 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:40
da,ali to se racunalo kao tekst :D
28.11.2007. u 14:40 

goranvuc
Goran Vucicevic
Novi Sad

Moderator
Član broj: 4934
Poruke: 1635
*.dialup.neobee.net.

Sajt: www.clickersoftware.com


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:46
Pa ako si hteo da racunas sa tim, sto si uopste stavio da je textualnog tipa u bazi? Ako kazes da su vrednosti celi brojevi, ja ti verujem na rec, nisam znao da nisi siguran cemu sluze tipovi podataka i kako se koriste, ali dobro - trebao sam to da znam, moderatori sve znaju, zar ne?
vidi GoranVucicevic #28045

www.clickersoftware.com
28.11.2007. u 14:46 

Aleksandar Vasic
Čačak

Član broj: 91692
Poruke: 545
*.dynamic.sbb.co.yu.

Jabber: aleksandar.vasic@elitesecurity.org
Sajt: www.cakucica.net


Profil

icon Re: ADO,DataGrid sabiranje28.11.2007. u 14:48
ma dobro,nemoj se ljutis,moja greshka nisi ti nishta kriv........naravno da znaju hehe
28.11.2007. u 14:48 

[es] :: Visual Basic 6 :: ADO,DataGrid sabiranje

Strane: 1 2

[ Pregleda: 889 | Odgovora: 27 ]

Postavi temu Odgovori

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