Dobijanje podataka pomocu ListBoxa

Dobijanje podataka pomocu ListBoxa 12.01.2007. u 11:55 · pre 240 meseci #1

Ukratko,
> veza s bazom je preko ADO kontrole. Na jednoj formi imam ListBox -
> vrednost se krece od 1 do 50.
> Potrebno je da iz baze izvucem podatke koji su na rednom broju koji je
> postavljen na ListBoxu. Dobijene podatke trebe da prikazem na drugoj formi.
> Da li neko moze da mi pomogne da resim problem.
> Pokusao sam ovako ali ne ide
>
> rsRecordSet.Source = "Select * From SVEUKUPNO where RB = list1 order by RB"

Re: Dobijanje podataka pomocu ListBoxa 12.01.2007. u 16:11 · pre 240 meseci #2

Code:

Private Sub Form_Load()

        Dim x As Integer

        For x = 1 To 50
            List1.AddItem x
        Next

        Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DBQ=" & App.Path & "\db1.mdb;DefaultDir=" & App.Path _& " ;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
        Adodc1.RecordSource = "Tabela1"
        Adodc1.Refresh

End Sub

Private Sub List1_Click()

        Adodc1.Recordset.MoveFirst
        Adodc1.Recordset.Find Adodc1.Recordset.Fields(0).Name & "='" & List1.ListIndex + _1 & "'"

        Form2.Label1.Caption = Adodc1.Recordset.Fields(1).Value

        Load Form2
        Form2.Show

End Sub

Moras napraviti bazu sa dve kolone.U prvu kolonu stavi redne brojeve od 1-50, a drugu popunis sa odgovarajucim podacima. Ja sam bazu nazvao "db1", a tabelu "Tabela1" (sto se iz prilozenog moze i videti).

_{[Ovu poruku je menjao krckoorascic dana 14.01.2007. u 21:53 GMT+1]}

Re: Dobijanje podataka pomocu ListBoxa 12.01.2007. u 20:15 · pre 240 meseci #3

Promenio sam odgovarajuce nazive ali mi izbacuje poruku o gresci
Run-time error 91:
Object variable or With block variable not set
a odnosi se na Adodc1.Recordset
Ne znam kako ovo da resim.

Re: Dobijanje podataka pomocu ListBoxa 12.01.2007. u 22:04 · pre 240 meseci #4

Da bih shvatio gde pravis gresku, moras biti precizniji. Navedi tacno na kom je mestu u listingu.

Re: Dobijanje podataka pomocu ListBoxa 12.01.2007. u 22:10 · pre 240 meseci #5

Kad u listboxu potvrdim bilo koju vrednost prikaze mi samo praznu Form2 i poruku koja se odnosi na Adodc1.Recordset.MoveFirst

Re: Dobijanje podataka pomocu ListBoxa 12.01.2007. u 23:40 · pre 240 meseci #6

Proveri da li si dobro kopirao: "Adodc1.Refresh"

Re: Dobijanje podataka pomocu ListBoxa 13.01.2007. u 15:28 · pre 240 meseci #7

Da, tu je bio problem, greskom sam obrisao.
Imam jos jedno pitanje. U bazi imam vise zapisa pod istim rednim brojem, ali pod razlicitim datumima.
Kako na Form2 mogu da dobijem sve podatke koji su pod istim RB pomocu ListBoxa?

Re: Dobijanje podataka pomocu ListBoxa 13.01.2007. u 16:50 · pre 240 meseci #8

Obzirom da ne znam sta konkretno hoces da napravis, mogu da ti predlozim da promenis kôd u dogadjaju "List1_Click()" gde ce biti ispisani svi podaci iz svih kolona pod istim RB :

Code:

Private Sub List1_Click()

        Dim a As Integer

        Adodc1.Recordset.MoveFirst
        Adodc1.Recordset.Find Adodc1.Recordset.Fields(0).Name & "='" & List1.ListIndex + 1 & "'"

        a = 1

        Do Until a = Adodc1.Recordset.Fields.Count
            Form2.Label1.Caption = Form2.Label1.Caption & "   " & Adodc1.Recordset.Fields(a).Value
            a = a + 1
        Loop

        Load Form2
        Form2.Show

End Sub

_{[Ovu poruku je menjao krckoorascic dana 14.01.2007. u 21:53 GMT+1]}

Re: Dobijanje podataka pomocu ListBoxa 13.01.2007. u 18:14 · pre 240 meseci #9

U ovom kodu koji si napisao Adodc1.Recordset.MoveFirst mi prikazuje samo prvi zapis pod tim RB.
Ako umesto MoveFirst stavim MoveNext onda dobijem svaki zapis pod tim RB ,s tim sto svaki put moram u listboxu da potvrdim taj RB.
Meni je potrebno da jednim odabirom RB iz ListBoxa dobijem sve te zapise odjednom na Form2.
Da li je za ovo potrebno vise labela?

Moze li ovo da se uradi na neki drugi nacin?
Da li na Form2 umesto labela moze da bude DataGrid, ili da se podaci ispisuju direktno na formi?

_{[Ovu poruku je menjao zormar dana 13.01.2007. u 19:29 GMT+1]}

Re: Dobijanje podataka pomocu ListBoxa 14.01.2007. u 11:51 · pre 240 meseci #10

Po ovome sto si napisao, cini mi se da nisi shvatio sustinu mog programa, a ona glasi:
U bazi(Access) se nalaze dve ili vise kolona. Prva sadrzi redne brojeve i definisan primarni kljuc. U ostalima se nalaze podaci koje treba prikazati. Obzirom da si naveo, da podaci treba da budu prikazani u obrascu 2 (Form2), izabrao sam "Form2.Label1" kao moguc nacin za prikazivanje. U ListBoxu su ubaceni redni brojevi koji pokazuju red(record) u bazi i klikom na odredjen redni broj, podaci u tom redu (recordu) bivaju prikazani. Program je sigurno funkcionalan za ono sto sam naveo i zato nemas potrebe da ubacujes "MoveNext" . Nadam se da ce ti ovo objasnjenje biti dovoljno.

Re: Dobijanje podataka pomocu ListBoxa 14.01.2007. u 14:44 · pre 240 meseci #11

Da, to je u redu, ali kako mogu dobiti sve podatke pod nekim RB odjednom?

Re: Dobijanje podataka pomocu ListBoxa 14.01.2007. u 18:58 · pre 240 meseci #12

Dopunio sam tekstom ovaj potprogram gde ces videti da se svi podaci prikazuju u "Form2.Label1"!

Code:

Private Sub List1_Click()

        Dim a As Integer

        Adodc1.Recordset.MoveFirst ' Postavi se na prvi red u bazi
        Adodc1.Recordset.Find Adodc1.Recordset.Fields(0).Name & "='" & List1.ListIndex + 1 & "'" ' Pronadji u prvoj koloni ("Recordset.Fields(0)" gde se nalaze redni brojevi) podatak na koji sam kliknuo u List Boxu i time se pozicioniraj na pronadjeni red

        a = 1

        Do Until a = Adodc1.Recordset.Fields.Count ' Idi u petlju sve dok ima kolona
            Form2.Label1.Caption = Form2.Label1.Caption & "   " & Adodc1.Recordset.Fields(a).Value ' "Label1" dodaj sadrzaj polja (Recordset.Fields(a))
            a = a + 1 ' prelazak na sledecu kolonu
        Loop

        Load Form2
        Form2.Show

End Sub

_{[Ovu poruku je menjao krckoorascic dana 14.01.2007. u 21:52 GMT+1]}

Re: Dobijanje podataka pomocu ListBoxa 14.01.2007. u 20:55 · pre 240 meseci #13

@dennycd2: ubuduce koristi code tagove kada postujes neki kod (da bi bilo citljivije)

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Dobijanje podataka pomocu ListBoxa 14.01.2007. u 22:09 · pre 240 meseci #14

U redu!

Re: Dobijanje podataka pomocu ListBoxa 14.01.2007. u 22:39 · pre 240 meseci #15

Ne vredi dalje da se mucimo, ovo ne ide pa ne ide. Problem je i dalje isti, kad god u listboxu odaberem RB i dalje na Form2 dobijam 1 po 1 zapis iz baze koje zapisuje jedan pored drugog, a ne sve pod istim RB odjednom.
Uradicu ga preko DataGrida.
Ovo sto si uradio dobro ce doci za nesto drugo.
Zahvaljujem ti na strpljenju.
pozdrav

Srodne teme