[es] - ProgressBar i ucitavanje podataka

zormar

Član broj: 129240
Poruke: 176
212.200.223.*

Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 13:49 - pre 209 meseci}

Da, na pocetku je bilo Option Explicit.
Sad kad sam to izbrisao vise ne prijavljuje gresku, prikazuje mi Form4, ali u labelama ne ispisuje sume vec nule.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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

+41 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 13:56 - pre 209 meseci}

Option Explicit treba da ostavis, to sluzi da te VB obavesti kad zaboravis da deklarises neku promenljivu. Na osnovu ovoga sto si sad naveo izgleda mi kao da si zaboravio u ovoj proceduri koja ti pravi problem da napunis niz varKriterijumi, tj. kao da si zaboravio ovu liniju koda:

Code:

varKriterijumi = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
212.200.223.*

Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 14:02 - pre 209 meseci}

Ne, nisam je zaboravio, upisana je.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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

+41 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 14:07 - pre 209 meseci}

Sve sto je moglo da prouzrokuje problem sam te pitao, jedino da te opet zamolim da uploadujes projekat, zajedno sa tom tvojom bazom da bi mogao u test rezimu da vidim sta se desava, lici mi na neki banalan previd, a ovo sto si stavio od koda ocigledno nije dovoljno da otkrijemo problem, tj. problem je u nekom modulu koji nam nisi dao na uvid.

Ako neces da javno objavljujes projekat, posalji mi na mail, pa cu ti resiti problem.

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 14:21 - pre 209 meseci}

Probaj da zamenis For intCounter = 0 To UBound(varKriterijumi) sa For intCounter = 0 To UBound(varKriterijumi) - 1.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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

+41 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 14:24 - pre 209 meseci}

@Shadowed, poenta je da mu radi procedura za sve clanove niza, a ne da preskace poslednjeg clana. Mozda mu nece javljati gresku, ali nije to problem ovde.

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
212.200.223.*

Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 15:29 - pre 209 meseci}

I dalje izbacuje poruku Error 9

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12851

+4784 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 16:21 - pre 209 meseci}

Ma, ja se vise i ne secam kako tacno 6ica radi sa indeksima. Em su se namenjali toga kasnije em na raznim mestima se srecu razni nacini indeksiranja. zato sam mu rekao da proba pa bi se videlo da li je to u pitanju.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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

+41 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 17:23 - pre 209 meseci}

A koji deo koda u liniji gde javlja gresku ti debugger markira, kada odes na debug mode? Mislim na momenat kada ti VB javi gresku, pa ti onda kazes OK, pa onda VB obelezi deo programskog koda koji je problem - da opet malo banalizujem.

Ovo je bitno, jer ako ti obelezi Form4 onda je tamo problem, a ne ovde.

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
212.200.223.*

Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 17:56 - pre 209 meseci}

Obelezi ovu liniju

Code:
Form4.Controls("Label" & (intCounter + 1)).Caption = Broj(varKriterijumi(intCounter))

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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

+41 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 17:57 - pre 209 meseci}

Obelezi ceo red (markira drugom bojom)?

Hajde molim te, kopiraj kompletan kod sa forme na kojoj se javlja ova greska i stavi ga ovde (kad vec neces ni da uploadujes, ni da saljes), ali odmah, jer nemam posle vremena.

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
212.200.223.*

Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 17:58 - pre 209 meseci}

Da, ceo red zazuti

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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

+41 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 18:04 - pre 209 meseci}

Mogli smo ovo jos juce da resimo, ti kao da neces da ti se pomogne ;)

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
212.200.223.*

Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 18:16 - pre 209 meseci}

Iz prethodne tvoje poruke mi je bila prikazan samo prvi red, pa sam ti zato tako odgovorio.
Sto se tice koda stvarno je prevelik, videcu kad malo sredim da ti posaljem.

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

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

+41 Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 19:37 - pre 209 meseci}

OK, nisi morao da sredjujes nista, nismo na izlozbi

Pozdrav!

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
212.200.223.*

Profil

Re: ProgressBar i ucitavanje podataka

^{28.02.2007. u 22:11 - pre 209 meseci}

@goranvuc
Covece veruj mi da imam veliku zelju da ovaj program napravim. Verovatno od te prevelike zelje ne mogu u celini ni da ga uploadujem niti da ga posaljem.
Ovo sada nije nikakva isprika, posto sam naveo pravi razlog ako ga prihvatas, ali racunar mi je skroz poludeo poceo ja da brlja.
Interesuje me da li si mi slao neku privatnu poruku posto imam 2 registrovane, istog sadrzaja kao i tvoji odgovori na forumu.
Pojavio mi se i neki trojanac, pa mislim da je to uzrok svih ovih problema (ISAM, Error 9).
Resio sam da formatiram hard disk pa onda da vidim sta ce biti.

Odgovor na temu

zormar

Član broj: 129240
Poruke: 176
*.adsl.sezampro.yu.

Profil

Re: ProgressBar i ucitavanje podataka

^{03.03.2007. u 21:37 - pre 209 meseci}

@goranvuc
Samo da te obavestim da sam resio problem. Greska je bila u deklarisnju promenljive, tako da je sada ista promenljiva i u proceduri i u modulu.
Sad ovo radi ispravno.

Code:
Private Sub cmdPoBrojevima_Click()
Dim dblKriterijum    <---------------------- umesto varKriterijumi
Dim intCounter As Integer

dblKriterijum = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25)

For intCounter = 0 To UBound(dblKriterijum)
    DoEvents
    Form4.Controls("Label" & (intCounter + 1)).Caption = Broj(dblKriterijum(intCounter))
Next

Form4.Show ' ovde se nalaze labele u koje se upisuju sume

Adodc1.Refresh
MSHFlexGrid1.ColAlignment = flexAlignCenterCenter
End Sub

ovo se nalazi u modulu

Code:

Function Broj(ByVal dblKriterijum As Double) As Double
Dim dblSuma As Double

dblSuma = 0

If Form2.Adodc1.Recordset.RecordCount > 0 Then Form2.Adodc1.Recordset.MoveFirst
Do While Not Form2.Adodc1.Recordset.EOF

    If Form2.Adodc1.Recordset("GOD") = dblKriterijum Then
      dblSuma = dblSuma + 1
    End If

Form2.Adodc1.Recordset.MoveNext
Loop
Broj = dblSuma

End Function

Po ko zna koji put se zahvaljujem na pomoci i izvinjavam za ovu silnu prepisku.
Nadam se da ces mi opet pomoci ako (kad) nesto zatreba.
pozdrav

Odgovor na temu