şartlı data transferi

[alakel]

s.a. herkese iyi çalışmalar
bir tabloda bulunan alanlardan satır olarak istediklerimi seçip başka bir tabloya aktarmak istiyorum bunun için butonun click olayına şağıdaki kodu yazdım ama kod tabloda bulunan tüm alanları diğer tabloya aktarıyor.

DERSLER.Open;
USTADERS.Open;


if dersler.FieldByName('secim').AsInteger=1 then
begin
dersler.First;
while not dersler.Eof do
begin
USTADERS.Append;
USTADERSDERS_ADI.Text:=derslerders_adi.Text;

Application.ProcessMessages;
DERSLER.next;
USTADERS.Next;
end;
USTADERS.ApplyUpdates;
TRANSACTION.CommitRetaining;
showmessage('İşlem Tamamlandı ?');
end;

[Lost Soul]

s.a. herkese iyi çalışmalar
bir tabloda bulunan alanlardan satır olarak istediklerimi seçip başka bir tabloya aktarmak istiyorum bunun için butonun click olayına şağıdaki kodu yazdım ama kod tabloda bulunan tüm alanları diğer tabloya aktarıyor.

Kod: Tümünü seç

DERSLER.Open;
USTADERS.Open;


if dersler.FieldByName('secim').AsInteger=1 then
begin
dersler.First;
while not dersler.Eof do
   begin
USTADERS.Append;
USTADERSDERS_ADI.Text:=derslerders_adi.Text;

    Application.ProcessMessages;
    DERSLER.next;
    USTADERS.Next;
  end;
    USTADERS.ApplyUpdates;
   TRANSACTION.CommitRetaining;
  showmessage('İşlem Tamamlandı ?');
  end;

Kod: Tümünü seç

With Dersler Do
   Begin
   First;
   while not Eof do
   if FieldByName('secim').AsInteger=1 then   
      begin
      USTADERS.Append;
      USTADERS.fieldbyname('DERS_ADI').Asstring:=FieldbyName('ders_adi').AsString;
      USTADRES.Post
      Application.ProcessMessages;
      next;
     end;
  USTADERS.ApplyUpdates;
  TRANSACTION.CommitRetaining;
  showmessage('İşlem Tamamlandı ?');
  

[alakel]

lost soul kardeşim ilgine teşekkür ederim. ama verdiğin kodlar hiç tepki göstemedi. hata mesajıda vermiyor.
bende şöyle yaptım

dersler.Active:=false;
dersler.SelectSQL.Clear;
dersler.SelectSQL.add('select *FROM dersler where secim=1');
dersler.Active:=true;

begin
DERSLER.First;
while not dersler.Eof do


begin
dm.USTADERS.Append;
dm.USTADERSders_adi.Text:=derslerders_adi.Text;
dm.USTADERSGRUP.Text:=DERSLERGRUP.Text;
DM.USTADERSORTAK.Text:=DERSLERORTAK.Text;
DM.USTADERSTURU.Text:=DERSLERTURU.Text;
Application.ProcessMessages;
DERSLER.next;
dm.USTADERS.Next;
end;
dm.USTADERS.ApplyUpdates;
dm.ANAMESLEKTRANS.CommitRetaining;
showmessage('İşlem Tamamlandı ?');

end;