Kopiranje baze podataka

Kopiranje baze podataka 13.08.2004. u 15:14 · pre 270 meseci #1

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]

Potpis

_{„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}

Re: Kopiranje baze podataka 13.08.2004. u 19:44 · pre 270 meseci #2

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

ako su definicije i redosled polja identicni

Re: Kopiranje baze podataka 13.08.2004. u 20:25 · pre 270 meseci #3

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.

Potpis

_{„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}

Forum kao aplikacija na telefonu

Srodne teme