*.XLS'den *.DB'ye veri aktarımı

[NeverFear]

Kod: Tümünü seç

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;

1. Saha tanımlaman arttıkça sen de arttırmalısın
2. Excel'deki sütun sayın arttıkça F1Book1.TextRC[RowN,3] 'daki RowN,3 -> 3 sayısını arttırmalısınız

İşinizi görmesi dileğimle,
Çalışmalarınızda başarılar dilerim.

NeverFear - kaheri579@hotmail.com

[volkancesur]

Güzel Bir yazı teşekkürler.Peki bunu fdb ye aktarabilir miyiz_?

[volkancesur]

Güzel Bir yazı teşekkürler.Peki bunu fdb ye aktarabilir miyiz_?

[sabanakman]

Table1 yerine fdb tablosuna bağlantı yapmış bir bileşen kullanarak aktarabilirsin.

[volkancesur]

Evet Denedim Ama bir kaç problem verdi.Alanların veri tiplerinde kendi değer atadı.Uğraşıyorum . Çok Teşekkür Ederim