[es] - Problem sa dinamickim editima?!

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

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

^{23.03.2006. u 15:52 - pre 220 meseci}

Jedino do sad što sam uspeo jeste to da kod:

Code:
for i:=1 to FilterList.Count-1 do begin
         if temp='' then
            temp:=' '''+FilterList.Strings[i]+''' '
         else
            temp:=temp+', '''+FilterList.Strings[i]+''' ';
           if temp1='' then
              temp1:=' '''+eFieldsList[i].Text+''' '
           else
              temp1:=temp1+', '''+eFieldsList[i].Text+''' ';

sam modifikovao u:

Code:
for i:=1 to UnosOsoba.FilterList.Count-1 do begin
         if temp='' then
            temp:=' '''+UnosOsoba.FilterList.Strings[i]+''' '
         else
            temp:=temp+', '''+UnosOsoba.FilterList.Strings[i]+''' ';
           if temp1='' then
              temp1:=' '''+UnosOsoba.eFieldsList[i].Text+''' '
           else
              temp1:=temp1+', '''+UnosOsoba.eFieldsList[i].Text+''' ';
         end;

i na osnovu:

Code:
UnosOsoba.ADOOsobaUn.SQL.SaveToFile('query.txt');

što je sastavni deo:

Code:
UnosOsoba.ADOOsobaUn.Close;
            UnosOsoba.ADOOsobaUn.SQL.Clear;
            UnosOsoba.ADOOsobaUn.SQL.Add('INSERT INTO Osoba  (' + temp + ') VALUES (' + temp1 + ')');
            UnosOsoba.ADOOsobaUn.SQL.SaveToFile('query.txt');
            UnosOsoba.ADOOsobaUn.ExecSQL;

dobio sledeće u query.txt:

Citat:

INSERT INTO Osoba ( 'JMBG' , 'IME' , 'PREZIME' ) VALUES ( '2606981890046' , 'Pera' , 'Petrovic' )

Koliko shvatam, sad je prihvatio punjenje ali neće da memoriše u tabelu. Kaže lepo:

Citat:

Invalid Object name 'Osoba'

A 'Osoba' je tabela u koju se treba memorisati?!!!

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

Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
*.dlp408.bih.net.ba.

+27 Profil

Re: Problem sa dinamickim editima?!

^{23.03.2006. u 21:13 - pre 220 meseci}

Probaj

Code:
INSERT INTO "Osoba"...

Odgovor na temu

Trodmi

Član broj: 58036
Poruke: 193
*.dialup.neobee.net.

Profil

Re: Problem sa dinamickim editima?!

^{24.03.2006. u 00:17 - pre 220 meseci}

A bre, al' si se upetlj'o, poslacu ti ja source na email, ionako je moj sajt...

Odgovor na temu

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

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Problem sa dinamickim editima?!

^{24.03.2006. u 01:00 - pre 220 meseci}

Stvarno, ovo više nema smisla...
Ajd pošalji na mail...

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

Odgovor na temu

Trodmi

Član broj: 58036
Poruke: 193
*.dialup.neobee.net.

Profil

Re: Problem sa dinamickim editima?!

^{24.03.2006. u 01:46 - pre 220 meseci}

Sredjeno

Odgovor na temu

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

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Problem sa dinamickim editima?!

^{24.03.2006. u 18:22 - pre 220 meseci}

Probao sam sa ADOTable?! Punjenje:

Code:
with ADOTable1 do begin
             Insert;
              FieldByName(UnOsoba.FilterList.Strings[i]).Value := UnOsoba.eFieldsList[i].Text;
             Post;
          end;

Ovako se memoriše u tabelu, napokon, ali, vrednost koju unosim za JMBG je u jednom redu, vrednost za IME u redu ispod, a vrednost za PREZIME u još jednom redu ispod... Znači, svaku kolonu unosi u novi red:

Code:
JMBG          | IME           |  PREZIME
2606981890046
                     Pera
                                Petrovic
5464652546554
                     Zoki
                                Zoric

Kako dovesti do toga da se punjenje vrši u jedan red, kako treba?

_{[Ovu poruku je menjao loshmiscg dana 27.03.2006. u 18:07 GMT+1]}

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

Odgovor na temu

Almedin

Član broj: 5895
Poruke: 425
*.dlp509.bih.net.ba.

+27 Profil

Re: Problem sa dinamickim editima?!

^{24.03.2006. u 20:52 - pre 220 meseci}

onda radi ovako

;

Code:

with ADOTable1 do begin
             Insert;
             for i := 0 to UnOsoba.FilterList.Count -1 do
              FieldByName(UnOsoba.FilterList.Strings[i]).Value := UnOsoba.eFieldsList[i].Text;
             Post;
          end

Odgovor na temu

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

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Problem sa dinamickim editima?!

^{25.03.2006. u 01:51 - pre 220 meseci}

Aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
Napokon, ljudi, uspeo sam.... Zahvaljujem se svima....
Ali... vratiću se i na ADOQuery, na to isto ali sa SQL upitima, kad malo odanem.... Moram i to rešiti....

Pozzzz

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

Odgovor na temu