[es] - pretraga record set-a

Sloba96
Slobodan Mirkovic
Negotin

Član broj: 191370
Poruke: 69
213.244.208.*

Profil

^{08.06.2009. u 17:58 - pre 181 meseci}

napravio sam program u vb6 da otvara bazu i menja vrednosti ali ne znam kako a napravim pretragu.
evo okacio sam sta sam napravio pa ako neko zna kako da na pravim pretragu neka mi pokaze....

Prikačeni fajlovi

proba.rar - 2.36k

Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net

+1 Profil

Re: pretraga record set-a

^{08.06.2009. u 18:20 - pre 181 meseci}

nisam testirao ali trebalo bi da je ovako

Code:
Data1.Recordset.MoveFirst
Do
If Data1.Recordset.EOF Then
'kod koji se izvrsava ukoliko dodje do kraja baze a ne nadje nista
Exit Sub
End If
Data1.Recordset.MoveNext
Loop Until Data1.Recordset("Ime kolone") = txtFind.Text
'ovde pises kod koji hoces da ti se izvrsi kada pronadje

Odgovor na temu

Sloba96
Slobodan Mirkovic
Negotin

Član broj: 191370
Poruke: 69
194.106.187.*

Profil

Re: pretraga record set-a

^{08.06.2009. u 21:05 - pre 181 meseci}

hvala radi....

Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
79.101.76.*

+1 Profil

Re: pretraga record set-a

^{09.06.2009. u 02:45 - pre 181 meseci}

Nema potrebe za tim, DAO vec je ugradjen mehanizam za pretragu.

Probaj:

Code:

Data1.Recordset.FindFirst "[kriterijum]"

za prvi zapis u RecordSet-u

ili za svaki sledeci:

Code:

Data1.Recordset.FindNext "[kriterijum]"

Ili pri otvaranju RecordSet-a:

koristi SQL upit sa WHERE statement-om.

ili Data1.Recordset.Seek("Kriterijum", Key1, [Key2], [Key3], [Key4], [Key5], [Key6], [Key7], [Key8], [Key9], [Key10], [Key11], [Key12], [Key13])

Odgovor na temu

Sloba96
Slobodan Mirkovic
Negotin

Član broj: 191370
Poruke: 69
194.106.187.*

Profil

Re: pretraga record set-a

^{09.06.2009. u 17:29 - pre 181 meseci}

e probao sam ovaj tvoj kod

Code:
Data1.Recordset.FindFirst "[kriterijum]"

i ovaj

Code:
Data1.Recordset.FindNext "[kriterijum]"

ali mi nesto ne radi...
pa ako hoces isprobaj da vidis da li radi kod tebe pa mi javi

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pretraga record set-a

^{09.06.2009. u 17:49 - pre 181 meseci}

Šta si stavio kao kriterijum i šta tačno ne radi ?

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

Sloba96
Slobodan Mirkovic
Negotin

Član broj: 191370
Poruke: 69
194.106.187.*

Profil

Re: pretraga record set-a

^{09.06.2009. u 20:14 - pre 181 meseci}

pa u kriterijum sam stavio txtFind.Text a i probao sam da ukucam i tacan naziv npr. Casa

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.dynamic.sbb.rs.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: pretraga record set-a

^{09.06.2009. u 20:30 - pre 181 meseci}

Kriterijum mora da bude u formatu Ime_Polja = 'Casa'. Znači, ako imaš polje Artikl, sintaksa treba da izgleda ovako

Code:
Data1.Recordset.FindFirst "Artikl = 'Casa'"

ili ako hoćeš da koristiš ono što je upisano u textboxu, onda

Code:
Data1.Recordset.FindFirst "Artikl = '" & txtFind.Text & "'"

Naravno, možeš da koristiš i druge operatore... Na primer, ako imaš polje Cena i hoćeš da listaš artikle skuplje od 100 dinara onda možeš ovako

Code:
Data1.Recordset.FindFirst "Cena > 100"

a onda, ideš dalje sa

Code:
Data1.Recordset.FindNext "Cena > 100"

Odgovor na temu

Sloba96
Slobodan Mirkovic
Negotin

Član broj: 191370
Poruke: 69
194.106.187.*

Profil

Re: pretraga record set-a

^{09.06.2009. u 21:02 - pre 181 meseci}

hvala za pomoc......

Odgovor na temu