Pretraga u Imeniku

Pretraga u Imeniku 20.03.2005. u 17:20 · pre 263 meseca #1

Napravio sam imenik i pokusavam napraviti polje za pretragu.
Treba da kad ukucam naprimer slovo A u polju text1 u
listu1 vuce iz baze ( Access) samo prezimena sa prvim slovom pocetnim slovom A

Potpis

Zdravo

Re: Pretraga u Imeniku 20.03.2005. u 18:44 · pre 263 meseca #2

Code:
Private Sub Text1_Change()
db.RecordSource = "SELECT * FROM [ime tabele] WHERE [ime polja gde je prezime] LIKE '' & Text1.Text & "*'"
db.Refresh
End Sub

Tako praviš rekordset koji sadrži samo prezimena koja počinju sa A.E sad ne znam kako si rešio prikazivanje u listi, niti da li si je povezao sa bazom, ali možeš je popuniti na sledeći način.

Code:
List1.Clear
Do Until db.Recordset.EOF
List1.AddItem db.Recordset.Fields("[ime polja gde je prezime]").Value
db.Recordset.MoveNext
Loop

Potpis

-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

Re: Pretraga u Imeniku 20.03.2005. u 22:49 · pre 263 meseca #3

Ovako sam List1 popunio

Code:
Private Sub List1_Click()
Command3.Enabled = True
Command2.Enabled = True
rsImenik.MoveFirst
While Not rsImenik!prezime & " " & rsImenik!Ime = List1.List(List1.ListIndex)
rsImenik.MoveNext
Wend
Ime = rsImenik!Ime
lblPrezime = rsImenik!prezime
Telefon = rsImenik!Telefon
lblAdresa = rsImenik!adresa
Mob = rsImenik!Mob
Fax = rsImenik!faks
List1.Clear
End Sub

Izvini ali ne znam kako da postulem
ceo suorse
tezak je 580 kb

Code:
Code:
List1.Clear
Do Until db.Recordset.EOF
List1.AddItem db.Recordset.Fields("[ime polja gde je prezime]").Value
db.Recordset.MoveNext
Loop

Probao sam ali ne vredi

Potpis

Zdravo

Re: Pretraga u Imeniku 21.03.2005. u 00:17 · pre 263 meseca #4

Ti tu nigde ne popunjavaš Listbox, već si obradio Click event na Listbox-u, a i nije mi jasno šta će ti na kraju List1.Clear kada klikneš na neki item.No, nebitno.Probaj sledeće, takle u change event TextBox-a, odradi onaj SQL koji sam napisao, doduše pogrešno, evo ispravke (umesto ovog db stavi varijablu kojom si definisao bazu):

Code:
Private Sub Text1_Change()
db.RecordSource = "SELECT * FROM rsImenik WHERE prezime LIKE '" & Text1.Text & "*'"
db.Refresh
List1.Clear
Do Until rsImenik.EOF
List1.AddItem rsImenik.Fields("prezime").Value & " " & rsImenik.Fields("ime").Value
rsImenik.MoveNext
Loop
End Sub

A tamo gde ti je List1_Click stavi

Code:
Private Sub List1_Click()
rsImenik.Find "prezime = '" & Mid(List1.Text, 1, InStr(1, List1.Text, " ")) & "'"
Ime = rsImenik!Ime
lblPrezime = rsImenik!prezime
Telefon = rsImenik!Telefon
lblAdresa = rsImenik!adresa
Mob = rsImenik!Mob
Fax = rsImenik!faks
End Sub
End Sub

Naravno, ovo može biti problem, ako imaš više ljudi sa istim prezimenom, jer će ti uvek izbacivati podatke od onog prvog.Rešenje može biti da ubaciš i polje ID, koje će biti jedinstveno za svakog u imeniku, pa da prema njemu pretražuješ.Pogledaj ovu temu
https://www.elitesecurity.org/...a-sa-istim-Imenom-i-prezimenom

Potpis

-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

Re: Pretraga u Imeniku 21.03.2005. u 01:58 · pre 263 meseca #5

Marko_L nisam te bas najbolje shvato
ali ako budes imao vremena da pogledas i da mi kazes gde je greska.
zakacio sam ga ovde
http://www.ptt.yu/korisnici/n/s/nsofft/Imenik.rar

Potpis

Zdravo

Re: Pretraga u Imeniku 23.03.2005. u 11:29 · pre 263 meseca #6

Ako sam te ja dobro razumeo tebi treba FILTER na sličan način
pošto sam koristio kod mene adodc1 kontrolu ide ovako

pošto sam to imao na text1_change event u datagridu mi je odma slijedilo i filtriranje svih unosa, kako sam kucao slova

Code:

adodc1.Recordset.Filter = "prezime" & " LIKE '" & Text1.Text & "*'"

Potpis

Pozdrav
GoGy

Re: Pretraga u Imeniku 23.03.2005. u 13:05 · pre 263 meseca #7

X-Cite
Hvala uspelo je tako

Potpis

Zdravo

Re: Pretraga u Imeniku 30.03.2005. u 01:34 · pre 262 meseca #8

Marko_L

Code:
Private Sub Text1_Change()
db.RecordSource = "SELECT * FROM rsImenik WHERE prezime LIKE '" & Text1.Text & "*'"
db.Refresh
List1.Clear
Do Until rsImenik.EOF
List1.AddItem rsImenik.Fields("prezime").Value & " " & rsImenik.Fields("ime").Value
rsImenik.MoveNext
Loop
End Sub

Pokusavam da search napravim sa ovim tvojim kodom ali uporno
mi prijavljuje gresku i obelezi
db u kodu kako da ispravim kod

Potpis

Zdravo

Re: Pretraga u Imeniku 30.03.2005. u 19:19 · pre 262 meseca #9

Zameni db sa imenom objekta koji predstavlja bazu, recimo Adodc1 (ukoliko ti je baza povezana sa njim, pošto kažeš da ti onaj kod os X-Cite-a radi, onda verovatno jeste).

Potpis

-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

Re: Pretraga u Imeniku 30.03.2005. u 19:35 · pre 262 meseca #10

Sve bi trebalo da bude ok sa SQL upitima. Koristis ADO, nadam se.... I naravno, ne zaboravljas da refreshujes ADO poslije upita...........Izgleda super... A je li mozda unknow command u properties za adodc..... ADO kontrola u tvom slučaju prilikom učitavanja obrasca treba da ima samo DSN specificiran nikako i ostatak......... Ostatak dolazi kasnije.......

Potpis

Sve najbolje zeli vam,
Mladen Perisic

Forum kao aplikacija na telefonu

Srodne teme