KOpiranje podataka iz tabele firebird baze

Re: KOpiranje podataka iz tabele firebird baze 19.06.2008. u 01:17 · pre 223 meseca #21

DOSAO SAM DO pribliznog resenja
Evo koda koji kopira podatke ,treba mi malena sitnica,kako da ih zapamtim da se posle vracanja u "normalan"mod delphija ne brisu?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
f:TField;
begin
try
SimpleDataSet1.Open;
while not SimpleDataSet1.Eof do
begin
SimpleDataSet2.Insert;
for i:=0 to SimpleDataSet1.FieldCount-1 do //prolazimo kroz sva polja izvornog dataseta
begin
f:=SimpleDataSet2.FindField(SimpleDataSet1.Fields[i].FieldName);
if f<>nil then //provera da li polje iz izvornog dataseta postoji u ciljnoj
f.Value:=SimpleDataSet1.Fields[i].Value;
end;
SimpleDataSet2.Post;
SimpleDataSet1.Next;
end;
finally
SimpleDataSet1.Close;
end;
end;
//kopiraju se podaci iz SimpleDataSet1 u SimpleDataSet2

Kako da ih zapamti baza.Sta mi ne dostaje?

Re: KOpiranje podataka iz tabele firebird baze 19.06.2008. u 01:51 · pre 223 meseca #22

TSimpleDataSet koristi kešovanje promena u memoriji koje se prosleđuju bazi tek nakon ApplyUpdates komande, a ako se ta komanda ne sprovede keš se odbacuje. Dakle pre finally bloka treba staviti:

Code:
SimpleDataSet2.ApplyUpdates(0);

Potpis

"The best code is no code at all."
- Zidar (ES član)
"Biggest obstacle to learning
SQL is unlearning procedural
programming." - Joe
Celko
"Minimize code, maximize data."
- A. Neil Pappalardo

Re: KOpiranje podataka iz tabele firebird baze 19.06.2008. u 14:17 · pre 223 meseca #23

HVALA charcka
Jos nesto me vunni?
Kod kojim se menjaju tabele uz pomoc comboobxa,dakle zelim ovim programom da napunim sve tablel baze

Code:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
with SourceDataSet do
try
Close;
begin
DataSet.CommandText:='';
DataSet.CommandText:=ComboBox1.Text;
end;
finally
Open;
end;
with DestinationDataSet do
try
Close;
begin

DataSet.CommandText:='';
DataSet.CommandText:=ComboBox1.Text;

end;
finally
Open;
end;
end;

Kada izvrsim dogadjaj pojavi se greska :
_{Project kopi.exe reice exeption class EDatabaseError with message:'Data type unknown Clien Sql dialect does not support reference to beginit data type}
Neznam kako da prebrodim ovu gresku,dok nisam napisao kod

Code:

SimpleDataSet2.ApplyUpdates(0);

mogao je da 1 izvrsi dogadjaj i onda se pojavi poruka,a od kkaada sam napisao gore navedenu liniju nijednom...Znam da ta linija mu ne smeta i da nije dobro sto ne moze uvek da se izvrsi?

Forum kao aplikacija na telefonu

Srodne teme