[es] - Kopiranje baze podataka

Aleksandar Ilić
Software Developer
Beograd

Član broj: 15867
Poruke: 417

Sajt: www.ailic.rs

+3 Profil

^{13.08.2004. u 14:14 - pre 239 meseci}

Imam jednu XML tabelu koju sam povezao sa ClientDataSet-om i jednu novu Pardox-ovu bazu podataka koja ima ista polja kao XML tabela. Da ne bi prepisivao 300 unosa u novu bazu, počeo sam da pišem program koji će da uradi posao umesto mene.

Code:

var
  I, N : Integer;
begin
  N := ClientDataSet1.RecordCount;
  for I := 1 to N do
    begin
      Table1.Insert;
      {Ovde treba da napišem kod koji će zapis [I] kopirati
        polje po polje u novu bazu}
      Table1.Post;
    end;
end;

Tabela ima 5 polja: ID, Ime, Vrsta, Cena, Kategorija.
Znam da je prosto, ali se trenutno ne mogu setim, stao mi mozak.
Ko zna neka piše.

[Ovu poruku je menjao Alekstrade dana 13.08.2004. u 21:26 GMT]

_{„Naposletku, suština saznavanja nije u tome gubimo li igru, već kako je gubimo,

šta time spoznajemo, čemu nas je poraz naučio i kako nas to menja. Gubiti na određen

način znači - dobijati.”}
^{Richard Bach}

Odgovor na temu

Milos D
Beograd

Član broj: 5621
Poruke: 280
*.ptt.yu

+1 Profil

Re: Kopiranje baze podataka

^{13.08.2004. u 18:44 - pre 239 meseci}

for j := 0 to ClientDataSet1.fields.count-1 do
table1.fields[j].value := ClientDataSet1.fields[j].value

ako su definicije i redosled polja identicni

Odgovor na temu

Aleksandar Ilić
Software Developer
Beograd

Član broj: 15867
Poruke: 417

Sajt: www.ailic.rs

+3 Profil

Re: Kopiranje baze podataka

^{13.08.2004. u 19:25 - pre 239 meseci}

Code:

var
  I, J, N, M: Integer;
begin
  N := ClientDataSet1.RecordCount;
  M := ClientDataSet1.Fields.Count;
  for I := 0 to Pred(N) do
    begin
      Table1.Append;
      for J := 0 to Pred(M) do
        begin
          Table1.Fields[J].Value :=
            ClientDataSet1.Fields[J].Value;
        end;
      Table1.Post;
      ClientDataSet1.Next;
    end;
end;

Evo ga.

Odgovor na temu