Objanite kod - Like '% - i jos ponesto

Objanite kod - Like '%" - i jos ponesto 17.01.2008. u 01:53 · pre 228 meseci #1

Da li neko zna kako se moze pristupiti jednoj data kontroli sa razlicitih formi?
Odnosno kako da bude globalna vrednost?
Jel nesto tipa, u nekom modulu:
public data1
ili
public data1.database??

Code:

Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset

CN.Open conn
RS.Open "Select PubID,[Company Name] From Publishers Where [Company Name] Like '%" & Text1.Text & "%'", CN

If Not RS.EOF Then

u prethodnom kodu sta znaci ono like '%"?
Da li se to koristi ako prilikom pretrage zelimo da nadjemo sve vrednosti koje pocinju sa "text1.text"?
Ako sam u pravu ono gore pod znacima navoda je sql, da li moze na takav nacin da se vrsi pretraga DAO baze?

unapred hvala

Re: Objanite kod - Like '%" - i jos ponesto 17.01.2008. u 09:40 · pre 228 meseci #2

LIKE:

znaci da trazi frazu koja pocinje sa unesenim tekstom u Textbox1.text,

DAO ti je vrsta konekcije na bazu i koristi, naravno, SQL kao i ostale konekcije pa stoga mozes da koristis isti kod.

Re: Objanite kod - Like '%" - i jos ponesto 17.01.2008. u 16:33 · pre 228 meseci #3

Ljudi, ajde ako već dajete odgovore, potrudite se da budu potpuni i tačni... LIKE ne znači da se traži tekst koji počinje nekim tekstom, već da se traži po nekom šablonu korišćenjem wild-card karaktera (znam da znaš ovo Pero, ali može da deluje zbunjujuće za druge, pogotovo ako su početnici). Dakle, u konkretnom slučaju LIKE će dati sve vrednosti koje SADRŽE Text1.Text jer imamo wildchar % i ispred i iza teksta. Inače wildchar % u ADO je isto što i wildchar * u DAO, što znači da daje bilo koji niz. Dakle

Code:
LIKE '%a%' - vraća sve vrednosti koje sadrže slovo a bilo gde
LIKE 'a%' - ovo vraća sve vrednosti koje počinju slovom a
LIKE '%a' - ovo vraća sve vrednosti koje se završavaju slovom a
LIKE 'a' - ovo je isto kao da si napisao "='a'

što znači da korišćenje like bez wildchara i nema nekog smisla.
Takođe možeš koristi wildchar _ koje zamenjuje tačno jedan karakter znači ovako

Code:
LIKE '_omir' - i ako imaš u bazi ime Momir dobićeš ga, ali ne i recimo Ratomir
LIKE '%omir' - dok će ovo vratiti i Momir i Ratomir

ekvivalent _ u DAO jeste wildchar ?
Takođe, DAO se baš ne može nazvati vrstom konekcije. DAO je objekat preko koga se povezuješ na bazu.

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: Objanite kod - Like '%" - i jos ponesto 17.01.2008. u 20:09 · pre 228 meseci #4

Slazem se u potpunosti se tobom osim u tome da pocetnicima netreba toliko opisa, i trazio je samo neke odgovore. Formulacija pitanja trazi isto formulisane odgovore zato sam tako napisao, ali neka mu i to da vidi, valjda ce se udostojiti odgovoriti nesto na to..... :)

Re: Objanite kod - Like '%" - i jos ponesto 17.01.2008. u 22:39 · pre 228 meseci #5

Nemojte se plasiti da stavite puno opisa, razumecu :-)

Vrlo je moguce da pitanja formulisem neodgovarajuce i nezgrapno. Nisam znao ono za wild-card karaktere i kako se koriste.
Bitno je da sad znam. Hvala vam obojici.

Re: Objanite kod - Like '%" - i jos ponesto 18.01.2008. u 23:22 · pre 228 meseci #6

Da li moze da se napravi nekako for petlja koja ce popuniti listview sa podacima iz baze.
moj problem je u tome sto ne mogu for petljom da menjam i dimenzionisem ListItem (jel to uopste moze da se izvede?!?)

Code:

Dim Y As Integer
'Dim listitem1 As ListItem
For Y = 1 To Data1.Recordset.RecordCount

'Dim listitem1 As ListItem
'Set listitem1 = ListView1.ListItems.Add()
'listitem1.Text = "Item 1"

'Dim listitem2 As ListItem
'Set listitem2 = ListView1.ListItems.Add()
'listitem2.Text = "Item 2"

Dim listitem1 As ListItem
Set listitem1 = ListView1.ListItems.Add()
listitem1.Text = Data1.Recordset.Fields("broj_indeksa").Value
ListView1.ListItems(1).ListSubItems.Add , , Data1.Recordset.Fields("ime").Value
ListView1.ListItems(1).ListSubItems.Add , , Data1.Recordset.Fields("prezime").Value
ListView1.ListItems(1).ListSubItems.Add , , Data1.Recordset.Fields("ocena").Value
ListView1.ListItems(1).ListSubItems.Add , , Data1.Recordset.Fields("smer").Value
Next Y

kako bi trebalo da se uradi popunjavanje listview-a iz baze, recimo prilikom form load-a?

Re: Objanite kod - Like '%" - i jos ponesto 18.01.2008. u 23:58 · pre 228 meseci #7

probaj ovako:

Code:

Data1.Recordset.MoveFirst

While Not Data1.Recordset.EOF

    ListView1.ListItems.Add(Data1.Recordset.Fields("broj_indeksa").Value)
    ListView1.ListItems(1).ListSubItems.Add , , Data1.Recordset.Fields("ime").Value
    ListView1.ListItems(1).ListSubItems.Add , , Data1.Recordset.Fields("prezime").Value
    ListView1.ListItems(1).ListSubItems.Add , , Data1.Recordset.Fields("ocena").Value
    ListView1.ListItems(1).ListSubItems.Add , , Data1.Recordset.Fields("smer").Value

    Data1.Recordset.MoveNext

Wend

p.s. ubuduce koristi code tagove kada postujes kod

Potpis

rafforum.rs - Forum Računarskog Fakulteta

Re: Objanite kod - Like '%" - i jos ponesto 19.01.2008. u 00:50 · pre 228 meseci #8

Pa da! Tako lepo i jednostavno. Ne znam zasto sam mislio da je neophodno da dim-ujem listitem.
Hvala

P.S.: setio sam se zasto sam hteo da dimenzionisem, i sad dobijam istu poruku:
Run-time error '35600'
Index out of bounds

Videcu sta pise u msdn-u o ovome

Forum kao aplikacija na telefonu

Srodne teme