Gönderen Konu: EXCELDEN PARADOX VERİ TABANINA VERİ AKTARIMI (Okunma sayısı 1596 defa)

romantik.kumral · « : 08 Ağustos 2008 16:11:55 »

S.A arkadaşlar, paradox veri tabanı kullanarak yaptığım programdan( bu programın yapımında bana çok yardımcı olan CTURK arkadaşıma teşekkürler

) excel e veri aktarabiliyorum ama excelden geriye nasıl alacağım bilmiyorum.Baya bi aradım ama bulamadım.Bi ara formda görmüştüm ama aramalarda çıkmıyor.Bilen arkadaşlar kodları yada adresi verirse sevinirim.

Cturk · « **Yanıtla #1 :** 08 Ağustos 2008 20:19:41 »

Slm.Arkadaşım...Ben OpenDialogla bir örnek veriyorum,çünkü excell'e aktarılan dosyalar muhakkak bir kitab1 adlı dosya oluşturur,bunu Harddiske başka bir isimlede kayıt edilir. Excellden aktarım için önce yapacakların; Veri aktarıyorum diyorsun,ben aşağıdaki kodu veriyorum bunun için yapacağın; daha önce Excelle aktardığın Field sütunların kaç tane ise "For Sutun" yazan yerde belirt yoksa hata alırsın;
Tablona bir "OpenDialog" ekle (Excell'e daha önce bir dosya adıyla kaydedilen veriyi open dialogla getirirsin).
// uses: comobj; ekle.

Kod: (Unknown Language)

var // uses: comobj; ekle.
  book:variant;
  excel,sheet:variant;
  satir, sutun:integer;
  str:string;
begin
  excel := createOleObject('Excel.application');
  OpenDialog1.Filter := 'Excel Dosyaları (*.xls)|*.xls';
  if opendialog1.Execute then
    begin
      book:= Excel.WorkBooks.Open(OpenDialog1.FileName);
      try
       //
      finally
    end;
  Screen.Cursor := crHourGlass;
  sheet := book.worksheets[1];
  for satir:=2 to 4000 do
    begin
      str := sheet.cells[satir, 1];
      if (str <> '') then
        begin
          Update;
          Table1.Insert;
          for sutun:=2 to 50 do //burasını(50) Tablondaki Fieldlerin sayısı kadar ayarla
          Table1.Fields[sutun-1].AsString :=sheet.cells[satir,sutun];
          Table1.Post;
        end;
    end;
  Excel.quit;
  excel:=Unassigned;
  Screen.Cursor := crDefault;
  ShowMessage(''+'Excellden Kayıtlar VT”ye aktarılmıştır ! ');
  end;
end;
 

Kolay gelsin....

NeverFear · « **Yanıtla #2 :** 08 Ağustos 2008 23:52:26 »

24/07/2004'de bir delphi kod paylaşım sitesinin KodBank kısmına gönderdiğim konu ile ilgili kodlar.

Kod: (Unknown Language)

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ız arttıkça sen de artırmalısınız
//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
 

Ayrıca, aşağıda verdiğim linkde de açıklama eklerini bulabilirsin.

http://www.delphiturk.com/Replys.aspx?PostId=30600&ForumId=100

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

NeverFear - kaheri579@hotmail.com

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: EXCELDEN PARADOX VERİ TABANINA VERİ AKTARIMI (Okunma sayısı 1596 defa)

romantik.kumral

EXCELDEN PARADOX VERİ TABANINA VERİ AKTARIMI

Cturk

Ynt: EXCELDEN PARADOX VERİ TABANINA VERİ AKTARIMI

NeverFear

Ynt: EXCELDEN PARADOX VERİ TABANINA VERİ AKTARIMI