[es] - ADO,DataGrid sabiranje

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

ADO,DataGrid sabiranje

^{27.11.2007. u 22:19 - pre 199 meseci}

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...

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 11:44 - pre 199 meseci}

A kako si to pokusao?

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 13:38 - pre 199 meseci}

'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

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 13:55 - pre 199 meseci}

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 ;)

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:01 - pre 199 meseci}

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.....

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:03 - pre 199 meseci}

Pa stavi da je Single ili Double

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:07 - pre 199 meseci}

Ne pomaze.....evo sta izbacuje -1.0022801009005E+39 ;)

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:09 - pre 199 meseci}

Pa za cega sluzi Format funkcija?

Code:

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

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:13 - pre 199 meseci}

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?

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:15 - pre 199 meseci}

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....

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:18 - pre 199 meseci}

Pa koliko imas redova u tom Form1.Adodc2.Recordset-u?

Kako ti se zove polje koje sabiras?

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:22 - pre 199 meseci}

redova u adodc2 ima 12,a polje koje sabira, se zove Cena

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:24 - pre 199 meseci}

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

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:26 - pre 199 meseci}

sve isto,samo sto vise nema minusa u rezultatu...

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:29 - pre 199 meseci}

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

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:34 - pre 199 meseci}

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 ;)

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:37 - pre 199 meseci}

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

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:40 - pre 199 meseci}

da,ali to se racunalo kao tekst :D

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dialup.neobee.net.

+41 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:46 - pre 199 meseci}

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?

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

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

Sajt: www.vasictech.net

+1 Profil

Re: ADO,DataGrid sabiranje

^{28.11.2007. u 14:48 - pre 199 meseci}

ma dobro,nemoj se ljutis,moja greshka nisi ti nishta kriv........naravno da znaju hehe

Odgovor na temu