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...
ADO,DataGrid sabiranje
Zaključano
Zakačeno
A kako si to pokusao?
'vako
:D
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
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
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 ;)
Ocigledno negde drugde lezi zec ...
Mozda jedino da ne bi izbacivao gresku kada nema slogova u rekordsetu da ubacis proveru pre MoveFirst ;)
ovo je ceo kod...
U ovom slucaju kada je promenljiva "Stanje" definisana kao Integer izbacuje greshku "Overflow", a kada je stavim kao String ispisuje neke bzv brojeve.....
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
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.....
Pa stavi da je Single ili Double 
Ne pomaze.....evo sta izbacuje -1.0022801009005E+39 ;)
Pa za cega sluzi Format funkcija?
Code:
Label2.Caption = Format(Stanje, "###,##0.00")
Label2.Caption = Format(Stanje, "###,##0.00")
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?
Da li znas da je kolona sa indeksom 3 cetvrta po redu, tj. da li stvarno racunas sa kolonom sa kojom si i hteo?
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....
Pa koliko imas redova u tom Form1.Adodc2.Recordset-u?
Kako ti se zove polje koje sabiras?
Kako ti se zove polje koje sabiras?
redova u adodc2 ima 12,a polje koje sabira, se zove Cena
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
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
sve isto,samo sto vise nema minusa u rezultatu...
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
Uploaduj i bazu - naravno
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 ;)
Sorry sto sam te mucio ;)
Pa palo mi je i to na pamet da te pitam, ali si naveo:
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
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
da,ali to se racunalo kao tekst :D
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?
ma dobro,nemoj se ljutis,moja greshka nisi ti nishta kriv........naravno da znaju hehe