[ Vuki @ 18.09.2002. 00:22 ] @
Dva pitanja. Moze?

Koristim ADO, Access 2000 i ADODC kontrolu

1. Hocu da kad upisujem novi zapis proverim da li vec postoji takav zapis u bazi. Ja sam isao preko "for each field...." ali on mi proveri samo prvi ili poslednji zapis i tu stane. Ocito negde gresim.

2. Imam tekstualno polje i button. Kad kliknem na button zelim da mi iz baze prikaze u gridu sve zapise gde je npr. cena > text1.text. Probao sam sa funkcijama Val, Cstr, Trim ali nece da mi uzme podatak iz testualnog polja. Ako upisem direktno broj u kodu onda hoce. Probao i preko sql i preko filtera ali nece pa nece....
[ Simke @ 18.09.2002. 02:58 ] @
Ako sam dobro razumeo sta ti treba:

1) koristi DFirst funkciju i stavi return value u variant. Onda ako IsNull(variant) vrati true onda to sto unosis ne postoji u tabeli.

2) Pod pretpostavkom da koristis subform gde ces da prikazes rezultate, onda:
Napravi query koji ce kao parametar da uzima vrednost iz text box-a.
Taj qery onda stavi kao source za subform. Kad klinkes na dugme jedina stvar koju kod treba da uradi je Me!SubForm.Requery.

To je to. Nadam se da sam pomogao.
[ jc denton @ 18.09.2002. 03:02 ] @
Najbolje je da koristis .movefirst pa .movenext metodu, i snaci ces se vec.
Ovo drugo nisam najbolje razumeo, ajde pojasni malo.

Pozdrav
[ Simke @ 18.09.2002. 09:26 ] @
Da, moze i sa recordset-om .movefirst i onda loop .movenext... tako bi mozda bilo brze.
[ Vuki @ 19.09.2002. 10:49 ] @
Hvala momci!

Ovo prvo nisam siguran da sam razumeo Simke ali sad idem da probam.
Nije mi jasno kad da koristim DFirst? Ako mozes daj neki primer.
A ovo sa "move next" mozda i upali mislim da nisam pokusavao tako.

Ovo drugo sam resio
Evo ako nekog zanima:
PRIVATE SUB COMMAND1_CLICK
ADODC.RECORDSET.FILTER = "CENA >" & VAL(TEXT1.TEXT)
END SUB

Prosto ha
cena je naziv kolone u tabeli. Kad se setim koliko sam pokusavao a gresio sam samo u navodnicima

Javicu za ovo prvo sto sam uradio
Pozdrav
[ Simke @ 19.09.2002. 22:25 ] @
Ako sam shvatio za br 1, zelis da provers da li vec postoji informacija koju unosis u filed.

Recimo da imas textbox txtMyBox za koji zelis da radis proveru, onda

If IsNull(DFirst("[Neko polje koje nikad nije prazno]", "ImeTabele", "[Ime polja gde ide txtMyBbox] = " & Me!txtMyBox))

Ako to vec postoji u tabli, dobices false, ako ne postoji dobices trure.

Mada mislim da ce biti brze ako koristis recordset i .movenext.