Excel'den Paradox'a veri aktarımı

[NeverFear]

Kod: Tümünü seç

// Korkud ERÇETİN
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  RowN: Integer;
  Deger: String;
begin
  for RowN:= 2 to F1Book1.LastRow do
  begin
     with Table1 do
     begin
        {$I+}
        Deger:= F1Book1.TextRC[RowN,1];
        if FindKey([StrToInt(Deger)]) then Edit else Append;
        FieldByName('SiraNo').Value:= StrToInt(F1Book1.TextRC[RowN,1]);
        FieldByName('MusAd').Value:= F1Book1.TextRC[RowN,2];
        if F1Book1.TextRC[RowN,3] = '' then
           FieldByName('MusSoyad').Value:= ','
        else FieldByName('MusSoyad').Value:= F1Book1.TextRC[RowN,3];
        Table1.Post;
     end;
  end;
end;

//Kolay gelsin
//kaheri579@hotmail.com

[altunway]

Sabahtan beri dusunuyorum ama sorunun ne oldugunu anlamadım

[sadettinpolat]

sorun yoktur belkide arkadaş güzel bulduğu bir kodu bizimle paylaşmak istemiş olabilir.

[NeverFear]

Kod: Tümünü seç

altunway nickli arkadaşıma
Bu konuda yardım isteyen arkadaşlara yardım etmek ve bilgimi paylaşma amacıyla .. Sorun benim senin değil hepimizin sorunu  :D 

[altunway]

S.A himmm..

NeverFear arkadasım anladım..yardımcı olmak amacıyla bu kodu gonderdin.Belki benim haddim degil ama burası Makale ve İpucu sayfası değil..

Neyse Kolay Gelsin..

[mussimsek]

taşıyalım

[NeverFear]

Kod: Tümünü seç

rice ederim altunway.
ancak;

[b]Genel Bilgiler ve Yaptırımlar 
Bu forumun amacı Delphi ve veritabanı programcılarını, bilgisini paylaşabilecek, öğreten ve öğrenen insanları bir araya getirerek seviyeli bir paylaşım ortamı oluşturmaktır. [/b]

şeklindeki forum kurallarından alıntı yaptığım bu satırları tekrar dikkatlice okumanı tavsiye ederim.