DB Aktarma !!

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ozcank
Üye
Mesajlar: 937
Kayıt: 28 Nis 2005 05:29

DB Aktarma !!

Mesaj gönderen ozcank »

AKTARMA.DB den SISTEMFOR.DB ye aktarmam gerekiyor alanlarım ise şöyle;

Kod: Tümünü seç

AKTARMA.DB    SISTEMFOR.DB 
A              =      SISKOD 
B              =      SISADI 
C              =      SISSOY 
D              =      SISISAD 
E               =     SISISTF 




yardım ederseniz sevinirim.
serkan
Üye
Mesajlar: 666
Kayıt: 10 Tem 2003 12:08
Konum: bursa

Mesaj gönderen serkan »

Kod: Tümünü seç


tablo_aktarma.first;
while not tablo_aktarma.eof do begin
tablo_sistemforsiskod.value:=tablo_aktarmaA.value;
tablo_sistemforsisadi.value:=tablo_aktarmaB.value;
tablo_sistemforsissoy.value:=tablo_aktarmaC.value;
tablo_sistemforsissisad.value:=tablo_aktarmaD.value;
tablo_sistemforsissistf.value:=tablo_aktarmaE.value;
tablo_aktarma.next;
end;
tablo_sistemfor.post;


kolay gelsin
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

Kod: Tümünü seç

tablo_aktarma.first;
while not tablo_aktarma.eof do 
begin
  tablo_sistemfor.Insert; 
  tablo_sistemforsiskod.value:=tablo_aktarmaA.value;
  tablo_sistemforsisadi.value:=tablo_aktarmaB.value;
  tablo_sistemforsissoy.value:=tablo_aktarmaC.value;
  tablo_sistemforsissisad.value:=tablo_aktarmaD.value;
  tablo_sistemforsissistf.value:=tablo_aktarmaE.value;
  tablo_sistemfor.post; 
  tablo_aktarma.next;
end;
Böyle demek istedin herhalde :wink:
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
ozcank
Üye
Mesajlar: 937
Kayıt: 28 Nis 2005 05:29

Mesaj gönderen ozcank »

Teşekkür ederim rsimsek abi.
serkan
Üye
Mesajlar: 666
Kayıt: 10 Tem 2003 12:08
Konum: bursa

Mesaj gönderen serkan »

evet rsimsek abimm ölee yazmk istemişimm. forumda F9 'a basınca kodlarda hata olan satırı işaretlese böle hatalar yapmayız.. :lol:
Kullanıcı avatarı
rsimsek
Admin
Mesajlar: 4482
Kayıt: 10 Haz 2003 01:48
Konum: İstanbul

Mesaj gönderen rsimsek »

rica ederim, işine yaradıysa ne mutlu :)
Bilgiyi paylaşarak artıralım! Hayatı kolaylaştıralım!!
Cevapla