pretraga record set-a

[ Sloba96 @ 08.06.2009. 17:58 ] @

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....

[ Aleksandar Vasic @ 08.06.2009. 18:20 ] @

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

[ Sloba96 @ 08.06.2009. 21:05 ] @

hvala radi....

[ stefanpn @ 09.06.2009. 02:45 ] @

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

[ Sloba96 @ 09.06.2009. 17:29 ] @

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

[ Marko_L @ 09.06.2009. 17:49 ] @

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

[ Sloba96 @ 09.06.2009. 20:14 ] @

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

[ Marko_L @ 09.06.2009. 20:30 ] @

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"

[ Sloba96 @ 09.06.2009. 21:02 ] @

hvala za pomoc......