[es] - KOpiranje podataka iz tabele firebird baze

lucky666

Član broj: 183847
Poruke: 31
77.46.246.*

Profil

Re: KOpiranje podataka iz tabele firebird baze

^{19.06.2008. u 00:17 - pre 192 meseci}

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?

Odgovor na temu

chachka
Srđan Mijatov
Programer
BUS Computers
Kikinda

Član broj: 53780
Poruke: 576
*.ADSL.neobee.net.

Sajt: www.baze-podataka.net

+4 Profil

Re: KOpiranje podataka iz tabele firebird baze

^{19.06.2008. u 00:51 - pre 192 meseci}

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);

"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

Odgovor na temu

lucky666

Član broj: 183847
Poruke: 31
79.101.189.*

Profil

Re: KOpiranje podataka iz tabele firebird baze

^{19.06.2008. u 13:17 - pre 192 meseci}

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?

Odgovor na temu