[ nsofft @ 20.03.2005. 16:20 ] @
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
[ Marko_L @ 20.03.2005. 17:44 ] @
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
[ nsofft @ 20.03.2005. 21:49 ] @
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
[ Marko_L @ 20.03.2005. 23:17 ] @
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
http://www.elitesecurity.org/t...a-sa-istim-Imenom-i-prezimenom
[ nsofft @ 21.03.2005. 00:58 ] @
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
[ X-Cite @ 23.03.2005. 10:29 ] @
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 & "*'"

[ nsofft @ 23.03.2005. 12:05 ] @
X-Cite
Hvala uspelo je tako
[ nsofft @ 30.03.2005. 00:34 ] @
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
[ Marko_L @ 30.03.2005. 18:19 ] @
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).
[ Mladen_Perisic @ 30.03.2005. 18:35 ] @
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.......