Excelden bilgi al aynı satırlar kalsın

[kuntay]

Kod: Tümünü seç

uses ComObj; 

procedure TForm1.Button2Click(Sender: TObject); 
var 
    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 
            Screen.Cursor := crHourGlass; 
            sheet := book.worksheets[1]; 
            for satir:=1 to 2500 do 
            begin 
                str := sheet.cells[satir, 1]; 
                if (str <> '') then 
                begin 
                    Update; 
                    Table1.Append; 
                    for sutun:=1 to 11 do 
                        Table1.Fields[sutun-1].AsString :=sheet.cells[satir, sutun]; 
                    Table1.Post; 
                end; 
            end; 
            Excel.quit; 
            excel:=Unassigned; 
        finally 
            Screen.Cursor := crDefault; 
        end; 
    end; 

End; 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    Table1.Open; 
end; 

procedure TForm1.FormClose(Sender: TObject;  var Action: TCloseAction); 
begin 
    Table1.Close; 
end; 

Husonet abim bir kod örneği vermiş çok güzel çalışıyor excel den bilgi alan bir örnek ama ben excel tablosundaki verileri süzerek almak istiyorum aynı olan satırlar var ben bu satırları alırken aynı olanları almak istemiyorum bunu nasıl yapabilirim.

[ulu coder]

Bence;

Aldığın değerleri bir diziye gönder,
Tabloya eklemeden önce, aynı kayıtın dizi içinde olup olmadığına bak.

[husonet]

Bence olduğu gibi table ye ekle table den ayıtla.


Kolay gelsin...

[kuntay]

Tamam o şekilde yapabilirim diğelimki

Kod: Tümünü seç

 SELECT DISTINCT www 
FROM data

Şimdi bu SQL koduyla çektiğim kayıtlar dışında kalan kayıtları nasıl sil diyebilirim.

[husonet]

hocam sen excelden çektiklerini temp olarak oluşturacağın bir table ye at ordan da şartına uyanları kullanacağın tableye at en pratiği bu

Kolay Gelsin...