Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Prepisivanje podataka iz tabele u tabelu

[es] :: Pascal / Delphi / Kylix :: Prepisivanje podataka iz tabele u tabelu

[ Pregleda: 863 | Odgovora: 3 ]

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

smjesko
Niko Nikogovic
bangladesh

Član broj: 18272
Poruke: 282
*.astra-net.com.

Sajt: www.autotuning.ba


Profil

icon Prepisivanje podataka iz tabele u tabelu04.03.2006. u 13:38

zanjima me kako da napravim sljedece:

imam bazu (interbase)

imam 2 tabele

1 tabela polje A
2 tabela polje A

kako da napravim da recimo kada kliknem na neko dugme (button) on prepise sadrzaj iz jedne tabele u drugu?
Ako neznas pitaj... ako mozes pomozi..
04.03.2006. u 13:38 

dekys
Dejan Stevanovic
Krusevac

Član broj: 464
Poruke: 73
*.air.my-its.net.

ICQ: 61093230


Profil

icon Re: Prepisivanje podataka iz tabele u tabelu04.03.2006. u 22:30
Ovo je najjednostavniji nacin. Koriscenjem standardnog SQL-a.

Code:
INSERT INTO tabela2 SELECT * FROM tabela1

digital ILLUSION - Krusevac
04.03.2006. u 22:30 

smjesko
Niko Nikogovic
bangladesh

Član broj: 18272
Poruke: 282
*.com
Via: [es] mailing liste

Sajt: www.autotuning.ba


Profil

icon Re: Prepisivanje podataka iz tabele u tabelu06.03.2006. u 09:03
zaboravio sam napomenuti da to treba pod delphi-om radit :)

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE!
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/
Ako neznas pitaj... ako mozes pomozi..
06.03.2006. u 09:03 

bondja

Član broj: 10286
Poruke: 131
81.12.139.*



Profil

icon Re: Prepisivanje podataka iz tabele u tabelu06.03.2006. u 10:00
Code:

procedure TfrmMain.KopirajZapis(aFromCDS, aToCDS: TClientDataSet);
var
  I: Integer;
  cds: TClientDataSet;
begin

  cds := TClientDataSet.Create(nil);
  try
    cds.FieldDefs.Assign(aFromCDS.FieldDefs);
    cds.CreateDataSet;

    with cds do
    begin
      Open;
      Insert;
      for I:=0 to fieldcount-1 do
        if Fields[i].FieldKind = fkData then
          Fields[I].Assign(aFromCDS.FindField(Fields[I].FieldName));

    end;

    with aToCDS do
    begin
      Insert;
      for I:=0 to fieldcount-1 do
        if Fields[i].FieldKind = fkData then
           Fields[I].Assign(cds.FindField(Fields[I].FieldName));
    end;

    cds.Cancel;
  finally
    cds.Free;
  end;
end;


poz.
06.03.2006. u 10:00 

[es] :: Pascal / Delphi / Kylix :: Prepisivanje podataka iz tabele u tabelu

[ Pregleda: 863 | Odgovora: 3 ]

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.