Gjoreski | 29.06.2013 19:27 |
---|---|
Predmet:Dlookup vo VB Pozdrav do site forumdzii. Eve veke nekoe vreme ne sum aktiven na forumov pa zatoa malku da se aktiviram. Rabotam edna aplikacija vo VB studio e sega dodeka rabotev vo MS ACCESS dosta cesto gi koristev funkciite Dlookup Dmax Dmin DFirst DLast DSum DCount i taka no vo VB studiovo nema takvi funkcii pa pocnav sam da gi pravam Pocnav so funkcijata Dlookup koja najmnogu ja koristam bidejki vo mnogu slucai mi e potreben samo eden podatok . Sega mi treba od vas poiskusnite vo vb da mi dadete nekoi soveti i da mi pomognete da ja napravam funkcijata identicna so onaa vo MS ACCESSOT Eve ja Funkcijata: PreuzmiIzvorni kôd (Visual Basic):
sega kade zastanav Kako da napravam vo funkcijava da ako ne vnesam uslov samata funkcija da prepoznava dali ima uslov ili nema toa e ova Optional ByVal Uslov As Variant sega treba da stavam na primer r=Dlookup("Sifra","tblArtikli","") za da funkcionira drugo sto sakam da napravam e vo uslovot avtomatski da se prepoznava tipot na uslovot dali text ,bolean ,integer,date drugi podatoci. Ova e za pocetok a posle ke vidime sledno od koga ke go napravime ova Pozdrav |
zxz | 30.06.2013 01:15 |
---|---|
Predmet:Re: Dlookup vo VB PreuzmiIzvorni kôd (Visual Basic):
Poziv: Dim Vrijednost Vrijednost=Dlookupz("ImePolja","ImeTabele","C:\Direktorij\ImeBaze.mdb","ImePolja='Vrijednost'") Ne zaboravi reference. |
Gjoreski | 02.07.2013 14:05 |
---|---|
Predmet:Re: Dlookup vo VB Ova e dobro no Dim Vrijednost Vrijednost=Dlookupz("ImePolja","ImeTabele","C:\Direktorij\ImeBaze.mdb","ImePolja='Vrijednost'") ova vaka funkcionira no sekogas treba uslovot da go redam kako String a jas sakam uslovot kako da go napravam avtomatski da se prepoznava dali e Integer date bolean . i drugo sto sakam e da mozam vo podatokot sto go vadam da stavam dve ili tri polijna i da dobijam eden rezultat Dim Vrijednost Vrijednost=Dlookupz("[ImePolja]+[ImePolja1]-[ImePolja3]","ImeTabele","C:\Direktorij\ImeBaze.mdb","ImePolja='Vrijednost'") nekogas moze da bide edno pole od koe citam nekogas dve pa i poveke pozdrav |
zxz | 02.07.2013 14:42 |
---|---|
Predmet:Re: Dlookup vo VB Citat: no sekogas treba uslovot da go redam kako String a jas sakam uslovot kako da go napravam avtomatski da se prepoznava dali e Integer date bolean . To nije moguce ni u pravoj DLookup jer uslov uvjijek saljes kao string. Primjer: Imepolja=22 Imepolja='Nekistring' Imepolja=True Imepolja like '*Nesto' itd. Znaci to regulises ulaznim parametrom i on je uvije string pa se nemoze znati jeli polje po kome trezis string. Moglo bi se to napraviti ali bi se poprilicno iskomplikovalu. Umjesto ulaznog parametra uslov morali bi napraviti tri i to: NazivPolja Operator i uslov. Ovim opet nebi mogli obuhvatiti Beetven jer tada imaju 2 uslova kao i kada trazimo po dva polja. Sve u svemu mislim da to nebi bilo funkcionalno. Citat: DLokup vraca samo jednu informacijui drugo sto sakam e da mozam vo podatokot sto go vadam da stavam dve ili tri polijna i da dobijam eden rezultat Inace procedura vraca samo jednu informaciju. Uslov moze biti sa vise polja. Primjer: ImePolja=12 AND ImedrugogPolje='nekistr' |
Gjoreski | 05.07.2013 13:22 |
---|---|
Predmet:Re: Dlookup vo VB Eve i drugi tri korisni funkcii PreuzmiIzvorni kôd (Visual Basic):
|
zxz | 05.07.2013 13:35 |
---|---|
Predmet:Re: Dlookup vo VB I sta sad. Jel treba i ove prepraviti? |
Gjoreski | 03.07.2013 14:08 |
---|---|
Predmet:Re: Dlookup vo VB ok e za uslovot E sega sa rezultatot Jas ke dobijam samo eden podatok koj ke se sostoi od prvoto i vtoroto pole eve kako ke izgleda Rezultat=Dllokup("[Kolicina]*[Cena]","tblNaracki","ID_Naracki=1222") Rezultat = Kolicina * Cena Jas treba da go smenam SQL Stringot StrSQL = "SELECT " & Polje & " FROM " & Tabela Jas sakam da izvrsam nekekva operacija nad dve ili polijna mnozejne ,delejne i tn So dve imam probano vo access i funkcionira ok za tri nemem probano Pozdrav Mislam deka me razbra sto sakam |
zxz | 03.07.2013 15:40 |
---|---|
Predmet:Re: Dlookup vo VB Samo promijeni ovo u proceduri: 17.DLookupZ = Rs(Polje).Value a stavi ovo DLookupZ = Rs(0).Value |
Gjoreski | 05.07.2013 19:07 |
---|---|
Predmet:Re: Dlookup vo VB Ne treba da prepravim samo staviv da pogledate ako e dobro moze da se stavi vo Korisan cod |
zxz | 05.07.2013 21:59 |
---|---|
Predmet:Re: Dlookup vo VB Fali ti ovdje putanja do baze. Ovo ce raditi u accessu ali u vb nece. |