DELPHI I Kopiranje podataka iz tabele firebird baze

izivanovic

Početnik
Poruka
2
Posto nisam nasao odgovor za moje pitnje na ranijim temama postavicu jos jednu u nizu mojih glupih tema...
Napravio sam bazu koja ima strukturu kao employee.gdb baza koja se isporucuje uz \Delphi...Interesuje me kako mogu putem koda da kopiram podatke iz jedne od tabela baze emloyee u istu tabelu moje baze?
Extra dodatak sam mislio da napravim ...napunim combo svim tabelama baze i klikom na neku od tabela podaci se pojavljuju u gridu,klikom na dugme kopiraju se....?
Kako?pomocu kojih komponenti?kod?Nista ne znam samo znam sta zelim da uradim?
Svaka pomoc imi je dobro dosla!
HVALAsbvvim buducim instruktorima
eVo i nekakve verzije koda procedure koju sam napravio za kopiranje podataka medju tabelama.Ne pokazuje gresku,ali ne radi nista.ne znam gde gresim?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
//SqlTable 1 je izvorna tabela,a SqlTable 2 je odredisna tabela
for i:=0 to SQLTable1.FieldCount-1 do
begin
SQLTable2.Fields:=SQLTable1.Fields;
SQLTable1.Next;
end;
end;
 
nedostaje ti dodavanje slogova.

primer: dodavanje slogova

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Append;
Table1.FieldValues['ALPHANUMERIC'] := Edit1.text;
Table1.FieldValues['INTEGER'] := StrToInt(Edit2.text);
Table1.Post;
end;

ili umetanje slogova


procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Insert;
Table1.FieldByName('QUANTITY').AsInteger := StrToInt(Edit1.Text);
Table1.Post;

end;

pravilo:
1. dodaj ili umetni slog,
2. dodeli vrednosti poljima novog sloga
3. potvrdi upis. (post)

ako radis azuriranje

umesto dodavanja
slog moras da prbacis u editstate 'dsedit'

a posle azuriranje uradi post ili se jednostavno skloni sa tog sloga (table1.next)
 

Back
Top