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

KOpiranje podataka iz tabele firebird baze

[es] :: Pascal / Delphi / Kylix :: KOpiranje podataka iz tabele firebird baze

Strane: 1 2

[ Pregleda: 4774 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

lucky666

Član broj: 183847
Poruke: 31
77.46.246.*



Profil

icon Re: KOpiranje podataka iz tabele firebird baze19.06.2008. u 00:17 - pre 132 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: 575
*.ADSL.neobee.net.

Sajt: www.baze-podataka.net


+4 Profil

icon Re: KOpiranje podataka iz tabele firebird baze19.06.2008. u 00:51 - pre 132 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

icon Re: KOpiranje podataka iz tabele firebird baze19.06.2008. u 13:17 - pre 132 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

[es] :: Pascal / Delphi / Kylix :: KOpiranje podataka iz tabele firebird baze

Strane: 1 2

[ Pregleda: 4774 | Odgovora: 22 ] > FB > Twit

Postavi temu Odgovori

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