index out of bounds vb6 listview

[ miki987 @ 08.05.2014. 17:15 ] @

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

[ goranvuc @ 08.05.2014. 18:24 ] @

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!?]\@$

[ miki987 @ 09.05.2014. 07:21 ] @

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

[ Shadowed @ 09.05.2014. 07:58 ] @

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.

[ goranvuc @ 09.05.2014. 08:18 ] @

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

[ miki987 @ 09.05.2014. 09:04 ] @

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

[ goranvuc @ 09.05.2014. 11:16 ] @

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!

[ miki987 @ 09.05.2014. 11:46 ] @

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]}

[ miki987 @ 09.05.2014. 12:34 ] @

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

[ miki987 @ 09.05.2014. 12:37 ] @

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