IF THEN petlja problem

[ djenka1984 @ 12.10.2006. 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...

[ savkic @ 12.10.2006. 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.

[ Miloš Baić @ 12.10.2006. 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...

[ Milos D @ 12.10.2006. 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...

[ djenka1984 @ 12.10.2006. 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 .

[ aleksandarpopov @ 12.10.2006. 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

[ Srdjan_exe @ 12.10.2006. 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....

[ Miloš Baić @ 13.10.2006. 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;

[ Srdjan_exe @ 16.10.2006. 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....