Excel'den DB'ye..

[n0nex]

Merhaba arkadaşlar.
Öncelikle belirtmek isterim ki forumdaki mevcut konuları okudum fakat maalesef problemimi çözemedim.
*
Excel'den veri aktarımı konusunda yardımcı olur musunuz?

Teşekkürler

[ugorkem]

Çok eskiden Adoquery ile ilgili küçük bir örnek yayınlamıştım. inceleyebilirsiniz...
http://www.prostudyo.com/download/delph ... lanma.html

[denizfatihi]

Kod: Tümünü seç

procedure TForm1.BitBtn8Click(Sender: TObject);
Const
  xlCellTypeLastCell = $0000000B;
var
    book:variant;
    excel,sheet:variant;
    satir, sutun:integer;
    str,strr :string;
begin
    excel := createOleObject('Excel.application');
    OpenDialog1.Filter := 'Excel Dosyaları (*.xls;*.xlsx)|*.xls;*.xlsx';
    if opendialog1.Execute then
    begin
        book:= Excel.WorkBooks.Open(OpenDialog1.FileName);
        try
            Screen.Cursor := crHourGlass;
            sheet := book.worksheets['F'];  // Burası excel dosyasındaki sayfa adı

     
            satir:=2; // Sutun başıkları varsa 2.satırdan yazmaya başlar
            
            for satir:=2+1 to Excel.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Row do
            begin
                str := sheet.cells[satir, 1];
                if (str <> '') then

                begin
                    Update;
                    ADOQuery1.Append;

                    for sutun:=1 to 14 do // 14 adet sutun var güncellenir.
                    
                    ADOQuery1.Fields[sutun-1].AsString :=sheet.cells[satir, sutun];
                    ADOQuery1.Post;
                end;
            end;
            Excel.quit;
        finally
            Screen.Cursor := crDefault;
        end;

[ertank]

Merhaba,

Bu tarz işleri çok yapıyorsanız bir component kullanmak faydalı olabilir. Excel ve birçok farklı formattan daha veri aktarımı yapabilen aşağıdaki component paketini inceleyebilirsiniz. Kaynak kod içeren paket almanıza gerek yok. Böylece fiyatı çok daha makul bir hale gelecektir.

http://www.scalabium.com/smi/

[badkursat]

Exceldeki veriyi ADOQuery'de göstermek için
https://www.youtube.com/watch?v=temuC8P1T6s

SQL Script Oluşturmak İçin
http://witalihakko.blogspot.com.tr/2015 ... -alma.html

[fesiharslan]

Döngü içerisinde her kaydı tablo alanlarına aktarmadan önce ADOQuery1.Append; aktardıktan sonra da ADOQuery1.Post; metotlarını kullanmalısınız.