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?
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?