[es] - index out of bounds vb6 listview

miki987

Član broj: 208123
Poruke: 511
91.228.253.*

+5 Profil

^{08.05.2014. u 17:15 - pre 121 meseci}

Molim vas za pomoc u vezi problema, ne znam gde gresim!!!

Code:
Dim SQL As String
    openconn
    SQL = "SELECT * FROM klijenti WHERE reg='" & txtReg2.Text & "';"
    Set rs = conn.Execute(SQL)
    If rs.EOF Then
    closeconn
    Exit Sub
    End If
    Do Until rs.EOF

    ListView.SelectedItem.ListSubItems(14) = rs("status_reklamacije") ' kad postavim ListSubItems(13) radi

    rs.MoveNext
    Loop
    closeconn

kao da je limitiran na 13 polja!!!

greska : index out of bounds

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.

+41 Profil

Re: index out of bounds vb6 listview

^{08.05.2014. u 18:24 - pre 121 meseci}

Citat:

miki987:
kao da je limitiran na 13 polja!!!

greska : index out of bounds

Pitanje #1: Da li imas uopste 14 kolona u ListView kontroli (moras ih kreirati ili u design modu, ili ih dodati kroz kod)
Pitanje #2: Sta ti uopste ovim zelis da postignes, koliko vidim trcis u petlji kroz rekordset i za trenutno selektovanu stavku listview-a upisujes vrednosti iz petlje!?]\@$

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
91.228.253.*

+5 Profil

Re: index out of bounds vb6 listview

^{09.05.2014. u 07:21 - pre 121 meseci}

goranvuc Hvala sto si se javio, prilicno mi je hitno...
Mozda necu bas strucnom terminologijom ali poenta je sledeca, da na osnovu vec ucitanih podataka (u listview iz .mdb baze) pozovem druge podatke iz druge tablice, bas kao sto si napisao, ali se problem javlja kod ucitavanja poodataka u listview sve preko 13 kolona
Sto se tice kolona,prvo sto sam proverio jeste to cak sam i dodao i imam ih 20 ukupno

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: index out of bounds vb6 listview

^{09.05.2014. u 07:58 - pre 121 meseci}

Nisam odavno video sesticu ali i bez toga, ovaj kod malo deluje neobicno :)
Ti za svaki red iz baze postavljas jednom istom redu u listi, u cetrnaestoj koloni vrenost iz baze. To nema mnogo smisla, jer bi (cak i da radi) na kraju zavrsio kao da si koristio samo poslednji red iz baze. Stalno prepisujes jedno isto polje u ListView-u.

Da ti se mozda ne promeni SelectedItem iz nekog razloga tokom rada? Probaj da u debug modu vidis koliko ima kolona taj selected item kada dodje do greske.

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
*.dynamic.sbb.rs.

+41 Profil

Re: index out of bounds vb6 listview

^{09.05.2014. u 08:18 - pre 121 meseci}

Hajde uploaduj samo formu (frm i frx fajl) ne moras ceo projekat da vidim o cemu se radi...

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
91.228.253.*

+5 Profil

Re: index out of bounds vb6 listview

^{09.05.2014. u 09:04 - pre 121 meseci}

evo u prilogu saljem projekat
raspakujte na Dekstop i izmenite putannju do baze u okviru folder app\path

Prikačeni fajlovi

test.rar - 184.65k

Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
*.dynamic.sbb.rs.

+41 Profil

Re: index out of bounds vb6 listview

^{09.05.2014. u 11:16 - pre 121 meseci}

Prijatelju,

Zuris, zuris, a resenje ti pred nosom, umesto ListSubItems ide samo SubItems, najveci "fazon" je da si u proceduri punjenja liste ispravno napisao, evo deo koji treba da ispravis:

Code:

Do Until rs.EOF

      ListView.SelectedItem.SubItems(2) = rs("test1")
      txtImePrezime.Text = ListView.SelectedItem.SubItems(2)

      ListView.SelectedItem.SubItems(3) = rs("test2")
      txtImePrezime.Text = ListView.SelectedItem.SubItems(2)

      ListView.SelectedItem.SubItems(14) = rs("test2")
      txtImePrezime.Text = ListView.SelectedItem.SubItems(2)

      rs.MoveNext
Loop

Pozz!

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
91.228.253.*

+5 Profil

Re: index out of bounds vb6 listview

^{09.05.2014. u 11:46 - pre 121 meseci}

Neverovatno!!! :))) Hvala puno problem resen

i ako moze jedno podpitanje, kako da napunim textbox direktno iz baze, bez da prikazzem u listview kontrolu

ja radim ovako preko recordset

Code:
troskovi.txt = Format(rs.Fields.Item(1), "0.00") + " RSD"

ali imam problem kada zelim da filtriram i prikazem samo pojedine upise po upitu

Code:
SQL = "SELECT * FROM reklamacije WHERE broj_dk='" & pretraga.txt & "';"

jel moze ovako? ako moze onda ne radi izbacuje gresku Data type mismatch in criteria expression

a ovako

Code:
SQL = "SELECT * FROM reklamacije WHERE broj_dk;"

ne dobijam trazeno

inace broj_dk mi je primary key u bazi

_{[Ovu poruku je menjao miki987 dana 09.05.2014. u 13:17 GMT+1]}

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
91.228.253.*

+5 Profil

Re: index out of bounds vb6 listview

^{09.05.2014. u 12:34 - pre 121 meseci}

Probelm resene > ubacio sam ID Auto Number, polje broj_dk postavio na drugu poziciju i stavio da bude text a ne number (iako su tu inace samo brojevi)
HVala jos jednom

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
91.228.253.*

+5 Profil

Re: index out of bounds vb6 listview

^{09.05.2014. u 12:37 - pre 121 meseci}

Probelm resene > ubacio sam ID Auto Number, polje broj_dk postavio na drugu poziciju i stavio da bude text a ne number (iako su tu inace samo brojevi)
HVala jos jednom

Odgovor na temu