[es] - IF THEN petlja problem

djenka1984

Član broj: 111928
Poruke: 20
*.3dnet.co.yu.

Profil

^{12.10.2006. u 15:03}

Ako bi neko mogao da mi pomogne oko sledeceg problema:
Hteo bih nekako da prilikom unosa podataka u bazu podataka da se izvrsi provera pa ukoliko odredjeni podatak nepostoji u bazi da ma se otvori nova forma za unos podataka koja je povezana sa drugom bazom koja sadrzi izmedju ostalog i to polje ali jos i neka druga polja.(inace te dve baze ce upravo biti povezane preko tog polja).
Ja sam probao IF petljom i napisao sam cod medjutim nista se ne desava
ibquery1.Close;
ibquery1.SQL.Clear;
ibquery1.SQL.Add('select * from {naziv te druge baze koja sadrzi opsirnije podatke} where {To polje koje se proverava} :=unos');
ibquery1.Params[0].Name:='unos';
ibquery1.Params[0].Value:=dbedit1.Text;
IF ibquery1.recordcount {pretpostavljam da bi trebala da ide 0,ali nisam siguran} = 0 then
begin
form4.Show;

Ako neko ima resanje neka posalje,ili ako zna neka jednostavniji ili bolji nacin ,posto pretpostavljam da postoji posto...

^{12.10.2006. u 15:03}

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 1147
*.adsl.sezampro.yu.

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 16:44}

> ibquery1.SQL.Add('select * from {naziv te druge baze koja sadrzi opsirnije podatke} where {To polje koje se proverava} :=unos');

IbQuery1.Prepare;
IBQuery1.Params[0] := 'Tekst';
IBQuery1.ExecSQL;
IBQuery1.GetLastRecord;
if not IBQuery.IsEmpty then
...

Probaj otprilike tako, kucam napamet pa se možda određene metode drugačije zovu, ako je tako potraži u Helpu tačne nazive.

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.yu/~fangor...stions/smart-questions.sr.html

^{12.10.2006. u 16:44}

Miloš Baić

Član broj: 72468
Poruke: 1122
*.kalik.info.

Sajt: www.2advanced.com

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 16:52}

Pozdrav,

takođe, evo i od mene nešto iz glave, ali evo primer sa dbGo komponentama, ADO, pa možda možeš primeniti na tu bazu koju koristiš:

Code:

ADOQuery.Close;
ADOQuery.SQL.Clear;
if Edit1.Text<>'' then
  ADOQuery.SQL.Add('SELECT * FROM Tabela WHERE Naziv_Kolone =' + QuotedStr(Edit1.Text);
ADOQuery.Open;
if ADOQuery.RecordCount=0 then
  begin
   ShowMessage('Ne postoji taj podatak u tabeli!);
   //Neka forma - Show/ShowModal - za unos podataka
  end
else
   Edit2.Text:= ADOQuery.FieldByName('Neko_Polje').AsString; //recimo

p.s. princip je verovatno isti, nisam radio sa IB komponentama, sve su ostalo nijanse...

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{12.10.2006. u 16:52}

Milos D
Beograd

Član broj: 5621
Poruke: 251
212.200.221.*

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 17:01}

A mozes i

select count(*) from... where...

ako te ne interesuju vrednosti tog recorda nego samo da li postoji...

pa onda

if ADOQuery.fields[0].AsInteger>0 then postoji...

^{12.10.2006. u 17:01}

djenka1984

Član broj: 111928
Poruke: 20
*.3dnet.co.yu.

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 17:49}

Hvala na odgovorima, ovo sam uradio na loshmiscg -jev nacin i sve sljaka super nego mi samo reci kod ovog reda
>if Edit1.Text<>'' then
ovo vece manje i dva apostrofa sta tacno znace,posto pretpostavljam da znace promenu u edit1.textu .

^{12.10.2006. u 17:49}

aleksandarpopov
Software developer
Senta

Član broj: 57172
Poruke: 478
*.sksyu.net.

Sajt: www.linkedin.com/in/aleks..

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 18:15}

Citat:

>if Edit1.Text<>'' then

Razlicito od prazan string tj. nemas nista u Editboxu.

Citat:

Ja sam probao IF petljom

?!?!?!?!
Citaj malo osnovama programiranja, trebace ti.
Pozdrav

RTFM

^{12.10.2006. u 18:15}

Srdjan_exe
Srdjan Pavlovic

Član broj: 117082
Poruke: 60
*.ptt.yu.

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 19:08}

Pozdrav Vojnice! (loshmi)

)

Eto, ja sam slab sa bazama, al bas mi se cini elegantno resenje, nema sta

Vidimo se sutra u armiji, a internet sam konacno napravio (ne mere ipak bez kabla, videces kad dodjes, umreces od smeha)

Pozdrav i svima ostalima ovde od novog membera..

PS: "If Then PETLJA?" Ja sam mislio da je naziv "petlja" samo
za for-next, do-while, i tako te PETLJE

) a if-then mi po strukturi ne lici na nesto sto bi moglo imati prefiks PETLJA...

(mozda nisam u pravu)

sad me nesto covek stavio u dilemu....

IN VINO VOMITUS

^{12.10.2006. u 19:08}

Miloš Baić

Član broj: 72468
Poruke: 1122
*.kalik.info.

Sajt: www.2advanced.com

Profil

Re: IF THEN petlja problem

^{13.10.2006. u 07:24}

Citat:

Srdjan_exe: PS: "If Then PETLJA?" Ja sam mislio da je naziv "petlja" samo
za for-next, do-while, i tako te PETLJE :)) a if-then mi po strukturi ne lici na nesto sto bi moglo imati prefiks PETLJA...
(mozda nisam u pravu)
sad me nesto covek stavio u dilemu....

Pozdrav,

if je naredba uslovnog prelaska, omogućaava da se u toku izvršenja programa donese odluka o tome, da li je potrebno ili ne, izvršiti neku naredbu. Recimo:

Code:

if Neki_uslov then Uradi_Nesto;

ili

Code:

if Neki_uslov then
Uradi_Nesto
else
Uradi_Nesto_Drugo;

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{13.10.2006. u 07:24}

Srdjan_exe
Srdjan Pavlovic

Član broj: 117082
Poruke: 60
*.ptt.yu.

Profil

Re: IF THEN petlja problem

^{16.10.2006. u 20:31}

...da, a ukoliko se radi o vise naredbi koje se uslovno izvrsavaju, onda

IF Neki_Uslov Then

BEGIN

Naredba-1;
Naredba-2;
...
...
...
Naredba-n

ELSE

BEGIN

Naredba-1;
Naredba-2;
...
...
...
Naredba-n;

END;
("BLOCK-IF")

Pozdrav....

IN VINO VOMITUS

^{16.10.2006. u 20:31}