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;
şartlı data transferi
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Re: şartlı data transferi
alakel yazdı: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ı ?');
Re: şartlı data transferi
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;
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;