Excel'den ADODataSete Aktarılan Verileri Kaydetme

Merhaba,

Excel dosyasındaki verileri TADODataSet 'e aktarıyorum. Yaklaşık 50 bin satır veri var.

Sonra ;
* * * * **TADODataSet1.First ; * * for i := 1 to TADODataSet1.RecordCount do * * *begin * * * * * IBQuery1.SQL.Clear ; * * * * * IBQuery1.Sql.Add('Insert Into TBL_KISILER(TCNO,ADI_SOYADI,BABA_ADI,DOGUM_TARIHI, TELEFON,MAHALLE)'); * * * * * IBQuery1.Sql.Add('Values (: PTCNO,: PADI_SOYADI,: PBABA_ADI,: PDOGUM_TARIHI,: PTELEFON,: PMAHALLE)'); * * * * * IBQuery1.ParamByName('PTCNO').AsString := '12345678901' ; * * * * * IBQuery1.ParamByName('PADI_SOYADI').AsString := 'Adem' ; * * * * * IBQuery1.ParamByName('PBABA_ADI').AsString := 'aaa' ; * * * * * IBQuery1.ParamByName('PDOGUM_TARIHI').AsString := '01.01.2000' ; * * * * * IBQuery1.ParamByName('PTELEFON').AsString := '05051234567'*; * * * * * IBQuery1.ParamByName('PMAHALLE').AsString := 'mmm' ; * * * * * IBQuery1.Prepare ; * * * * * IBQuery1.ExecSQL ; * * * * * TADODataSet1.Next ; * * *end ; kodları*ile kayıt sayısı kadar döngü kurup her döngüde*TADODataSet ' te aktif satırı*ilgili tabloya*kaydediyorum fakat 50 bin verinin*kayıt işlemi 15-20 dakika kadar bazen daha uzun*sürüyor.

Bu kayıt işlemini kısaltmanın bir yolu var mı?

Stored procedure ile bu işlemi veri tabanına yaptırabilir miyiz?