[es] - IF THEN petlja problem

djenka1984

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

Profil

^{12.10.2006. u 15:03 - pre 213 meseci}

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...

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: IF THEN petlja problem

^{12.10.2006. u 16:44 - pre 213 meseci}

> 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.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

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

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 16:52 - pre 213 meseci}

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...

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

Milos D
Beograd

Član broj: 5621
Poruke: 280
212.200.221.*

+1 Profil

Re: IF THEN petlja problem

^{12.10.2006. u 17:01 - pre 213 meseci}

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...

Odgovor na temu

djenka1984

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

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 17:49 - pre 213 meseci}

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 .

Odgovor na temu

aleksandarpopov
IT consultant
Senta

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

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

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 18:15 - pre 213 meseci}

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

Odgovor na temu

Srdjan_exe
Srdjan Pavlovic

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

Profil

Re: IF THEN petlja problem

^{12.10.2006. u 19:08 - pre 213 meseci}

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

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

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

Profil

Re: IF THEN petlja problem

^{13.10.2006. u 07:24 - pre 213 meseci}

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;

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

Srdjan_exe
Srdjan Pavlovic

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

Profil

Re: IF THEN petlja problem

^{16.10.2006. u 20:31 - pre 213 meseci}

...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

Odgovor na temu