Aktarma Kodun örneği aşağıda
Kod: Tümünü seç
Tbl_Stok.Open;
//IBOTbl_Stok.Open;
Tbl_Stok.First;
while not Tbl_Stok.Eof do
begin
IBOTbl_Stok.Open;
begin
IBOTbl_Stok.Append;
IBOTbl_StokTUR.AsInteger:=Tbl_StokTUR.AsInteger;
IBOTbl_StokTARIH.Text:=Tbl_StokTARIH.Text;
IBOTbl_StokGRUP.AsString:=Tbl_StokGRUP.AsString;
IBOTbl_StokFIRMA.AsString:=Tbl_StokFIRMA. AsString ;
IBOTbl_StokSTOKADI. AsString :=Tbl_StokSTOKADI. AsString ;
IBOTbl_StokSTOKTIP. AsString :=Tbl_StokSTOKTIP. AsString ;
IBOTbl_StokSTOK_FIATI.AsCurrency:=Tbl_StokSTOK_FIATI.AsCurrency;
IBOTbl_StokGTARIH.AsText:=Tbl_StokGTARIH.AsText;
IBOTbl_StokCTARIH.AsText:=Tbl_StokCTARIH.AsText;
IBOTbl_StokALAN.AsString:=Tbl_StokALAN.AsString;
IBOTbl_StokMIKTAR.AsFloat:=Tbl_StokFloat.AsCurrency;
Tbl_Stok.Next;
end;
IBOTbl_Stok.Post;
end;
ShowMessage('İşlem Tamam');
end;
Dataları firebirde aktardıktan sonra ibexpertle açtığımda tabloyu aşağı ve yukarı dolaştığımdada çok yavaş. fakat yazdığım programda herhangi bir sorguyu çalıştırdığımda oldukça hızlı. Neden bukadar sürede bir tablodan diğerine aktardığını anlamış değilim oysa paradoks tablosundan başka bir paradoks tablosuna aktarmam 5-6 dakikamı alıyor. Doğrusu firebird hakkında okuduklarım beni şüpheyle bakmaya sevk etti benim gözden kaçırdığım birşeymi var bu konuda yardımcı olacak arkadaşlara şimdiden teşekkürler.