IF THEN petlja problem

IF THEN petlja problem 12.10.2006. u 16:03 · pre 244 meseca #1

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

Re: IF THEN petlja problem 12.10.2006. u 17:44 · pre 244 meseca #2

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

Potpis

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

Re: IF THEN petlja problem 12.10.2006. u 17:52 · pre 244 meseca #3

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

Potpis

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

Re: IF THEN petlja problem 12.10.2006. u 18:01 · pre 244 meseca #4

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

Re: IF THEN petlja problem 12.10.2006. u 18:49 · pre 244 meseca #5

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 .

Re: IF THEN petlja problem 12.10.2006. u 19:15 · pre 244 meseca #6

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

Potpis

RTFM

Re: IF THEN petlja problem 12.10.2006. u 20:08 · pre 244 meseca #7

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

Potpis

IN VINO VOMITUS

Re: IF THEN petlja problem 13.10.2006. u 08:24 · pre 244 meseca #8

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;

Potpis

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

Re: IF THEN petlja problem 16.10.2006. u 21:31 · pre 244 meseca #9

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

Potpis

IN VINO VOMITUS

Forum kao aplikacija na telefonu

Srodne teme